#!/usr/local/bin/perl ############################################ ## ## ## WebAdverts (Configuration) ## ## by Darryl Burgdorf ## ## (e-mail burgdorf@awsd.com) ## ## ## ## version: 2.15 ## ## last modified: 3/22/00 ## ## copyright (c) 2000 ## ## ## ## latest version is available from ## ## http://awsd.com/scripts/ ## ## ## ############################################ # The following variables should be set to define the locations # and URLs of various files, as explained in the documentation. $display_path = "/home/wearsthe/www/ads/ads_display.pl"; $adverts_dir = "/home/wearsthe/www/ads/data"; $display_cgi = "http://www.wearsthebaby.com/ads/ads.cgi"; $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;