안녕하세요. 해피 CGI 윤영웅입니다.
포럼장에 html 태그가 문제가 있어서 CGI 설치 설명 게시판에 올립니다.
########################################################
데모 : http://happycgi.com/sitemap.html
관련,질문 포럼장 :
http://www.happycgi.com/forum/links_20_mod/44.html
소스 modify : 해피 CGI
배포 여부 : 마구 ^^;
########################################################
안녕하세요. 해피 CGI 윤영웅입니다.
해피 CGI에서 사용하는 사이트맵 소스입니다.
소스의 권한 및 재 배포는 해피 CGI에 있습니다.
우선 필요한 이미지는
openfolder.gif
tree_e.gif
tree_f.gif
입니다.
해피 CGI 사이트맵을 클릭하셔서 이미지 저장을 하면 되겠네요.
site_html_templates.pl 파일을 열어봅니다.
sub site_html_print_cat {중얼중얼}의 서브루틴이
끝난 맨마지막에 새로 하나더 붙어 봅니다.
아래 코드를 복사해서 붙입니다.
########################################################
# 해피 CGI 사이트맵 정보 끌어오기
########################################################
sub site_html_print_cat3 {
my (@subcat) = @_;
my ($url, $numlinks, $mod, $subcat, $category_name, $description, $output, $i);
my ($half) = int (($#subcat+2) / 2);
# Print Header.
$output = qq|
|;
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|
|;
}
$i++;
# Then we print out the name linked, new if it
s new, and popular if its popular.
if ($#{$subcategories{$subcat}} >= 0 ) {
$output .= qq| $category_name @ |;
}
else {
$output .= qq| $category_name [$numlinks] |;
}
my $days_old = &days_old($mod);
if ($days_old <= 2) { $output .= qq| $new_1|; }
elsif ($days_old <= 7) { $output .= qq| $new_3|; }
elsif ($days_old <= 14) { $output .= qq| $new_7|; }
$output .= qq| |;
# $output .= qq||;
# 야후 카테고리 모드 추가
#if ($#{$subcategories{$subcat}} >= 0 && $description =~ /^SUB.*/) {
if ($#{$subcategories{$subcat}} > 0 ) {
$v = 0;
@yahoo = ();
$sub_length = "";
$output .= qq| |;
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|, | if ($description =~ /1$/ && $v ne "0");
$sub_length .= qq|$subcategory_name| if ($description =~ /1$/);
if ($description =~ /1$/ && length($sub_length) > $subcat_length) {
$output .= qq|...|;
last;
}
else {
$output .= qq|, | if ($description =~ /1$/ && $v ne "0");
# 디스크립션 2일 경우 뿌려줌...삭제했음
# $output .= qq| | if ($description =~ /2$/ || $v eq "0");
# 디스크립션 2일 경우 띄워줌
# $output .= qq| | if ($description =~ /2$/);
$add_array = " $subcategory_name ";
@yahoo = (@yahoo, $add_array);
$v++;
}
}
$del_array = pop(@yahoo);
for ($h = 0;$h <= $v ; $h ++) {
$output .= $yahoo[$h];
}
$output .= qq| |;
$output .= qq|$subcategory_name |;
}
else {
$output .= qq|
$description
| if (!($description =~ /^[s
]*$/));
}
# 야후 카테고리 모드 추가 끝
# $output .= qq||;
}
# Don
t forget to end the unordered list..
$output .= "
";
return $output;
}
########################################################
# 해피 CGI 사이트맵 정보 끌어오기 끝
########################################################
바로 아래 한번더 붙입니다. (포럼장에 이 부분이 빠졌을것 같네요.)
########################################################
sub site_html_home {
# --------------------------------------------------------
# This routine will build a home page. It is not meant to have any
# links on it, only subcategories.
return &load_template (
home.html
, {
category => $category,
grand_total => $grand_total,
%globals
});
}
########################################################
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 %category) {
if ($subcat =~ m,^([^/]*)$,) {
push (@rootcat, $subcat);
}
}
print " Subcategories: "; print $#rootcat+1; print "
";
print " Total Links: $grand_total
";
print " Opening page: $build_root_path/sitemap.html
";
open (HOME, ">$build_root_path/sitemap.html") or &cgierr ("unable to open home page: $build_root_path/sitemap.html. Reason: $!");
$category = &site_html_print_cat3 (@rootcat) if ($#rootcat >= 0);
$total = $grand_total;
print HOME &site_html_home;
close HOME;
print " Closing page.
";
}
########################################################
sub build_all 루틴을 찾아봅니다.
# Create What
s New Page 바로 윗부분에 아래를 붙입니다.
########################################################
# 사이트 맵만들기
$use_html ?
print qq|Building 사이트 맵 . . .
| :
print qq|Building 사이트맵 . . .
|;
&build_sitemap_page;
print " Done
";
########################################################
메인페이지에서 하이퍼 링크는 메인/sitemap.html
로 하이퍼 링크를 걸면 됩니다.
부디 많이들 성공하시길 ....
80
1,220
2000-12-31 17:57:03
닉네임
