Re: HTTP Errors and perl

This makes my server generate a 404 header:

#!/usr/bin/perl

print "Status: 404 Not Found\n\n";
[download]

Note, the page will be blank unless you specify some content for the "Not Found" page.

$ telnet www.chargrill.com 80
Trying 69.136.244.189...
Connected to chargrill.com.
Escape character is '^]'.
GET /404.cgi HTTP/1.0
Host: www.chargrill.com

HTTP/1.1 404 Not Found
Date: Sat, 29 Apr 2006 20:54:33 GMT
Connection: close
Content-Type: text/plain
[download]

--chargrill

$,=42;for(34,0,-3,9,-11,11,-17,7,-5){$*.=pack'c'=>$,+=$_}for(reverse s
+plit//=>$*
){$%++?$ %%2?push@C,$_,$":push@c,$_,$":(push@C,$_,$")&&push@c,$"}$C[$#
+C]=$/;($#C
>$#c)?($ c=\@C)&&($ C=\@c):($ c=\@c)&&($C=\@C);$%=$|;for(@$c){print$_^
+$$C[$%++]}
[download]

Comment on Re: HTTP Errors and perl Select or Download Code

Replies are listed 'Best First'.
Re^2: HTTP Errors and perl by Eagle_f90 (Acolyte) on Apr 29, 2006 at 21:33 UTC
I have tryed the status header also and the same problem, linkchecking programs and the IIS logs still recive a 200 OK status and not the 404 Not Found status.	[reply]