nicht angemeldet
Hallo,
Also mein Problem ist das ich ein Script habe, daß zwar tadellos funktioniert, aber leider nicht neu ladet. Ich will, daß nach jedem Eintrag die Seite neu ladet und zB "Eintrag gepostet" da steht.
Bis jetzt schreibt das Script den "Eintrag gepostet" Text nach dem senden unter das Textareafeld. Falls mir jemand einen kleinen Tip geben könnte, wäre ich sehr dankbar. Ich poste zur Sicherheit auch das Script hier.
Danke schon mal im Vorraus.
#!/usr/bin/perl -w
use CGI;
$query = new CGI;
$counter = 0;
$zeit = localtime;
&page_start;
print "<h2 align="center">Eingabe</h2>\n";
print "<form>\n";
print "<textarea name="text" rows="10" cols="40"></textarea><br>\n";
print "<input type="submit" value="SEND">\n";
if ($query->param('text')) {
$text = $query->param('text');
open(ZAEHLER,">>counter.txt") or die "Zaehler kann nicht geoeffnet werden : $!\n";
flock ZAEHLER, 2;
print ZAEHLER "a";
close ZAEHLER;
open(ZAEHLER,"<counter.txt") or die "Zaehler kann nicht geoeffnet werden : $!\n";
while (<ZAEHLER>)
{
while (/a/g)
{
$counter++;
}
}
$dateiname = 'text'.$counter.'.txt';
open (FILE,">$dateiname") or die "Kann neue Datei nicht oeffnen : $!\n";
print FILE $zeit."\n";
print FILE $text;
close FILE;
print "<br><font size=+2 align="center">Eintrag gepostet</font><br>\n";
}
&page_end;
sub page_start {
print $query->header;
print "<html>\n<head>\n<title>Eingabe</title>\n</head>\n<body>\n";
}
sub page_end {
print "</body>\n</html>\n";
}