#!/usr/bin/perl use CGI::Carp (fatalsToBrowser); # and URLs of various files, as explained in the documentation. $display_path = "/home/chevalwe/www/old/webadverts_files/ads_display.pl"; $adverts_dir = "/home/chevalwe/www/old/webadverts_files/"; $display_cgi = "http://www.cheval-web.net/webadverts_files/ads.pl"; $advertzone = ""; $ADVUseLocking = 1; $ADVUseCookies = 1; $CheckForCookie = 1; $GraphicTimestamp = 0; $ADVLogIP = 1; $ADVResolveIPs = 0; $DupViewTime = 0; $DupClickTime = 0; $ADVRandomizeList = 1; $DefaultBanner = ""; $IgnoredIPs = ""; $RequireMember = 0; # $Ztext = ""; # $Zalt = ""; # $Ztarget = ""; # $Zwidth = ""; # $Zheight = ""; # $Zborder = ""; $ExchangeName = "WebScripts Advertisers"; $ExchangeURL = ""; $ExchangeLogo = ""; $ExchangeLogoWidth = 60; $ExchangeLogoHeight = 60; $ExchangeLogoPosition = ""; $ExchangeBannerWidth = 468; $ExchangeBannerHeight = 60; # NOTHING BELOW THIS LINE NEEDS TO BE ALTERED! unless ($ADVNoPrint) { if ($ARGV[0]) { $ADVQuery = $ARGV[0]; } else { $ADVQuery = $ENV{'QUERY_STRING'}; } } if ($ADVUseCookies && $CheckForCookie && ($ADVQuery =~ /page=/) && ($ADVQuery !~ /advert=/) && ($ADVQuery !~ /banner=/) && ($ENV{'HTTP_COOKIE'} !~ /TestCookie=TestValue/) && ($ADVQuery !~ /checkforcookie/)) { print "Set-Cookie: TestCookie=TestValue\n"; print "location: $display_cgi?$ADVQuery;checkforcookie\n\n"; exit; } elsif ($CheckForCookie && ($ENV{'HTTP_COOKIE'} !~ /TestCookie=TestValue/)) { $ADVUseCookies = 0; } require $display_path; &ADVsetup; unless ($ADVNoPrint) { reset 'A-Za-z'; exit; } 1;