안녕하세요. 해피 CGI 윤영웅입니다.
해피 CGI에서 사용하는 사이트맵 소스입니다.
소스의 권한 및 재 배포는 해피 CGI에 있습니다.
우선 필요한 이미지는
openfolder.gif
tree_e.gif
tree_f.gif
입니다.
해피 CGI 사이트맵을 클릭하셔서 이미지 저장을 하면 되겠네요.
site_html_templates.pl 파일을 열어봅니다.
sub site_html_print_cat {중얼중얼}의 서브루틴이 끝난 맨마지막에 새로 하나더 붙어 봅니다.
sub site_html_print_cat3 {
# --------------------------------------------------------
# 해피 CGI 사이트 맵
#
my (@subcat) = @_;
my ($url, $numlinks, $mod, $subcat, $category_name,
$description, $output, $i);
my ($half) = int (($#subcat 2) / 2);
# Print Header.
$output = qq&pip;width="80%" border="0" cellspacing="0" cellpadding="0"
height=130>
&pip;;
foreach $subcat (sort @subcat) {
($description) = @{$category{$subcat}}[2];
# First let
s get the name, number of links, and last modified date...
$url = "$build_root_url/"
. &urlencode($subcat) . "/";
if ($subcat =~ m,.*/([^/] )$,)
{ $category_name = &build_clean($1); } else { $category_name = &build_clean($subcat);
}
$numlinks = $stats{"$subcat"}[0];
$mod = $stats{"$subcat"}[1];
# We check to see if we are half way through,
if so we stop this table cell
# and begin a new one (this lets us have category names in two columns).
if ($i == $half) {
$output
.= qq&pip; |
&pip;;
}
$i ;
# Then we print out the name linked, new if it
s new, and popular if its popular.
if
($#{$subcategories{$subcat}} >= 0 ) {
$output .= qq&pip;
class="link" href="$url">$category_name
@ &pip;;
}
else {
$output .= qq&pip;
class="link" href="$url">$category_name
lor=black>[$numlinkssize=2 face=arial color=black>] &pip;;
}
my $days_old = &days_old($mod);
if
($days_old <= 2) { $output .= qq&pip; $new_1&pip;; }
elsif
($days_old <= 7) { $output .= qq&pip; $new_3&pip;; }
elsif
($days_old <= 14) { $output .= qq&pip; $new_7&pip;; }
$output .= qq&pip;
&pip;;
# $output .= qq&pip;&pip;;
# 야후 카테고리 모드 추가
if ($#{$subcategories{$subcat}} > 0 ) {
$v = 0;
@yahoo = ();
$sub_length = "";
$output .= qq&pip; &pip;;
foreach $subcatsub (sort @{$subcategories{$subcat}})
{
$suburl = "$build_root_url/" .
&urlencode($subcatsub) . "/";
if ($subcatsub =~ m,.*/([^/] )$,) { $subcategory_name
= &build_clean($1); }
else { $subcategory_name
= &build_clean($subcatsub); }
$sub_length
.= qq&pip;, &pip; if ($description =~ /1$/ && $v ne "0");
$sub_length .= qq&pip;$subcategory_name&pip; if
($description =~ /1$/);
if ($description
=~ /1$/ && length($sub_length) > $subcat_length) {
$output .= qq&pip;...&pip;;
last;
}
else {
$output .= qq&pip;, &pip; if ($description
=~ /1$/ && $v ne "0");
$add_array = "
border=0 ALIGN=TOP> $subcategory_name
";
@yahoo
= (@yahoo, $add_array);
$v ;
}
}
$del_array = pop(@yahoo);
for
($h = 0;$h <= $v ; $h ) {
$output
.= $yahoo[$h];
}
$output
.= qq&pip;
&pip;;
$output .= qq&pip;size=2 face=arial color=#00007E>$subcategory_name color=black>
&pip;;
}
else {
$output .= qq&pip;$description&pip;
if (!($description =~ /^[s
]*$/));
}
# 야후 카테고리 모드 추가 끝
}
# Don
t forget to end the unordered list..
$output .= " |
";
return $output;
}
nph-build.cgi 파일을 열어봅니다.
sub build_home_page 서브루틴을 찾아 이 루틴이 끝나는 마지막에 아래를 붙입니다.
sub build_sitemap_page {
# --------------------------------------------------------
my ($subcat, @rootcat);
local ($total);
# Check to see which categories are off of the root.
foreach $subcat (sort keys
40
1,302
1999-10-11 19:26:38
닉네임
