nicht angemeldet
Hier der Link zum GB
http://tinyurl.com/y9xrvvd
das script mit dem redirect hab ich nicht mehr, ich poste jetzt einfach mal das komplette Script:
#!/usr/local/bin/perl -w
gb.pl
Gästebuch
use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
my $c = new CGI;
my @werte = $c->param();
my @zeilen;
my @a;
my ($name, $text, $i, $test, $count);
my ($date, $datecom, $ip);
my ($Sekunden, $Minuten, $Stunden, $Monatstag, $Monat, $Jahr, $Wochentag, $Jahrestag, $Sommerzeit) = localtime(time);
$name=$c->param("name");
$text=$c->param("text");
Datum, Zeit und IP
$ENV{'PATH'} = '/usr/bin';
$ip=$ENV{'REMOTE_ADDR'};
$datecom = "/bin/date";
$date = $datecom +"%d.%m.%Y";
chop ($date);$Stunden = $Stunden < 10 ? $Stunden = "0".$Stunden : $Stunden;$Minuten = $Minuten < 10 ? $Minuten = "0".$Minuten : $Minuten;$Sekunden = $Sekunden < 10 ? $Sekunden = "0".$Sekunden : $Sekunden;
### Start ###
### prüfen ob text leer ###
if ( $text eq "") {
print $c->header();
print '
<html>
<head>
<META HTTP-EQUIV="refresh" CONTENT="3;URL=http://url/gbook.htm">
</head>
<body>
<br><br><br><br><br>
<p align="center"><b>Sie haben keinen Text eingegeben!</b></p>
<p align="center">Sie werden zum Gästebuch weitergeleitet...</p>
</body>
</html>
';
}
else {
### prüfen ob name leer ###
if ( $name eq "") { $name = "unbekannt" }
### gbook.htm lesen ###
open (gb, "</pfad/gbook.htm") or die "gbook.htm kann nicht geoeffnet werden!";
flock (gb, 2);
#@zeilen = split(/./, <gb>);
@zeilen = <gb>;
close gb or die "gb.txt kann nicht geschlossen werden!";
### gbook.htm schreiben ###
open (gb, ">/pfad/gbook.htm") or die "gbook.htm kann nicht geoeffnet werden!";
flock (gb, 2);
foreach $i (@zeilen) {
@a = split(/#/, $i);
if ( $a[1] eq "start" ) {
$count = $a[2];
$count += 1;
print gb '<!--#start#'.$count.'-->'; print gb "\n";
print gb '<tr><td colspan="2"><hr size="2" width="100%"></td></tr>'; print gb "\n";
print gb '<tr><td align="right" width="60"><b>Name:</b></td><td><b>'.$name.'</b></td></tr>';
print gb "\n";
print gb '<tr><td align="right" width="60"><b>Datum:</b></td><td><b>'.$date.' um '.$Stunden.':'.$Minuten.'</b></td></tr>';
print gb "\n";
print gb '<tr><td align="right" width="60"><b>Browser:</b></td><td><b>'.$c->user_agent().'</b></td></tr>';
print gb "\n";
print gb '<tr><td align="center" width="60"><b>#'.$count.'</b></td><td>'.$text.'</td></tr>'; print gb "\n";
}
else {
print gb "$i";
}
}
close gb or die "gb.txt kann nicht geschlossen werden!";
### log-datei schreiben ###
open (logf, ">>/pfad/gblog.txt") or die "Kann gblog-Datei nicht oeffnen!";
flock (logf, 2);
print logf "$date#$Stunden:$Minuten:$Sekunden#$name#$ip\n";
close logf or die "Kann gblog-Datei nicht schliessen!";
### HTML ###
Header
#print $c->header('Location: http://url/gbook.htm');
print $c->header();
print '
<html>
<head>
<META HTTP-EQUIV="refresh" CONTENT="0;URL=http://url/gbook.htm">
</head>
</html>';
}
Struppi