#!/usr/bin/perl require ("cgi-lib.pl") or die "Could not open or find cgi-lib.pl\n"; # declare variables $current_ip = "nothing"; $filename = "links.txt"; $temp = ""; # call initial functions &Get_request_types; &Analyse_file; ######################################################################### sub Get_request_types { &ReadParse(*input); $name_in = ($input{'name'}); } ######################################################################### sub Analyse_file { print &Header; print &Top("test"); $output = "STDOUT"; ## open links file for reading and determine whether current entries match ## the given one - if yes then it is not printed to the temp links file. open (LOGFILE, ") { ($category, $name, $url, $desc) = split(' : ', $line); if ($name_in eq $name) { ## print output form with fields filled in print $output "
\n"; print $output "\n"; print $output "\n"; print $output "Name
\n"; print $output "

URL
\n"; print $output "

Description

\n"; print $output "\n"; print $output "

"; } } close (LOGFILE); print &Bottom; } ######################################################################### #_____Module Returns the Output Document Type______# sub Header { return "Content-type: text/html\n\n"; } #_____Module Returns the Output Document Head_______# sub Top { my ($title) = @_; return <<"ENDPRINT"; acheron.org // admin / banner statistics

ENDPRINT } #_____Module Returns the Output Document Bottom______# sub Bottom { return "

\n"; }