Sovok
Erfahrenes Mitglied
im zweiten teil stimmt irgendwas nich
der zeigt zwar die rückmeldung an aber er gibts nich an die guestbook.html weiter und speichert das ganze ned... wer weiß weßhalb?
#!/usr/bin/perl
# Gästebuch: Written by Sovok
# Copyright 2001 All Rights reserved
# Einbindung von Bibliotheken
require "cgi-lib.pl"; # Formularweiterverarbeitung
require "datum.pl"; # Datumsroutine
# Eigentlicher Code
$date = &ctime(time); # Systemzeit abrufen
chop($date); # Letztes Zeichen löschen
&parse_form; # Variablen verarbeiten
print "Content-type: text/html\n\n"; # Erzeuge Rückmeldung an User
# Inhalt der Rückmeldung
print "<HTML>\n";
print "<head><title>Danke für den Eintrag ins VFS-Gästebuch</title></head>\n";
print "<body>\n";
print "<center>\n";
print "<H2>Neuer Eintrag</H2>\n";
print "am $date<p>\n";
print "<HR>\n";
print "</center><p>\n";
print "Folgendes wurde angegeben::<p> \n";
print "<ul> \n";
print "<li>Name: <b>$in{'name'}</b> \n";
print "<li>Clan: <b>$in{'clan'}</b> \n";
print "<li>E-Mail: <b>$in{'email'}</b> \n";
print "<li>ICQ: <b>$in{'icq'}</b> \n";
print "<li>Ihr Kommentar: <br> \n";
print "<b>$in{'comment'}</b> \n";
print "<li>Deine Meinung zu unsrer Page: <b>$in{'rating'}</b> \n";
print "</ul><p> \n";
print "<B>Copyright 2001 by Sovok All Rights Reserved</B><p> \n";
print "</BODY>\n";
print "</HTML>\n";
$outfile = ">> http://www.ganjaboard.f2s.com/sovok/gb/guestbook.htm"; # Pfad der GB File
open(VFSGB, $outfile); # GB File wird geöffnet
# Eintrag wird gespeichert
print VFSGB "
<hr>
Am $date hat der CS-Süchtige <b>$in{'name'}</b> (email: <a href=mailto:$in{'email'}>$in{'email'}</a>)
vom Clan <b>\"$in{'clan'}\"</b> folgendes in unser Gästebuch geschrieben.<p>
Seine ICQnr.: <b>$in{'icq'}</b>
<p>
<ul>
Er hält die Page für<b>\"$in{'rating'}\"</b>.
</ul>
Und hier noch sein Kommentar:<br>
\"<b>$in{'comments'}</b>\"
";
close(VFSGB); # Datei schließen
der zeigt zwar die rückmeldung an aber er gibts nich an die guestbook.html weiter und speichert das ganze ned... wer weiß weßhalb?
#!/usr/bin/perl
# Gästebuch: Written by Sovok
# Copyright 2001 All Rights reserved
# Einbindung von Bibliotheken
require "cgi-lib.pl"; # Formularweiterverarbeitung
require "datum.pl"; # Datumsroutine
# Eigentlicher Code
$date = &ctime(time); # Systemzeit abrufen
chop($date); # Letztes Zeichen löschen
&parse_form; # Variablen verarbeiten
print "Content-type: text/html\n\n"; # Erzeuge Rückmeldung an User
# Inhalt der Rückmeldung
print "<HTML>\n";
print "<head><title>Danke für den Eintrag ins VFS-Gästebuch</title></head>\n";
print "<body>\n";
print "<center>\n";
print "<H2>Neuer Eintrag</H2>\n";
print "am $date<p>\n";
print "<HR>\n";
print "</center><p>\n";
print "Folgendes wurde angegeben::<p> \n";
print "<ul> \n";
print "<li>Name: <b>$in{'name'}</b> \n";
print "<li>Clan: <b>$in{'clan'}</b> \n";
print "<li>E-Mail: <b>$in{'email'}</b> \n";
print "<li>ICQ: <b>$in{'icq'}</b> \n";
print "<li>Ihr Kommentar: <br> \n";
print "<b>$in{'comment'}</b> \n";
print "<li>Deine Meinung zu unsrer Page: <b>$in{'rating'}</b> \n";
print "</ul><p> \n";
print "<B>Copyright 2001 by Sovok All Rights Reserved</B><p> \n";
print "</BODY>\n";
print "</HTML>\n";
$outfile = ">> http://www.ganjaboard.f2s.com/sovok/gb/guestbook.htm"; # Pfad der GB File
open(VFSGB, $outfile); # GB File wird geöffnet
# Eintrag wird gespeichert
print VFSGB "
<hr>
Am $date hat der CS-Süchtige <b>$in{'name'}</b> (email: <a href=mailto:$in{'email'}>$in{'email'}</a>)
vom Clan <b>\"$in{'clan'}\"</b> folgendes in unser Gästebuch geschrieben.<p>
Seine ICQnr.: <b>$in{'icq'}</b>
<p>
<ul>
Er hält die Page für<b>\"$in{'rating'}\"</b>.
</ul>
Und hier noch sein Kommentar:<br>
\"<b>$in{'comments'}</b>\"
";
close(VFSGB); # Datei schließen