#!/usr/bin/perl # Copyright 2001, by Robert Eveleigh vers. 1.0 # set testing to 1 to tell people about you are testting right now $testing = 1; # physical location of my Below main dir $belowMainDir = "/home/eveleigh.ca/"; # physical location of /home/eveleigh.ca/public_html/ substr($mainDir,0,0) = $belowMainDir; substr($mainDir,-1,1) = "/public_html/"; # physical location of log files data substr($testpl,0,0) = $mainDir; substr($testpl,-1,1) = "/test.pl"; require $testpl; $test = "test0"; &InternalError('Could not fork sendmail with -f switch'); $status = &test; $test = "test6"; &InternalError('Could not fork sendmail with -f switch'); $HostStartDir = "/sites/data/"; $HostFile = "/host.dat"; $HostURL = "error.eveleigh.ca"; $HostScripts = "/"; $redir = ""; $KloakitDir = "/home/eveleigh.ca/public_html/kloakit/"; #$KloakitDir = "/home/eveleigh.ca/public_html/"; $KloakitDataDir = $KloakitDir.data; $time = 3000; # physical location of /home/eveleigh.ca/public_html/sites/lib/ substr($cgiDir1,0,0) = $mainDir; substr($cgiDir1,-1,1) = "/sites/lib/"; # physical location of /home/eveleigh/ substr($mainDir1,0,0) = $belowMainDir; substr($mainDir1,-1,1) = "/html/"; ###################################################################### ############# NO EDITING NECESSARY BELOW HERE ######################## ###################################################################### ###################### MAIN PROGRAM ################################## ###################################################################### # physical location of the init_string and the sub init_disp substr($init_str,0,0) = $cgiDir1; substr($init_str,-1,1) = "/init_str.pl"; require $init_str; &init_startup; $error = 1; $status = &loadsub; if ($status == 1 ) { &goerror; } &InitFiles; # Detect if requestor is a robot or a normal person &detect; # Display normal page to normal person or entrance page to robot if ($isRobot eq 1) { $status = &robot; } else { $status = &normal; } if ($status == 1 ) { &goerror; } exit; ###################################################################### ww.dogtech.com/hosting.asp">Tampa Web Hosting and Florida Web Design This site hosted curtosy of Psend.com's Free Web Hosting. Psend is a division of Telos Online, Inc. Psend kept free because of these great sponsors.a..

Other Sponsors

electrical connectors, Mangosteen Juice, real estate short sale, Jupiter FL real estate,

Furniture Markdown

Great Deals on furniture - Free Shipping!
Discount Furniture
Daybeds
Metal Beds
Platform Beds
Futons

Y-Net Wireless Internet

Denver area high speed wireless privider.
Colorado High Speed Internet, Wireless Internet Denver, VOIP Denver CO, T1 provider Denver, Denver Wireless ISP , Denver Internet Access,

Dog House Technologies

Doghouse Techonologies is located in Tampa Bay FL and offer professional web design, ecommerce development and custom application design for the internet.
Tampa Bay Web Design, E-Commerce Web Design, Tampa Bay Search Engine Marketing, Tampa Web Hosting, Florida Web Design, Custom Application Development, Search Engine Optimization,