<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Kommentarseite</title>
</head>
<body bgcolor="#E0E0E0">
<h1>Ihr Kommentar</h1>
<form action="comments.pl" method="post">
<p>Name:<br><input size="40" maxlength="40" name="AnwenderName"></p>
<p>Text:<br><textarea rows="5" cols="50" name="Kommentartext"></textarea></p>
<p><input type="submit" value="Absenden"></p>
</form>
</body>
</html>
Dies ist die HTML Datei mit den Formularfeldern! Einfach als name.html abspeichern.
-----------------------------------------------------------------------------------
DER CGI SCRIPT (Perl)
#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
(my $Name, my $Wert) = split(/=/, $Feld);
$Wert =~ tr/+/ /;
$Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$Wert =~ s/</</g;
$Wert =~ s/>/>/g;
$Formular{$Name} = $Wert;
}
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>CGI-Feedback vom Programm <i>comments.pl</i></h1>\n";
print "<p><b>Name:</b> $Formular{AnwenderName}</p>\n";
print "<p><b>Kommentartext:</b> $Formular{Kommentartext}</p>\n";
print "</body></html>\n";
Dies ist die CGI AUSGAbe. Sie nimmt lediglich nur die eingaben im Formularfeld ein und gibt diese aus. Die Datei einfach als comments.pl abspeichern und mit der HTML Datei in ein Verzeichnis auf eurem SPACE laden. ACHTUNG! EUer Server muss CGi/Perl unterstützen!
ICH HAFTE NICHT FÜR DIE DURCH DIESES SCRIPT ENTSTANDENEN FEHLER!
BEI RÜCKFRAGAEN eMail an hirbod_design@web.de
Danke
----------------------------------------------------------------------------------