#!/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/absolutedomainnames/cgi-bin/sub_checkurl.cgi"; require "/usr/www/users/fastadna/absolutedomainnames/cgi-bin/sub_302redirect.cgi"; require "/usr/www/users/fastadna/absolutedomainnames/cgi-bin/sub_checkbrowser.cgi"; require "/usr/www/users/fastadna/absolutedomainnames/cgi-bin/sub_logger.cgi"; # --- SPECIAL MAIL LOGGING CODE ######################################### require "/usr/www/users/fastadna/absolutedomainnames/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/absolutedomainnames/engineindexpages/index_normal.html"; $infoseek_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/ggse1-business-domain-names-for-sale.html"; $excite_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/se1-business-domain-names-for-sale.html"; $lycos_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/se1-business-domain-names-for-sale.html"; $generic_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/ggse1-business-domain-names-for-sale.html"; $altavista_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/se1-business-domain-names-for-sale.html"; $hotbot_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/se1-business-domain-names-for-sale.html"; $directhit_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/se1-business-domain-names-for-sale.html"; $nlsearch_page = "/usr/www/users/fastadna/absolutedomainnames/sp1/foodfl/se1-business-domain-names-for-sale.html"; # The following is the redirect location for the 302 redirect $normal = "http://www.absolutedomainnames.com/"; # Modify the following line with the absolute path to the ip file $ipfile="/usr/www/users/fastadna/absolutedomainnames/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;