Startpunkten

2026-03-05 13:31:50 +01:00
commit 86a20ae0e1
16 changed files with 1305 additions and 0 deletions
--- a/Lab3/cgi-bin/guestbook.cgi
+++ b/Lab3/cgi-bin/guestbook.cgi
@@ -0,0 +1,74 @@
+#!/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);
+
+