$update = "February 3rd, 2018"; # routine.lib - ldb.co.uk ##### sub header { print "Content-type: text/html\n\n"; print <<"HTML code"; Lichfield Web Design, Web Site Hosting, help for Businesses, Payroll, Plant Hire, NAS, Free
Web Design 
web design and hosting.
   
    Welcome - HELLO and


spider
  HTML code } ##### sub footer { print <<"HTML code"; Top of Page
Last updated: $update
Published by:  Lichfield Web Design
 
HTML code exit; } ##### sub invalidreq { &header; print "

\n"; print "\n"; print "There is an error on the form at the moment\n"; print "

\n"; print "\n"; print ">>>>>   $fault\n"; print "

\n"; print "
\n"; print "Hit the button below to return to the page from which you came.
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "

\n"; &footer; exit; } ##### sub getonwithit { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); if (length($buffer) < 5) { $buffer = $ENV{QUERY_STRING}; } @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $input{$name} = $value; } } #####