#!/usr/bin/perl
#!/usr/bin/perl
##########################################################
## Castle Links						##
## Created: 06/17/1999					##
##########################################################
# By: Castellum.net					##
# WebSite: www.castellum.net				##
##########################################################
##########################################################
# (C)Copyright 1999-2000 Castellum.net, All rights reserved	
##########################################################
# DISCLAIMER:						##
# THIS PROGRAM IS PROVIDED WITHOUT WARRANTIES OF ANY    ##
# KIND, WHETHER EXPRESSED OR IMPLIED.   THIS PROGRAM IS ##
# PROVIDED WIThOUT WARRANTIES AS TO PERFORMANCE, OR  	##
# MERCHANTABILITY OF THIS PROGRAM.			##
# TERMS OF USE:						##
# THIS SCRIPT MAY BE MODIFIED, BUT NOT REDISTRIBUTED IN	##
# ANY WAY, SHAPE, OR FORM.  IN ANY CASE, COPYRIGHT AND  ##
# SCRIPT INFORMATION MUST BE KEPT IN PLACE		##
##########################################################

require "global.pl";
&InitGlobalVariables;
&LoadSetup;
&LoadCategories;

my($top,$category1,$middle,$category2,$bottom) = split(/<!--CATEGORY-->/,&LoadTemplate("$t_dir/main.htm"));
&PrintStandardHeader;
print $top;

my $i = 1;
foreach $category (@categories){
my $description = $descriptions{"$category"};
my $count = $counts{"$category"};
my $title = $titles{"$category"};
my $url = &Encode("category.cgi?category=$category\&start=0");

if ($category =~ /^\/[\w\!\@\#\$\%\^\&\*\(\)\_\+\-\[\]\;\,\.\<\> ]+$/){
my $sub = "";
if ($i == 1){$sub = "$category1$middle"; $i = 2;}else{$sub = "$category2"; $i = 1;}
$sub =~ s/\$description/$description/gi;
$sub =~ s/\$link_count/$count/gi;
$sub =~ s/\$title/$title/gi;
$sub =~ s/\$path/$category/gi;
$sub =~ s/\$url/$url/gi;
print $sub;
}
}

print $bottom;

1;