#!/usr/bin/perl $guestfile = "guest.txt"; $catalog = "./data/"; sub printHtml{ print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "The Pages Guest Book\n"; print "\n"; print "\n"; print "\n"; print "

\n"; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "
 
 
 
 
 
\n"; print " 		\n"; print "

This is my guestbook, please leave a note telling \n"; print " me what you thought of it. Here are some other peoples messages.\n"; print "

To sign in this guest book, you can either press the book square to the \n"; print " left or you can press here\n"; print "

\n"; print "

" . &ShowGuests() . "

\n"; print "

\n"; print " \"home\"Mail\n"; print "

\n"; print "
\n"; print "

 

\n"; print "

 

\n"; print "

 

\n"; print "\n"; print "\n"; } sub HentFil { #inn argument 0 er katalogen 1 er filnavnet. #rutinen henter en fil og returner innholdet i en array #print "--> "; #print @_; my(@inn) = @_; my($Fil) = $inn[0] . $inn[1]; my(@Filarray); open(FIL, "$Fil") || die "Can't open $Fil. $!"; @Filarray = ; close(FIL); return @Filarray; } sub ShowGuests{ if(-e "$catalog$guestfile") { @DATA = &HentFil($catalog, $guestfile); } else { push(@DATA, "ingen har skrivet her enda, værsåsnill og skriv noe da vel.\n"); } print @DATA; return ""; } &printHtml();