The following Perl source code will allow you to specify the IP/domains you wish to allow usage of your script. If your script is executed form an IP/domain that is not contained in your list, then an error message will be outputted.

You may cut and paste the following code:

The above code is useful for scripts that can easily be called from another server (such as form-to-mail processors, redirection scripts, etc.). With this, you can prevent unauthorized use of your script and thus preventing unnecessary load to your web server.

-oOo-