This makes my server generate a 404 header:
#!/usr/bin/perl print "Status: 404 Not Found\n\n";
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
$,=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[$%++]}
In reply to Re: HTTP Errors and perl
by chargrill
in thread HTTP Errors and perl
by Eagle_f90
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |