sub site_html_category_list {
my ($category) = @_;
my ($suburl, $output);

foreach (sort keys %category) {
next unless ($_ =~ m,^([^/]*)$,);
if ($category ne $_) {
$suburl = "$build_root_url/" . &urlencode($_) . "/";
$output .= qq~<a href="$suburl">$_<br>\n~;
}
}
return $output;
}

~; $output .= &site_html_category_list ($category_name_escaped); $output .= qq~

category_list => &site_html_category_list ($category_name_escaped),

# Create Tree Page
$use_html ?
print "Building <A HREF=\"$build_root_url/tree.html\">Tree</A> Page . . .\n" :
print "Building Tree Page . . .\n";
&build_tree_page;
print "Done\n\n";

sub build_tree_page {
# --------------------------------------------------------
# This routine builds a tree from all links/categories

my ($cat, $url, $dir, @related, $relation, $page_num, $next_page, $numlinks);
my ($linkstree, $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);

# set linkstree to 0 if you want only a tree off all categories
# set linkstree to 1 if you want a tree off all categories and links
$linkstree = 0;

$depth_old = 0;
$url = "$build_root_path/tree$build_extension";
open (CAT, ">$url") or &cgierr ("unable to open category page: $url. Reason: $!");

# Go through each category and build the appropriate page.
CATEGORY: foreach $cat (sort keys %category) {
next CATEGORY if ($cat =~ /^\s*$/); # How'd that get in here? =)

# We set up all the variables people can use in &site_html.pl.
($description, $related, $meta_name, $meta_keywords, $header, $footer) = @{$category{$cat}}[2..7];

$title_linked = &build_linked_title ($cat);
$title = &build_unlinked_title ($cat);
$total = ($#{$links{$cat}} + 1) / ($#db_cols + 1);
$category_name = $cat;
$category_name_escaped = &urlencode ($cat);
$category_clean = &build_clean ($cat);

$numlinks = ($#{$links{$cat}} + 1) / ($#db_cols + 1);
@categorylist = split (/\//, $cat);
$depth_new = $#categorylist;
$links = "";
if ($depth_new < $depth_old) {
for ($i = 0; $i <= ($depth_old - ($depth_new + 1)); $i++) {
$links .= "\n";
}
}

$links .= qq~\n<br><font face=Geneva,Helvetica,Arial size=2><strong><a href="$build_root_url/$cat/">$title</a></strong></font>~;
if ($linkstree == 1) {
for ($i = 0; $i < $numlinks; $i++) {
%tmp = &array_to_hash ($i, @{$links{$cat}});
$links .= &site_html_link (%tmp);
}
$links .= "\n";
}

print CAT $links;
$depth_old = $depth_new;
}

close CAT;
}

sub site_html_category_list {
my ($category) = @_;
my ($suburl, $output);
foreach (sort keys %category) {
next unless ($_ =~ m,^([^/]*)$,);
if ($category ne $_) {
$suburl = "$build_root_url/" . &urlencode($_) . "/";
$output .= qq~<a href="$suburl">$_</a> (~ . $stats{$_}[0] . qq~)<br>\n~;
}
}
return $output;
}

my $clean_category = &build_clean($category);

category_list => &site_html_category_list ($category_name_escaped),

category_list => &site_html_category_list ($clean_category),

#!/usr/local/bin/perl

##########
#Require Files
##########
require "/admin/links.cfg";

##########
#Assign Database File
##########
$db = "$db_script_path/data/categories.db";

##########
# Select Output File
##########
open (OUT, ">all-categories.incl") or
die "Couldn't open all-categories.incl \n";

select (OUT);

open (DB, $db) or
die "Couldn't open $db \n";

##########
# Search Database and Create @all_cat
##########

while (<DB> ) {
$current = $_;
chomp ($current);
($garbage1 , $sub_cat , $garbage2) = split (/\|/ , $current , 3);
push (@all_cats , $sub_cat);

}

close (DB);

sort @all_cats;

##########
# Create Category List
##########

foreach $cat (@all_cats) {
if ($cat !~ m/\//) {
$cat_name = $cat;
$catname =~ s/_/ /g;
print "<b> \n";
print "<a href=\"$build_root_url/$cat\">$cat_name</a> \n";
print "</b> \n";
print "<br> \n";
}
else {
($garbage3, $sub_name) = split (/\// , $cat , 2);
$sub_name =~ s/_/ /g;
print "<a href=\"$build_root_url/$cat\">$sub_name</a> \n";
print "<br> \n";
}
}

close (OUT);