¾È³çÇϼ¼¿ä? ¿µ¿õ´Ô.
¿µ¿î´ÔÀÌ ÁöÀûÇÑ ´ë·Î À§ ÄÚµå´Â ¾à°£ ºÒÆíÇÑ µ¥°¡ ÀÖ½À´Ï´Ù. ±×·¡¼­
Ä«Å×°í¸® À̵¿ MOD´Â ¸çÄ¥Àü¿¡ ¾÷µ¥ÀÌÆ®½ÃÄ×½À´Ï´Ù.
À̹øÁÖ¸» Áß¿¡ »õ·Î¿î Çѱ۸µ½º¸¦ °ø°³ÇÒ °ÍÀÔ´Ï´Ù.

¾÷µ¥ÀÌÆ®µÈ Ä«Å×°í¸® À̵¿¿¡ °üÇÑ °ÍÀº ´ÙÀ½°ú °°½À´Ï´Ù.
¼öÁ¤ÇÒ ÆÄÀÏÀº site_html_templates.pl°ú nph-build.cgiÀÔ´Ï´Ù.
site_html_templates:
1´Ü°è:
%globals = ( ###´ÙÀ½ Äڵ带 Ãß°¡ÇÕ´Ï´Ù.
go_top_category => &go_top_category,
....)
¸Ç ¸¶Áö¸· ºÎºÐ¿¡ ´ÙÀ½ Äڵ带 Ãß°¡ÇÕ´Ï´Ù.
sub top_cat_select_list {
# --------------------------------------------------------
  my (@subcat) = @_;
  my $output;
                         
  CAT: foreach $subcat (sort @subcat) {
    if (@exclude_categories) {
      foreach (@exclude_categories) {
        ($subcat =~ m,.*/([^/] )$,) and next CAT;
      }
    }
    $category_name = &build_clean($subcat);
    $output .= qq&pip;  $category_name
&pip;;
  }
  return $output;
}
sub go_top_category {
# --------------------------------------------------------
  my $cat_select_list;
  open (SELECT, "<$db_script_path/data/top_cat_select.txt")
    or &cgierr("$db_script_path/data/top_cat_select.txt¸¦ ¿­ ¼ö ¾øÀ½. ¿øÀÎ: $!");
  while ( )
    { $cat_select_list .= $_; }
  close SELECT;
  return $cat_select_list;
}
nph-build.cgi:
# Generate detailed view pages.
    if ($build_detailed) {
# À§ ÄÚµå ¹Ù·Î À§¿¡ ´ÙÀ½ ÄÚµå Ãß°¡.
  if (@exclude_categories) {
    print "ÃÖ»óÀ§ Ä«Å×°í¸® À̵¿ ¼±Åøñ·ÏÀ» ¸¸µå´Â Áß . . .
";
    &build_top_category_select_list;
    print " ¿Ï·á.

";
  }
  else {
    print "¼±Åà ¸ñ·ÏÀ» ¸¸µéÁö ¸øÇÔ.
";
    print "±âº» Ä«Å×°í¸® ¸ñ·ÏÀ» »ç¿ëÇÕ´Ï´Ù.

";
  }
ÆÄÀÏÀÇ ¸Ç ¸¶Áö¸·¿¡ ´ÙÀ½ ¼­ºê·çƾ Ãß°¡.
sub build_top_category_select_list {
# --------------------------------------------------------
  my ($subcat, @rootcat);
  my $cat_select_list = $db_script_path . "/data/top_cat_select.txt";
  print " ÆÄÀÏÀ» ¿©´Â Áß: $cat_select_list
";
  open (SELECT, ">$cat_select_list") or
    &cgierr ("$cat_select_list¸¦ ¿­ ¼ö ¾øÀ½. ¿øÀÎ: $!");
  print SELECT qq&pip;
ÃÖ»óÀ§ Ä«Å×°í¸® À̵¿
------------------
&pip;;
  foreach $subcat (sort keys