Startpunkten
This commit is contained in:
224
Lab3/cgi-bin/entries.html
Normal file
224
Lab3/cgi-bin/entries.html
Normal file
@@ -0,0 +1,224 @@
|
||||
<HTML>
|
||||
|
||||
<font face="arial, verdana, times" size=3>
|
||||
|
||||
<body bgcolor="#ffffff">
|
||||
|
||||
<h1>Guestbook entries</h1>
|
||||
|
||||
<a href="../guestbook.html">Back to form</a><br>
|
||||
|
||||
<br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Thu Dec 2 11:53:17 1999 <br>
|
||||
|
||||
<b>Full name: </b> Christian Ohlsson <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:di7chro@cse.kau.se">di7chro@cse.kau.se</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://www.cse.kau.se/~di7chro">http://www.cse.kau.se/~di7chro</a><br>
|
||||
|
||||
<b>Message: </b> Hejsan och mycket varmt välkommen till denna skojsiga
|
||||
|
||||
gästbok! Eftersom jag fullständigt stödjer OpenSource
|
||||
|
||||
finns koden på: http://www.cse.kau.se/~di7chro/
|
||||
|
||||
Klicka på Borland C++, C_och_UNIX, Lab2, cgi-bin. Filen
|
||||
|
||||
heter guestbook.cgi <br><i>Ha det gött!</i> <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Thu Dec 2 12:25:48 1999 <br>
|
||||
|
||||
<b>Full name: </b> Per-Ove Ringaby <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:peri@iname.com">peri@iname.com</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://www.kau.se/~di7perr">http://www.kau.se/~di7perr</a><br>
|
||||
|
||||
<b>Message: </b> Hej på dig <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Fri Dec 3 11:46:05 1999 <br>
|
||||
|
||||
<b>Full name: </b> Stefan Sonesson <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:di7stes@cse.kau.se">di7stes@cse.kau.se</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://surf.to/sone">http://surf.to/sone</a><br>
|
||||
|
||||
<b>Message: </b> SuperSone he's our man,<br>if he can't do it,<br>noone can. <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Fri Dec 3 14:58:28 1999 <br>
|
||||
|
||||
<b>Full name: </b> Mari <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:mari@techie.com">mari@techie.com</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://">http://</a><br>
|
||||
|
||||
<b>Message: </b> Live long and prosper... <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Fri Dec 3 15:02:14 1999 <br>
|
||||
|
||||
<b>Full name: </b> Jessica <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:Jessica@puuh.com">Jessica@puuh.com</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://">http://</a><br>
|
||||
|
||||
<b>Message: </b> Tjena chrillan! <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Sat Dec 4 19:20:40 1999 <br>
|
||||
|
||||
<b>Full name: </b> kaffepiller <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:kaffepiller@blåkaffepiller.kaffepiller">kaffepiller@blåkaffepiller.kaffepiller</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://">http://</a><br>
|
||||
|
||||
<b>Message: </b> ta kaffepiller <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Mon Dec 6 12:45:26 1999 <br>
|
||||
|
||||
<b>Full name: </b> Stefan Pettersson <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:cool_eddy@hotmail.com">cool_eddy@hotmail.com</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://">http://</a><br>
|
||||
|
||||
<b>Message: </b> Jag tycker att Dia Psalma "rules" med sin första skiva.
|
||||
|
||||
Har inte hört dom andra så jag kan inte säga nåt om dom. <br>
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Mon Dec 6 18:47:33 1999 <br>
|
||||
|
||||
<b>Full name: </b> Patric Nilsson <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:biltjuv@hotmail.com">biltjuv@hotmail.com</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="come.to/romarea">come.to/romarea</a><br>
|
||||
|
||||
<b>Message: </b> Tja!
|
||||
|
||||
Bra sida!
|
||||
|
||||
skitbra men alla cd covers och tabs...
|
||||
|
||||
<br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Tue Dec 7 14:38:12 1999 <br>
|
||||
|
||||
<b>Full name: </b> Fredri "The Unkmaister" Unkuri <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:Cluzake@hotmail.com">Cluzake@hotmail.com</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="http://www.????.???/????.se">http://www.????.???/????.se</a><br>
|
||||
|
||||
<b>Message: </b> Underbar hemsida fantastiskt skön
|
||||
|
||||
I LOVE DIA PSALMA <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Fri Dec 10 11:57:23 1999 <br>
|
||||
|
||||
<b>Full name: </b> Edyta Piasecka <br>
|
||||
|
||||
<b>Message: </b> vad skall jag skriva? Skall vi städa ..... ikväll?
|
||||
|
||||
<br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Fri Dec 10 12:01:47 1999 <br>
|
||||
|
||||
<b>Full name: </b> Nicke <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:Niklas.Nikitin@kau.se">Niklas.Nikitin@kau.se</a> <br>
|
||||
|
||||
<b>Message: </b> Test <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Fri Dec 10 12:02:09 1999 <br>
|
||||
|
||||
<b>Full name: </b> Nicke (igen) <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:Niklas.Nikitin@kau.se">Niklas.Nikitin@kau.se</a> <br>
|
||||
|
||||
<b>Message: </b> Test <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Mon Dec 13 12:35:42 1999 <br>
|
||||
|
||||
<b>Full name: </b> Zvintolina <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:lucifers_bride@hotmail.com">lucifers_bride@hotmail.com</a> <br>
|
||||
|
||||
<b>Message: </b> AAAHHHH, Dia Psalma rules!! helt klart...fin sida, lite tom gästbok...men skitsamma. puzz till alla dia psalma fans
|
||||
|
||||
vi hörs!!!!! <br>
|
||||
|
||||
|
||||
|
||||
<hr>
|
||||
|
||||
<b>Time: </b> Fri Dec 17 02:17:12 1999 <br>
|
||||
|
||||
<b>Full name: </b> CP-åke - din vän <br>
|
||||
|
||||
<b>Mailadress: </b><a href="mailto:skit i det">skit i det</a> <br>
|
||||
|
||||
<b>Homepage: </b><a href="skit i det oxå">skit i det oxå</a><br>
|
||||
|
||||
<b>Message: </b> Fan du verkar ju totalt jävla sänkt. Speciellt med det här att du gillar "webdesign". För det första kan du ju ingenting, för det andra sitter din smak uppstoppad långt upp i röven. SKÄRPNING! <br>
|
||||
|
||||
|
||||
|
||||
74
Lab3/cgi-bin/guestbook.cgi
Normal file
74
Lab3/cgi-bin/guestbook.cgi
Normal file
@@ -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);
|
||||
|
||||
|
||||
Reference in New Issue
Block a user