PDA

View Full Version : Fel?? Var...?


Hazze
2000-03-04, 10:59
Jag har gjort ett litet nyhetssystem men jag får det inte att funka. Vad är felet?
Här är scriptet:

#!/usr/bin/perl
$news = '../news.txt';
@url = split(/&/,$ENV{'QUERY_STRING'});
foreach $i (0 .. $#url) {
$url[$i] =~ s/\+/ /g;
$url[$i] =~ s/%(..)/pack("c",he x($1))/ge;
$loc = inde x($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";

Ser inget större fel men när jag ska testa det så kommer det ett äckligt felmeddelande; "The Web server cannot find the file or script you asked for"

HJÄLP!

emission
2000-03-04, 12:07
Webbservern vill nog ha en absolut path i location-headern.