#!/usr/bin/perl #!/usr/bin/perl ########################################################## ## Castle Links ## Created: 06/17/1999 ########################################################## # By: Castle CGI # WebSite: www.castellum.net ########################################################## ########################################################## # (C)Copyright 1999-2001 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 ########################################################## use Fcntl qw(:DEFAULT :flock); ################################## ## LOAD SETUP INTO LOCAL %setup ## ################################## my %setup = (); open(SETUP, "clinks_setup.pl")||&TrueDie("Opening clinks_setup.pl: $!"); while(){ chomp; my($name,$value) = split(/=/); $setup{$name} .= $value; } close(SETUP); my $t_dir = $setup{'template_dir'}; ################################### ## LOAD CATEGORIES ################################### my %sort = (); my $category_options = ''; open(CATS, "$setup{'category_file'}")||&Error("Opening $setup{'category_file'}: $!"); if ($setup{'flock'} == 1){flock(CATS,LOCK_SH);} while(){ chomp; my($title,$count,$path,$addto,$desc) = split(/\|\|/); $sort{$path} = $_; push(@sort,$path); } if ($setup{'flock'} == 1){flock(CATS,8);} close(CATS); foreach my $category (sort(keys %sort)){ $category_options .= ""; } ################################### ## LOAD TEMPLATE ################################### open(MASTER, "$t_dir/master.htm")||&DieNice("Openeing: $t_dir/master.htm"); my($temp1,$temp2) = split(/!INSERT!/,join('',)); close(MASTER); open(TEMPLATE, "$t_dir/main.htm")||&DieNice("Opening: $file -- $!"); my $html = $temp1 . join('',