#!/usr/local/bin/perl5

#######################################################################################
# Search Engine IP Delivery Redirect AKA:"The Food Script"                            #
# Copyright (C) 1997,1998,1999 Beyond Engineering All Rights Reserved                 #
# Resale and distribution strictly prohibited                                         #
# Food Script (TM) Perl Version 4.1 beta  -  Last Modified 8/25/99                    #
# Note: Users of this script must have a purchase agreement on file with              #
# Beyond Engineering.                                                                 #
#######################################################################################
# See http://www.beyond.cc/ipdelivery/license.html for additional license information #
#######################################################################################
require "/usr/www/users/fastadna/ablazedomains-net/cgi-bin/sub_checkurl.cgi";
require "/usr/www/users/fastadna/ablazedomains-net/cgi-bin/sub_302redirect.cgi";
require "/usr/www/users/fastadna/ablazedomains-net/cgi-bin/sub_checkbrowser.cgi";
require "/usr/www/users/fastadna/ablazedomains-net/cgi-bin/sub_logger.cgi";

# --- SPECIAL MAIL LOGGING CODE #########################################
require "/usr/www/users/fastadna/ablazedomains-net/cgi-bin/sub_alert.cgi";
$domain = 'http://'.$ENV{'SERVER_NAME'};
$version = '082599';
# --- END SPECIAL MAIL LOGGING CODE #####################################

# Enter the absolute path to your searchengine pages below

$normal_page = "/usr/www/users/fastadna/ablazedomains-net/engineindexpages/index_normal.html";
$infoseek_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/ggfflon-internet-domain-name.html";
$excite_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/fflon-internet-domain-name.html";
$lycos_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/fflon-internet-domain-name.html";
$generic_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/ggfflon-internet-domain-name.html";
$altavista_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/fflon-internet-domain-name.html";
$hotbot_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/fflon-internet-domain-name.html";
$directhit_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/fflon-internet-domain-name.html";
$nlsearch_page = "/usr/www/users/fastadna/ablazedomains-net/foodfl/fflon-internet-domain-name.html";


# The following is the redirect location for the 302 redirect

$normal = "http://www.ablazedomains.com";


# Modify the following line with the absolute path to the ip file

$ipfile="/usr/www/users/fastadna/ablazedomains-net/cgi-bin/new_ips.txt";


# To disable the browser detection system, change the following line to $nobrowser=1;
$nobrowser=2;

$directory = $0;
$directory =~ s#/[^/]*$##;
$program = $0;
$program =~ s#^.*/##;
$directory="." if ($directory eq $program);
unshift(@INC, $directory);
$TimeStamp = localtime(time);
########### -----  SPECIAL LOGGING CODE CALL ----- ######################################
# Comment out the next line to turn the logging feature off
&logger;
######################
&check_browser;
&check_url;
&redirect;
########### -----  SPECIAL MAILING CODE CALL ----- ######################################
# Comment out the next line to turn alert feature off
&alert;
########### -----  END SPECIAL MAILING CODE CALL - ######################################
exit;