#!/usr/bin/perl
# This perl program prints a special forbidden access page for blocked
# (by IP address) clients.
# Turn off space seperators when including arrays in quoted text.
$" = '';
print << "EOF";
Status: 403 Bad IP address
Content-type: text/html
You are not allowed access to this web site.
You are not allowed access to this web site.
Some things that might have gotten your IP address on my block list:
- Sending me spam.
- Sending me a virus.
- Being an ill behaved web robot.
Your IP address will almost certainly also be blocked from sending me
email. If you think this block is in error or that it should be lifted
because you have corrected the improper behavior, then you will need
to find some way to contact me about this and convince me to remove the
block. Spammers need not bother trying this.
EOF