Hi,
ich habe das script für ein abgeändertes Gästebuch. Funzt prima, aber ich hätte gerne die ersten Einträge oben und die letzten unten und nicht umgekehrt.
hat jemand ne Ahnung?
Hier ist das script:
Code:
# Get the form variables
if ($ENV{'REQUEST_METHOD'} eq 'GET')
{
$querystring = $ENV{'QUERY_STRING'};
}
else
{
read(STDIN, $querystring, $ENV{'CONTENT_LENGTH'});
}
@arrnameval = split(/&/, $querystring);
foreach $namval (@arrnameval)
{
($nam, $val) = split(/=/, $namval);
# replace + with space
$val =~ tr/+/ /;
# translate hex values
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$FORMDATA{$nam} = $val;
}
$title = $FORMDATA{'yourtitle'};
$title =~ s/<[^>]*>//g;
$url = $FORMDATA{'yoururl'};
$url =~ s/<[^>]*>//g;
$category = $FORMDATA{'category'};
$category =~ s/<[^>]*>//g;
# Read guestbook content
open(FREELINKS,"$freelinks");
@arrfreelinks = <FREELINKS>;
close(FREELINKS);
#Save back new content
open(FREELINKS,">$freelinks");
foreach $line (@arrfreelinks)
{
print FREELINKS "$line";
if ($line =~ "--newentries$category--")
{
print FREELINKS "\n<font face=arial size=2> - <a href=$url target=new>$title</a></font><br>\n";
}
}
close(FREELINKS);
print "Content-type: text/html\n";
$flinks = "$freelinksurl\n\n";
print qq(Location: $flinks);
return; gruß jojo