Okey. Jag har fortfarande inte lyckats löst problemet. :(
Mitt nyhetssystem finns på adressen www.gratiswebplats.nu/yohan/formular.htm
Mitt cgi-script ser ut så här:
#!/usr/bin/perl
$news = 'http://www.gratiswebplats.nu/yohan/news.txt';
@url = split(/&/,$ENV{'QUERY_STRING'});
foreach $i (0 .. $#url) {
$url[$i] =~ s/\+/ /g;
$url[$i] =~ s/%(..)/pack("c",hex($1))/ge;
$loc = index($url[$i],"=");
$key = substr($url[$i],0,$loc);
$val = substr($url[$i],$loc+1);
$url{$key} .= $val;
}
$url{'news'} =~ s/\n/<BR>/g;
@datum = localtime(time);
$datum = $datum[4]+1 . "/$datum[3]/$datum[5]";
$new = "<P><B><TT><FONT SIZE=\"+2\">$datum:</FONT></TT></B><FONT SIZE=\"+1\">$url{'news'}</FONT></P>\n";
open IN, $news;
@old = <IN>;
close IN;
open OUT, ">$news";
print OUT $new . join('',@old);
close OUT;
print "Location: <A HREF="http://www.gratiswebplats.nu/yohan/news.html\\n\\n";" TARGET=_blank>http://www.gratiswebplats.nu/yohan/news.html\\n\\n";</A>
------------------
H_A_Z_Z_E