nph_build.cgi¸¦ ¿­¾î¼­

build_links_tree ¼­ºê·çƾÀ» ¾Æ·¡·Î ¹Ù²Ù¼¼¿ä.

sub build_links_tree {

# --------------------------------------------------------

# This routine builds a tree from all links.

 my ($cat, $url, $dir, @related, $relation,
$numlinks, $output, @categorylist, $depth_old, $depth_new);

 local ($category, $links, $title_linked, $title, $total, $category_name,
$category_name_escaped);

 local ($description, $related, $meta_name, $meta_keywords, $header, $footer,
$next, $prev);

# Create the links tree.

 $url = "$build_root_path/tree.html";


 open (CAT, ">$url") or &cgierr ("unable to open
category page: $url. Reason: $!");

$output = &build_tree_top;

print CAT $output;

 $depth_old = 0;

$output = &build_tree_bottom;

# Go through each category

 CATEGORY: foreach $cat (sort keys