#!/usr/bin/perl # ############################################### # # Laboration 3 i C & UNIX # Gästbok skriven i Perl # # Christian Ohlsson, di7chro@cse.kau.se # Karlstads Universitet 991123 # # ############################################### #Initiera CGI-hanteringen use CGI; $query = new CGI; #Hämta parametrar från formuläret $namn=$query->param('namn'); $mailAdress=$query->param('mailAdress'); $homePage=$query->param('homePage'); $msg=$query->param('msg'); #Hämta in tiden då besöket gjordes $tid=localtime(time); #Filen med gästboks-inskrivningarna $fileName="entries.html"; #Berätta för web-servern att HTML kod kommer print "Content-type:text/html\n\n"; #Skriv ut inmatade värden på skärmen print "\n"; print "\n"; unless ($namn) { print "

You must enter your name!

\n". "Back to form\n"; die("Quitting...\n"); } print "

The following were entered:

\n"; print " Time: $tid
\n"; print " Full name: $namn
\n"; print " Mailadress: $mailAdress
\n"; print " Homepage: $homePage
\n"; print " Message: $msg\n"; print "

Look at it
\n"; print "\n"; #Öppna filen unless (open(UT, ">> $fileName")) { print "Error, cannot open file $fileName\n"; close(UT); die("Error opening file\n"); } #Skriv data i fil print UT "\n

\n"; print UT "Time: $tid
\n"; print UT "Full name: $namn
\n"; if ($mailAdress) { print UT "Mailadress: "; print UT "$mailAdress"; print UT "
\n";} if ($homePage) { print UT "Homepage: "; print UT "$homePage
\n"; } if ($msg) { print UT "Message: $msg
\n"; } #Stäng filen close(UT);