Fellow Monks,

I am trying to write a simple web page that checks your IP address. If your ip address is okay (I have a list that is checked against), then the page allows you to log into the web site. If you IP address is not okay, then it should give the 404 error.

The login part, and address checking part is no biggie, simple stuff really. The tricky part is getting the 404 error to display in the browser. Here is the code snippit that I currently use to send back the 404 error. 

#!/bin/perl

use strict;
use warnings;

sub NotFound { return '404'; }

use CGI::Pretty;
use CGI::Carp qw(fatalsToBrowser);
$CGI::Pretty::INDENT = '  ';

my $WP = new CGI::Pretty;
print $WP->header(-status => &NotFound);

[download]

The code sends back the following. 

Status: 404
Content-type: text/html; charset=ISO=8859-1

[download]
but in a browser it sends a blank screen. A view source reveals the following... 
<html><body></body></html>

[download]

What I want it to send back is the normal 404 error page for the particular web browser that you are using. Click on this link 404 Error to see what I am after.

If anyone has had any experiance with this, then please let me know. I'd hate to be wasting my time on this.

Thanks yall

Kristofer Hoch

In reply to Send a Standard looking 404 error to unwanted vistors by krisahoch

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.