\n"; print "Mit dem Zurück-Button Ihres Browsers kommen"; print " Sie wieder zurück zur vorherigen Seite.\n"; print ""; exit; } sub kommentar_fehlt { print "Content-Type: text/html\n\n"; print "
\n";
print "Mit dem Zurück-Button Ihres Browsers kommen";
print " Sie wieder zurück zur vorherigen Seite.\n";
print "";
exit;
}
sub lesen
{
open(DATEI,"<$gaestebuchreal") || die "Fehler";
@gaestebuch = $FORM{'kommentar'}
\n";
if ($FORM{'email'})
{
print DATEI "\<$FORM{'email'}\>
\n";
}
else
{
print DATEI "
\n";
}
if ($FORM{'land'})
{
print DATEI "$FORM{'land'}";
}
if ($FORM{'ort'} || $FORM{'land'})
{
print DATEI "
\n";
}
print DATEI "$trennzeichen
\n";
if ($neu == 0)
{
print DATEI "\n";
}
}
print "Location: $gaestebuchvirtual\n\n";
sub meine_mail
{
local $text = &umbruch($FORM{'kommentar'},60);
open (MAIL, "|$mailprog $meine_adresse") || die "Fehler bei $mailprog!\n";
print MAIL "To: $meine_adresse\n";
print MAIL "Reply-to: $FORM{'email'}\n";
print MAIL "From: $FORM{'email'}\n";
print MAIL "Subject: $mein_betreff\n\n";
print MAIL "$FORM{'name'}\n";
print MAIL "$text\n";
close (MAIL);
}
sub umbruch
{
$_[0] =~ s/\n/ /g;
my @zeilen = split(/ /,$_[0]);
my $zaehler = 0;
my $string = '';
foreach(@zeilen)
{
$zaehler += length "$_";
if ($zaehler < $_[1])
{
$string.= "$_ ";
}
else
{
$string .= "\n$_ ";
$zaehler = length "$_";
}
}
return $string;
}
if ($danke_mail == 1 && $FORM{'email'})
{ &danke_mail; }
sub danke_mail
{
open (MAIL, "|$mailprog $FORM{'email'}") || die "Fehler bei $mailprog!\n";
print MAIL "To: $FORM{'email'}\n";
print MAIL "Reply-to: $FORM{'meine_adresse'}\n";
print MAIL "From: $FORM{'meine_adresse'}\n";
print MAIL "Subject: $danke_betreff\n\n";
print MAIL "Vielen Dank für ihren Eintrag.\n";
print MAIL "Bitte besuchen sie unsere Seiten ";
print MAIL "doch bald wieder.";
close (MAIL);
}