Also Ich habe ein Problem mit einem Script in CGI es sind 2 Fehler die Ich aber nicht zu beheben weiß. Vielleicht kann sich das mal einer angucken und mir helfen wenn jemand das Ding online ausprobieren möchte geht auf http://www.busenkumpels.net/eingabe.htm
Hier der Code:
Wäre nett wenn mir dazu jemand helfen könnte.
DANKE...
Hier der Code:
PHP:
#!/usr/bin/perl -w
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
my $topic = $cgi->param('ueberschrift');
my $thread = $cgi->param('text');
my $name = $cgi->param('name');
my $email = $cgi->param('email');
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat,
$Jahr) = localtime(time);
my $CTIME_String = localtime(time);
$Monat+=1;
$Monat = $Monat < 10 ? $Monat = "0".$Monat : $Monat;
$Monatstag = $Monatstag < 10 ? $Monatstag = "0".$Monatstag : $Monatstag;
$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;
$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;
$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
$Jahr+=1900;
my @NeuerEintrag;
push(@NeuerEintrag, "<!-- EINTRAG -->\n");
push(@NeuerEintrag, "<br><b>$topic</b> - von <a href='mailto:$email'>$name</a> - $Monatstag.$Monat.$Jahr, $Stunden:$Minuten:$Sekunden\n");
push(@NeuerEintrag, "<hr noshade size=1>\n");
push(@NeuerEintrag, "<br>$thread\n");
push(@NeuerEintrag, "<br>\n");
open(DATEI, ">news.htm") || die "File not found";
my @Zeilen = <DATEI>;
close(DATEI);
my @NeueZeilen;
my $Zeile;
foreach $Zeile (@Zeilen) {
if($Zeile =~ /<!-- EINTRAG -->/) {
foreach(@NeuerEintrag) {
push(@NeueZeilen,$_);
}
}
else {
push(@NeueZeilen,$Zeile);
}
}
open(DATEI, ">news.htm") || die "File not found";
print DATEI @NeueZeilen;
close(DATEI);
print "Content-type: text/html\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">', "\n";
print "<html><head><title>done.</title></head><body>\n";
print "<br><div align=center><b>done.</b><br>\n";
print "@NeuerEintrag\n";
print "</body></html>\n";
Wäre nett wenn mir dazu jemand helfen könnte.
DANKE...