 |
|
|
|
 |
|
||
 |
 |
|
|
 |
|
||
|
||||
|
Hôtel :
Contact : Anne-Marie.VERNOUX@wanadoo.fr
|
||||
|
||||
|
- Les Haras
Nationaux
|
||||
 |
 |
 |
 |
|
 |
 |
 |
 |
|
 |
 |
 |
||
|
|
||||
 |
|
|
|
|
|
 |
#!/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;
|
 |
|
||
 |
|
||||
 |
 |
|
|||
 |
|
||||
 |
 |
 |
[an error occurred while processing this directive]