75 lines
1.9 KiB
Perl
75 lines
1.9 KiB
Perl
#!/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 "<html><body bgcolor=\"#ffffff\">\n";
|
|
print "<font face=\"arial, verdana, times\" size=3>\n";
|
|
unless ($namn) {
|
|
print "<h3>You must enter your name!</h3>\n".
|
|
"<a href=\"../guestbook.html\">Back to form</a></html>\n";
|
|
die("Quitting...\n");
|
|
}
|
|
print "<h1> The following were entered:</h1>\n";
|
|
print "<b> Time: </b> $tid <br>\n";
|
|
print "<b> Full name: </b> $namn <br>\n";
|
|
print "<b> Mailadress:</b> <a href=\"mailto:$mailAdress\">$mailAdress</a><br>\n";
|
|
print "<b> Homepage: </b> <a href=\"$homePage\">$homePage</a><br>\n";
|
|
print "<b> Message: </b> $msg\n";
|
|
print "<br><br><a href=\"$fileName\">Look at it</a><br>\n";
|
|
print "</html>\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<hr>\n";
|
|
print UT "<b>Time: </b> $tid <br>\n";
|
|
print UT "<b>Full name: </b> $namn <br>\n";
|
|
if ($mailAdress) {
|
|
print UT "<b>Mailadress: </b>";
|
|
print UT "<a href=\"mailto:$mailAdress\">$mailAdress";
|
|
print UT "</a> <br>\n";}
|
|
if ($homePage) {
|
|
print UT "<b>Homepage: </b>";
|
|
print UT "<a href=\"$homePage\">$homePage</a><br>\n"; }
|
|
if ($msg) {
|
|
print UT "<b>Message: </b> $msg <br>\n"; }
|
|
|
|
#Stäng filen
|
|
close(UT);
|
|
|
|
|