nyhet.cgi

Jag har skrivit ett nyhetssystem som bara inte vill fungera! Om man fyller i mitt forumulär på http://www.gratiswebplats.nu/yohan/formular.htm och trycker spara kommer ett kontsigt felmedelande. Testa själva.

Här är koden:
#!/usr/bin/perl
$news = '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: news.html\n\n";

Hoppas nån kan hitta felet :)

------------------
H_A_Z_Z_E