#!/usr/bin/perl # You may set these to your image and url. This will be displayed when no other # banner is able to be displayed... $default_img = "http://www.pimall.com/banner/Mailsleuth-outlook.gif"; $default_url = "http://www.emailsleuth.com"; # If you are runing this script on a NT Server, dont worry about the line above. # If you are running this script on a Unix Server, put the path to perl above. ################################################################################ # # # ############################################ # # ## ## # # ## Ads Pro ## # # ## by MHF Media ## # # ## (e-mail support@mhfmedia.com) ## # # ## ## # # ## Windows NT & UNIX ## # # ## copyright (c) 2003 ## # # ## Chris Bruce ## # # ## ## # # ## latest version is available from ## # # ## MHF Media ## # # ## http://www.mhfmedia.com ## # # ## ## # # ############################################ # # # ################################################################################ # Do not Edit anything below this line without prior consent!!! # Copyright (C) MHF 2003 ################################################################################ # COPYRIGHT NOTICE: # # By using this code you agree to indemnify Chris Bruce from any liability # # that might arise from its use. # # Copyright © 2002 MHF Media All Rights Reserved. # # You may not change any of the code on any of my scripts below the # # configurable variables... Any alterations will be considered a violation # # of copyright laws and you agree that reasonable compensation shall be # # awarded if these laws are violated... # # # # Contact my attorneys for further information: # # http://www.antolinezmiller.com # ################################################################################ $| = 1; $file_dir = "//NAWINFS02/home/users/web/b124/rh.cibirjoe/cgi-bin/files"; $windows = 'Yes'; # This will help to not currupt files by accessing them at the same time... Alot of NT # servers do not support "file locking" so this wont do anything for you if you get a # lot of hits on your site, file locking is a must. Or, your bound to currupt the fies # it uses. "Enable" to use it and "Disable" to not. $file_lock = "Enable"; use Fcntl ':flock'; &get_date; if ($ENV{'QUERY_STRING'} ne "") { $temp = $ENV{'QUERY_STRING'}; } else { read(STDIN, $temp, $ENV{'CONTENT_LENGTH'}); if ($ENV{'CONTENT_LENGTH'} == 0) { &no_content; exit; } } @pairs=split(/&/,$temp); foreach $item(@pairs){ ($key,$content)=split (/=/,$item,2); $content=~tr/+/ /; $content=~ s/%(..)/pack("c",hex($1))/ge; $fields{$key}=$content; } &get_admin_config; if ($fields{'type'} eq "click"){&click;} else{&view;} exit; sub get_date { @days = ('Sunday','Monday','Tuesday','Wednesday', 'Thursday','Friday','Saturday'); @months = ('01','02','03','04','05','06','07', '08','09','10','11','12'); ($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6]; $time = sprintf("%02d:%02d:%02d",$hour,$min,$sec); $year = $year - 100; $year = "0$year"; if ($hour < "10"){$hour = "0$hour";} if ($mday < "10"){$mday = "0$mday";} $date = "$months[$mon]/$mday/$year"; } sub get_cookie { $a_unique = (); @cookies = split (/; /, $ENV{HTTP_COOKIE}); foreach $cookie (@cookies) { ($name, $value) = split (/=/, $cookie); $cookies{$name} = $value; } if ($cookies{s_return}){ $a_unique = "no"; print "Content-type: text/html\n\n"; } else { $a_unique = "yes"; &set_cookie; print "Content-type: text/html\n\n"; } } sub set_cookie { $s_unique = "true"; print "Set-Cookie: "; print "s_return=$s_unique; expires=Mon, 01-Jan-2040 00:00:00 GMT\n"; } sub get_admin_config { if ($file_lock eq "Enable") { open (LOCK1, "> $file_dir/admin_config.lck") or die "Can't open LOCK"; flock (LOCK1, LOCK_EX) or die "Can't lock FILE"; } open (ADMINCONFIG, "< $file_dir/admin_config.txt") or die "Can't open $file_dir/admin_config.txt"; if ($file_lock eq "Enable") { flock ADMINCONFIG, LOCK_EX; } $line = ; chomp $line; ($admin_password, $admin_email, $mailprog, $server, $listperpage, $display_powered, $display_powered_advert, $aff_id, $admin_url, $advertiser_url, $search_url, $dhtml_url, $help_url, $ads_url, $images_url) = split /\|/, $line; close ADMINCONFIG; if ($file_lock eq "Enable") { close LOCK1; } if ($aff_id eq ""){$aff_id = "11112";} } sub click { $campaign = "$fields{'campaign'}"; $advertiser = "$fields{'advertiser'}"; $banner = "$fields{'banner'}"; $btext_url = ""; $bhtml_target = ""; &count_main_click; &count_campaign_click; &count_advertiser_click; &count_banner_click; if ($file_lock eq "Enable") { open (LOCK2, "> $file_dir/campaigns/$campaign/advertisers.lck") or die "Can't open LOCK"; flock (LOCK2, LOCK_EX) or die "Can't lock FILE"; } open (CHECK_E, "< $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; @alns = ; foreach $aln(@alns) { chomp $aln; ($cadvertiser_id, $cexpire, $cexpire_d, $cexpire_v, $cexpire_c) = split /\|/, $aln; if ($cadvertiser_id eq $advertiser){ $expire_d = $cexpire_d; $expire_v = $cexpire_v; $expire_c = $cexpire_c; $expire = $cexpire; } } close CHECK_E; if ($file_lock eq "Enable") { close LOCK2; } &check_advertiser_status; if ($fields{'text'}){ if($t_url eq ""){$t_url = "$b_url";} print "Location: $t_url", "\n\n"; } else { print "Location: $b_url", "\n\n"; } exit; } sub view { &get_cookie; if ($fields{'campaign'} eq ""){$campaign = "1";} $campaign = "$fields{'campaign'}"; if ($fields{'refresh'}){$reload = "";} &check_campaign_status; &select_banner; &show_banner; unless ($advertiser eq ""){ &count_main_view; &count_campaign_view; &count_advertiser_view; &check_advertiser_status; } } sub check_advertiser_status { $expired = "No"; if ($expire eq "2"){ $expire_type = "By Date"; $expire_cond = "After $expire_d"; ($c_month, $c_day, $c_year) = split /\//, $expire_d; unless (($c_year > $year) || ($c_year == $year && $c_month > $months[$mon]) || ($c_year == $year && $c_month == $months[$mon] && $c_day >= $mday)) { $expired = "Yes"; if ($file_lock eq "Enable") { open (LOCK3, "> $file_dir/advertisers/$advertiser/details.lck") or die "Can't open LOCK"; flock (LOCK3, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER, "< $file_dir/advertisers/$advertiser/details.txt") or die "Can't open $file_dir/advertisers/$advertister/details.txt"; @alns = ; foreach $aln(@alns) { chomp $aln; ($advertiser_id, $account_name, $advertiser_login, $advertiser_pass, $advertiser_name, $advertiser_email, $login_ok, $date_created, $advertiser_street, $advertiser_city, $advertiser_state, $advertiser_zip, $advertiser_country, $advertiser_phone, $advertiser_cell, $advertiser_fax, $impression_rate, $click_rate) = split /\|/, $aln; } close ADVERTISER; if ($file_lock eq "Enable") { close LOCK3; } if ($file_lock eq "Enable") { open (LOCK4, "> $file_dir/advertisers/$advertiser/stats.lck") or die "Can't open LOCK"; flock (LOCK4, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER, "< $file_dir/advertisers/$advertiser/stats.txt") or die "Can't open $file_dir/advertisers/$advertister/stats.txt"; @alns = ; foreach $aln(@alns) { chomp $aln; ($eviews, $eclicks) = split /\|/, $aln; } close ADVERTISER; if ($file_lock eq "Enable") { close LOCK4; } if ($file_lock eq "Enable") { open (LOCK5, "> $file_dir/campaigns/$campaign/details.lck") or die "Can't open LOCK"; flock (LOCK5, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN, "< $file_dir/campaigns/$campaign/details.txt") or die "Can't open $file_dir/campaigns/$campaign/details.txt"; @clns = ; foreach $cln(@clns) { chomp $cln; ($campaign_name, $campaign_id, $date_created, $status, $l_views, $l_clicks) = split /\|/, $cln; } close CAMPAIGN; if ($file_lock eq "Enable") { close LOCK5; } if ($file_lock eq "Enable") { open (LOCK6, "> $file_dir/campaigns/$campaign/advertisers.lck") or die "Can't open LOCK"; flock (LOCK6, LOCK_EX) or die "Can't lock FILE"; } open (REMOVEADVERT, "< $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; @lines = ; close(REMOVEADVERT); @new_records = (); foreach $line (@lines) { chomp $line; ($cadvertiser_id, $cexpire_d) = split /\|/, $line; unless ($advertiser eq $cadvertiser_id){ push @new_records, $line . "\n"; } } open (RLINES, "> $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; seek RLINES, 0, 0; truncate RLINES, 0; print RLINES @new_records; close RLINES; if ($file_lock eq "Enable") { close LOCK6; } $ectr = "N/A"; unless (($eviews == "0") || ($eclicks == "0")){ $ectr = sprintf("%.2f%", (($eclicks / $eviews) * 100)); } while ($eclicks =~ s/(.*\d)(\d\d\d)/$1,$2/) {} while ($eviews =~ s/(.*\d)(\d\d\d)/$1,$2/) {} } } ############################################## if ($expire eq "3"){ $expire_type = "By Views"; $expire_cond = "After $expire_v Views"; if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER, "< $file_dir/advertisers/$advertiser/stats.txt") or die "Can't open $file_dir/advertisers/$advertister/stats.txt"; @alns = ; foreach $aln(@alns) { chomp $aln; ($eviews, $eclicks) = split /\|/, $aln; } close ADVERTISER; if ($file_lock eq "Enable") { close LOCK; } if ($expire_v <= $eviews) { $expired = "Yes"; if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/details.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER, "< $file_dir/advertisers/$advertiser/details.txt") or die "Can't open $file_dir/advertisers/$advertister/details.txt"; @alns = ; foreach $aln(@alns) { chomp $aln; ($advertiser_id, $account_name, $advertiser_login, $advertiser_pass, $advertiser_name, $advertiser_email, $login_ok, $date_created, $advertiser_street, $advertiser_city, $advertiser_state, $advertiser_zip, $advertiser_country, $advertiser_phone, $advertiser_cell, $advertiser_fax, $impression_rate, $click_rate) = split /\|/, $aln; } close ADVERTISER; if ($file_lock eq "Enable") { close LOCK; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/details.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN, "< $file_dir/campaigns/$campaign/details.txt") or die "Can't open $file_dir/campaigns/$campaign/details.txt"; @clns = ; foreach $cln(@clns) { chomp $cln; ($campaign_name, $campaign_id, $date_created, $status, $l_views, $l_clicks) = split /\|/, $cln; } close CAMPAIGN; if ($file_lock eq "Enable") { close LOCK; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/advertisers.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (REMOVEADVERT, "< $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; @lines = ; close(REMOVEADVERT); @new_records = (); foreach $line (@lines) { chomp $line; ($cadvertiser_id, $cexpire_d) = split /\|/, $line; unless ($advertiser eq $cadvertiser_id){ push @new_records, $line . "\n"; } } open (RLINES, "> $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; seek RLINES, 0, 0; truncate RLINES, 0; print RLINES @new_records; close RLINES; if ($file_lock eq "Enable") { close LOCK; } $ectr = "N/A"; unless (($eviews == "0") || ($eclicks == "0")){ $ectr = sprintf("%.2f%", (($eclicks / $eviews) * 100)); } while ($eclicks =~ s/(.*\d)(\d\d\d)/$1,$2/) {} while ($eviews =~ s/(.*\d)(\d\d\d)/$1,$2/) {} } } ############################################## if ($expire eq "4"){ $expire_type = "By Clicks"; $expire_cond = "After $expire_c Clicks"; if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER, "< $file_dir/advertisers/$advertiser/stats.txt") or die "Can't open $file_dir/advertisers/$advertister/stats.txt"; @alns = ; foreach $aln(@alns) { chomp $aln; ($eviews, $eclicks) = split /\|/, $aln; } close ADVERTISER; if ($file_lock eq "Enable") { close LOCK; } if ($expire_c eq $eclicks) { $expired = "Yes"; if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/details.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER, "< $file_dir/advertisers/$advertiser/details.txt") or die "Can't open $file_dir/advertisers/$advertister/details.txt"; @alns = ; foreach $aln(@alns) { chomp $aln; ($advertiser_id, $account_name, $advertiser_login, $advertiser_pass, $advertiser_name, $advertiser_email, $login_ok, $date_created, $advertiser_street, $advertiser_city, $advertiser_state, $advertiser_zip, $advertiser_country, $advertiser_phone, $advertiser_cell, $advertiser_fax, $impression_rate, $click_rate) = split /\|/, $aln; } close ADVERTISER; if ($file_lock eq "Enable") { close LOCK; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/details.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN, "< $file_dir/campaigns/$campaign/details.txt") or die "Can't open $file_dir/campaigns/$campaign/details.txt"; @clns = ; foreach $cln(@clns) { chomp $cln; ($campaign_name, $campaign_id, $date_created, $status, $l_views, $l_clicks) = split /\|/, $cln; } close CAMPAIGN; if ($file_lock eq "Enable") { close LOCK; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/advertisers.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (REMOVEADVERT, "< $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; @lines = ; close(REMOVEADVERT); @new_records = (); foreach $line (@lines) { chomp $line; ($cadvertiser_id, $cexpire_d) = split /\|/, $line; unless ($advertiser eq $cadvertiser_id){ push @new_records, $line . "\n"; } } open (RLINES, "> $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; seek RLINES, 0, 0; truncate RLINES, 0; print RLINES @new_records; close RLINES; if ($file_lock eq "Enable") { close LOCK; } $ectr = "N/A"; unless (($dviews == "0") || ($eclicks == "0")){ $ectr = sprintf("%.2f%", (($eclicks / $eviews) * 100)); } while ($eclicks =~ s/(.*\d)(\d\d\d)/$1,$2/) {} while ($eviews =~ s/(.*\d)(\d\d\d)/$1,$2/) {} } } if ($expired eq "Yes"){ $ehtml = <<"(END HTML)";

An Advertiser has expired from the following Campaign!

Campaign:   $campaign_name
Campaign ID:   $campaign_id
Expiration Type:   $expire_type
Expiration Condition:   $expire_cond
   
Advertisers ID:   $advertiser_id
Advertisers Name:   $account_name
Advertisers Email:   $advertiser_email
   

 Below are the statistics for this Advertiser: $account_name

Views   Clicks   CTR%
$eviews   $eclicks   $ectr

Automatically Generated:
$date $time

(END HTML) $to = "$admin_email"; $from = "$admin_email"; $subject = "Advertiser ID: $advertiser_id Has Expired From Campaign ID: $campaign_id!"; if ($windows eq 'Yes') { &send_message; } else { open (MAIL, "|$mailprog -t") || die ("couldn't open $mailprog! \n"); print MAIL "Content-type:text/html\n"; print MAIL "From: $from\n"; print MAIL "To: $to\n"; print MAIL "Subject: $subject\n"; print MAIL "\n"; print MAIL "$ehtml"; close MAIL; } } } sub show_banner { if ($fields{'type'} eq 'iframe') { if ($reload) { print "$reload"; } if ($fields{'color'}) { print ""; } if ($display_powered eq "Enable") { print "
Advertising Powered By Ads Pro
"; } print <<"(END HTML)"; $html_banner (END HTML) } elsif ($fields{'type'} eq 'java') { $html_banner =~ s/\r\n/\n/gs; $html_banner =~ s/\r/\n/gs; if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/temp.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (TEMP, ">$file_dir/temp.txt") or die "Can't open Temp File"; seek TEMP, 0, 0; truncate TEMP, 0; if ($display_powered eq "Enable") { print TEMP "
Advertising Powered By Ads Pro
"; } print TEMP "$html_banner"; close TEMP; open (TEMP, "< $file_dir/temp.txt") or die "Can't OPEN $file_dir/temp.txt"; @lines = ; foreach $line (@lines) { chomp $line; print <<"(END HTML)"; document.writeln('$line'); (END HTML) } close TEMP; if ($file_lock eq "Enable") { close LOCK; } } elsif ($fields{'type'} eq 'ssi') { if ($display_powered eq "Enable") { print "
Advertising Powered By Ads Pro
"; } print <<"(END HTML)"; $html_banner (END HTML) } } sub select_banner { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/advertisers.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER, "< $file_dir/campaigns/$campaign/advertisers.txt") or die "Can't open $file_dir/campaigns/$campaign/advertisers.txt"; @members = ; close ADVERTISER; if ($file_lock eq "Enable") { close LOCK; } srand; $array = $members[int rand(@members)]; chomp $array; @slink = split (/\|/, $array); $advertiser = $slink[0]; $expire = $slink[1]; $expire_d = $slink[2]; $expire_v = $slink[3]; $expire_c = $slink[4]; unless ($advertiser eq ""){ $found_html = "no"; $open_dir = "$file_dir/advertisers/$advertiser/banners"; opendir(DIR, $open_dir); @dirs = readdir(DIR); foreach $dir(@dirs){ unless (($dir =~ /^\.+$/) || ($dir =~ m/.lck/)){ $found_html = "yes"; } } closedir(DIR); if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/banners.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (SADVERTISER, "< $file_dir/advertisers/$advertiser/banners.txt") or die "Can't open $file_dir/advertisers/$advertiser/banners.txt"; if ($file_lock eq "Enable") { flock SADVERTISER, LOCK_EX; } @lines = ; if (@lines){ $found_static = "yes"; } else{ $found_static = "no"; } close SADVERTISER; if ($file_lock eq "Enable") { close LOCK; } } else {$found_html = "no";$found_static = "no";} if (($found_html eq "yes") && ($found_static eq "yes")){ @banners = ('static','html'); $hbanner = $banners[int rand(@banners)]; } elsif (($found_html eq "no") && ($found_static eq "yes")){ $hbanner = "static"; } elsif (($found_html eq "yes") && ($found_static eq "no")){ $hbanner = "html"; } elsif (($found_html eq "no") && ($found_static eq "no")){ $hbanner = "none"; } if ($hbanner eq "html"){ $htmlbanner = $dirs[int rand(@dirs)]; while (($htmlbanner =~ /^\.+$/) || ($htmlbanner =~ m/.lck/)){ $htmlbanner = $dirs[int rand(@dirs)]; last unless (($htmlbanner =~ /^\.+$/) || ($htmlbanner =~ m/.lck/)); } $banner = $htmlbanner; if ($file_lock eq "Enable") { open (LOCK_B, "> $file_dir/advertisers/$advertiser/banners/$banner.lck") or die "Can't open LOCK"; flock (LOCK_B, LOCK_EX) or die "Can't lock FILE"; } open (HADVERTISER, "< $file_dir/advertisers/$advertiser/banners/$banner") or die "Can't open $file_dir/advertisers/$advertiser/banners/$banner.txt"; @html_banner = ; foreach $line (@html_banner) { chomp $line; if ($html_banner){ $html_banner .= "$line"; push @new_html, $html_banner; } else { $html_banner = "$line"; push @new_html, $html_banner; } } close HADVERTISER; if ($file_lock eq "Enable") { close LOCK_B; } } elsif ($hbanner eq "static"){ if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/banners.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (SADVERTISER, "< $file_dir/advertisers/$advertiser/banners.txt") or die "Can't open $file_dir/advertisers/$advertiser/banners.txt"; if ($file_lock eq "Enable") { flock SADVERTISER, LOCK_EX; } @html_banners = ; close SADVERTISER; if ($file_lock eq "Enable") { close LOCK; } $array = $html_banners[int rand(@html_banners)]; chomp $array; @slink = split (/\|/, $array); $id = $slink[0]; $name = $slink[1]; $html_img = $slink[2]; $html_target = $slink[3]; $html_frame = $slink[4]; $html_width = $slink[5]; $html_height = $slink[6]; $html_border = $slink[7]; $html_alternate = $slink[8]; $html_text = $slink[9]; $text_url = $slink[10]; $html_img_tags = $slink[11]; $views = $slink[12]; $clicks = $slink[13]; if (($html_width) && ($html_height)){$html_size = "width=\"$html_width\" height=\"$html_height\"";} if ($text_url eq "http://"){$text_url = $html_target;} if ($html_frame eq ""){$html_frame = "_blank";} elsif ($html_frame eq "_self"){$html_frame = "_blank";} $target_url = "$ads_url?type=click&campaign=$campaign&advertiser=$advertiser&banner=$id"; $target_text_url = "$ads_url?type=click&campaign=$campaign&advertiser=$advertiser&banner=$id&text=1"; if ($fields{'type'} eq "java"){$html_img_tags = "";} $html_banner = <<"(END HTML)";
$html_alternate
$html_text
(END HTML) &count_banner_view; } if ($hbanner eq "none"){ #the only reason this banner will be called is if an advertiser is called that does not #have any banners. This prevents an error page! $html_banner = <<"(END HTML)";

(END HTML) } } sub count_banner_click { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/banners.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (BANNER_CLICK_R, "< $file_dir/advertisers/$advertiser/banners.txt") or die "Can't open $file_dir/advertisers/$advertiser/banners.txt"; if ($file_lock eq "Enable") { flock BANNER_CLICK_R, LOCK_EX; } @records_banner_c = ; @new_records_banner_c = (); foreach $record_banner_c (@records_banner_c) { chomp $record_banner_c; ($bhtml_id, $bhtml_name, $bhtml_img, $bhtml_target, $bhtml_frame, $bhtml_width, $bhtml_height, $bhtml_border, $bhtml_alternate, $bhtml_text, $btext_url, $bhtml_img_tags, $bb_views, $bb_clicks) = split /\|/, $record_banner_c; if ($banner eq $bhtml_id) { $bb_clicks++; $new_rec_banner_c = $bb_clicks; $new_record_banner_c = "$bhtml_id|$bhtml_name|$bhtml_img|$bhtml_target|$bhtml_frame|$bhtml_width|$bhtml_height|$bhtml_border|$bhtml_alternate|$bhtml_text|$btext_url|$bhtml_img_tags|$bb_views|$new_rec_banner_c"; $b_url = "$bhtml_target"; $t_url = "$btext_url"; $record_banner_c = $new_record_banner_c; } $record_banner_c .= "\n"; push @new_records_banner_c, $record_banner_c; } close BANNER_CLICK_R; open (BANNER_CLICK_W, "> $file_dir/advertisers/$advertiser/banners.txt") or die "Can't open $file_dir/advertisers/$advertiser/banners.txt"; if ($file_lock eq "Enable") { flock BANNER_CLICK_W, LOCK_EX; } seek BANNER_CLICK_W, 0, 0; truncate BANNER_CLICK_W, 0; print BANNER_CLICK_W @new_records_banner_c; close BANNER_CLICK_W; if ($file_lock eq "Enable") { close LOCK; } } sub count_advertiser_click { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERT_C_R, "< $file_dir/advertisers/$advertiser/stats.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats.txt"; @records_advert_c = ; foreach $record_advert_c (@records_advert_c) { chomp $record_advert_c; ($aviews_advert_c, $aclicks_advert_c) = split /\|/, $record_advert_c; $aclicks_advert_c++; } close ADVERT_C_R; open (ADVERT_C_W, "> $file_dir/advertisers/$advertiser/stats.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats.txt"; seek ADVERT_C_W, 0, 0; truncate ADVERT_C_W, 0; print ADVERT_C_W "$aviews_advert_c|$aclicks_advert_c"; close ADVERT_C_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") { open (ADVERT_C_CREATE, "> $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt"; print ADVERT_C_CREATE "0|0"; close ADVERT_C_CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERT_C_DAY_R, "< $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt"; @records_advert_c_day = ; foreach $record_advert_c_day (@records_advert_c_day) { chomp $record_advert_c_day; ($mviews_advert_c_day, $mclicks_advert_c_day) = split /\|/, $record_advert_c_day; $mclicks_advert_c_day++; } close ADVERT_C_DAY_R; open (ADVERT_C_DAY_W, "> $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt"; seek ADVERT_C_DAY_W, 0, 0; truncate ADVERT_C_DAY_W, 0; print ADVERT_C_DAY_W "$mviews_advert_c_day|$mclicks_advert_c_day"; close ADVERT_C_DAY_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") { open (ADVERT_C_CREATE, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; print ADVERT_C_CREATE "0|0"; close ADVERT_C_CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERT_C_MONTH_R, "< $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; @records_advert_c_month = ; foreach $record_advert_c_month (@records_advert_c_month) { chomp $record_advert_c_month; ($mviews_advert_c_month, $mclicks_advert_c_month) = split /\|/, $record_advert_c_month; $mclicks_advert_c_month++; } close ADVERT_C_MONTH_R; open (ADVERT_C_MONTH_W, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; seek ADVERT_C_MONTH_W, 0, 0; truncate ADVERT_C_MONTH_W, 0; print ADVERT_C_MONTH_W "$mviews_advert_c_month|$mclicks_advert_c_month"; close ADVERT_C_MONTH_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") { open (CREATE, "> $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERT_C_HOUR_R, "< $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt"; @records_advert_c_hour = ; foreach $record_advert_c_hour (@records_advert_c_hour) { chomp $record_advert_c_hour; ($mviews_advert_c_hour, $mclicks_advert_c_hour) = split /\|/, $record_advert_c_hour; $mclicks_advert_c_hour++; } close ADVERT_C_HOUR_R; open (ADVERT_C_HOUR_W, "> $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt"; seek ADVERT_C_HOUR_W, 0, 0; truncate ADVERT_C_HOUR_W, 0; print ADVERT_C_HOUR_W "$mviews_advert_c_hour|$mclicks_advert_c_hour"; close ADVERT_C_HOUR_W; if ($file_lock eq "Enable") { close LOCK; } } sub count_campaign_click { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_C_R, "< $file_dir/campaigns/$campaign/stats.txt") or die "Can't open $file_dir/campaigns/$campaign/stats.txt"; @records_campaign_c = ; foreach $record_campaign_c (@records_campaign_c) { chomp $record_campaign_c; ($cviews_campaign_c, $cclicks_campaign_c) = split /\|/, $record_campaign_c; $cclicks_campaign_c++; } close CAMPAIGN_C_R; open (CAMPAIGN_C_W, "> $file_dir/campaigns/$campaign/stats.txt") or die "Can't open $file_dir/campaigns/$campaign/stats.txt"; seek CAMPAIGN_C_W, 0, 0; truncate CAMPAIGN_C_W, 0; print CAMPAIGN_C_W "$cviews_campaign_c|$cclicks_campaign_c"; close CAMPAIGN_C_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") { open (CREATE, "> $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_C_DAY_R, "< $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt"; @records_campaign_c_day = ; foreach $record_campaign_c_day (@records_campaign_c_day) { chomp $record_campaign_c_day; ($mviews_campaign_c_day, $mclicks_campaign_c_day) = split /\|/, $record_campaign_c_day; $mclicks_campaign_c_day++; } close CAMPAIGN_C_DAY_R; open (CAMPAIGN_C_DAY_W, "> $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt"; seek CAMPAIGN_C_DAY_W, 0, 0; truncate CAMPAIGN_C_DAY_W, 0; print CAMPAIGN_C_DAY_W "$mviews_campaign_c_day|$mclicks_campaign_c_day"; close CAMPAIGN_C_DAY_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") { open (CREATE, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_C_MONTH_R, "< $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; @records_campaign_c_month = ; foreach $record_campaign_c_month (@records_campaign_c_month) { chomp $record_campaign_c_month; ($mviews_campaign_c_month, $mclicks_campaign_c_month) = split /\|/, $record_campaign_c_month; $mclicks_campaign_c_month++; } close CAMPAIGN_C_MONTH_R; open (CAMPAIGN_C_MONTH_W, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; seek CAMPAIGN_C_MONTH_W, 0, 0; truncate CAMPAIGN_C_MONTH_W, 0; print CAMPAIGN_C_MONTH_W "$mviews_campaign_c_month|$mclicks_campaign_c_month"; close CAMPAIGN_C_MONTH_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") { open (CREATE, "> $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_C_HOUR_R, "< $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt"; @records_campaign_c_hour = ; foreach $record_campaign_c_hour (@records_campaign_c_hour) { chomp $record_campaign_c_hour; ($mviews_campaign_c_hour, $mclicks_campaign_c_hour) = split /\|/, $record_campaign_c_hour; $mclicks_campaign_c_hour++; } close CAMPAIGN_C_HOUR_R; open (CAMPAIGN_C_HOUR_W, "> $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt"; seek CAMPAIGN_C_HOUR_W, 0, 0; truncate CAMPAIGN_C_HOUR_W, 0; print CAMPAIGN_C_HOUR_W "$mviews_campaign_c_hour|$mclicks_campaign_c_hour"; close CAMPAIGN_C_HOUR_W; if ($file_lock eq "Enable") { close LOCK; } } sub count_main_click { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats_campaigns.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_C_R, "< $file_dir/stats_campaigns.txt") or die "Can't open $file_dir/stats_campaigns.txt"; @records_main_c = ; foreach $record_main_c (@records_main_c) { chomp $record_main_c; ($mviews_main_c, $mclicks_main_c) = split /\|/, $record_main_c; $mclicks_main_c++; } close MAIN_C_R; open (MAIN_C_W, "> $file_dir/stats_campaigns.txt") or die "Can't open $file_dir/stats_campaigns.txt"; seek MAIN_C_W, 0, 0; truncate MAIN_C_W, 0; print MAIN_C_W "$mviews_main_c|$mclicks_main_c"; close MAIN_C_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/stats/days/20$year-$months[$mon]-$mday.txt") { open (CREATE, "> $file_dir/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/stats/days/20$year-$months[$mon]-$mday.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats/days/20$year-$months[$mon]-$mday.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_C_DAY_R, "< $file_dir/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/stats/days/20$year-$months[$mon]-$mday.txt"; @records_main_c_day = ; foreach $record_main_c_day (@records_main_c_day) { chomp $record_main_c_day; ($mviews_main_c_day, $mclicks_main_c_day) = split /\|/, $record_main_c_day; $mclicks_main_c_day++; } close MAIN_C_DAY_R; open (MAIN_C_DAY_W, "> $file_dir/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/stats/days/20$year-$months[$mon]-$mday.txt"; seek MAIN_C_DAY_W, 0, 0; truncate MAIN_C_DAY_W, 0; print MAIN_C_DAY_W "$mviews_main_c_day|$mclicks_main_c_day"; close MAIN_C_DAY_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/stats/months/20$year-$months[$mon].txt") { open (CREATE, "> $file_dir/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon].txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats/months/20$year-$months[$mon].lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_C_MONTH_R, "< $file_dir/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon].txt"; @records_main_c_month = ; foreach $record_main_c_month (@records_main_c_month) { chomp $record_main_c_month; ($mviews_main_c_month, $mclicks_main_c_month) = split /\|/, $record_main_c_month; $mclicks_main_c_month++; } close MAIN_C_MONTH_R; open (MAIN_C_MONTH_W, "> $file_dir/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon].txt"; seek MAIN_C_MONTH_W, 0, 0; truncate MAIN_C_MONTH_W, 0; print MAIN_C_MONTH_W "$mviews_main_c_month|$mclicks_main_c_month"; close MAIN_C_MONTH_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") { open (CREATE, "> $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats/hours/20$year-$months[$mon]-$hour.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_C_HOUR_R, "< $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt"; @records_main_c_hour = ; foreach $record_main_c_hour (@records_main_c_hour) { chomp $record_main_c_hour; ($mviews_main_c_hour, $mclicks_main_c_hour) = split /\|/, $record_main_c_hour; $mclicks_main_c_hour++; } close MAIN_C_HOUR_R; open (MAIN_C_HOUR_W, "> $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt"; seek MAIN_C_HOUR_W, 0, 0; truncate MAIN_C_HOUR_W, 0; print MAIN_C_HOUR_W "$mviews_main_c_hour|$mclicks_main_c_hour"; close MAIN_C_HOUR_W; if ($file_lock eq "Enable") { close LOCK; } } sub count_banner_view { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/banners.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (BANNER_V_R, "< $file_dir/advertisers/$advertiser/banners.txt") or die "Can't open $file_dir/advertisers/$advertiser/banners.txt"; if ($file_lock eq "Enable") { flock BANNER_V_R, LOCK_EX; } @records_banner_v = ; @new_records_banner_v = (); foreach $record_banner_v (@records_banner_v) { chomp $record_banner_v; ($bhtml_id, $bhtml_name, $bhtml_img, $bhtml_target, $bhtml_frame, $bhtml_width, $bhtml_height, $bhtml_border, $bhtml_alternate, $bhtml_text, $btext_url, $bhtml_img_tags, $bb_views, $bb_clicks) = split /\|/, $record_banner_v; if ($id eq $bhtml_id) { $bb_views++; $new_rec_views_banner_v = $bb_views; $new_record_banner_v = "$bhtml_id|$bhtml_name|$bhtml_img|$bhtml_target|$bhtml_frame|$bhtml_width|$bhtml_height|$bhtml_border|$bhtml_alternate|$bhtml_text|$btext_url|$bhtml_img_tags|$new_rec_views_banner_v|$bb_clicks"; $record_banner_v = $new_record_banner_v; } $record_banner_v .= "\n"; push @new_records_banner_v, $record_banner_v; } close BANNER_V_R; open (BANNER_V_W, "> $file_dir/advertisers/$advertiser/banners.txt") or die "Can't open $file_dir/advertisers/$advertiser/banners.txt"; if ($file_lock eq "Enable") { flock BANNER_V_W, LOCK_EX; } seek BANNER_V_W, 0, 0; truncate BANNER_V_W, 0; print BANNER_V_W @new_records_banner_v; close BANNER_V_W; if ($file_lock eq "Enable") { close LOCK; } } sub count_advertiser_view { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER_V_R, "< $file_dir/advertisers/$advertiser/stats.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats.txt"; @records_advertiser_v = ; foreach $record_advertiser_v (@records_advertiser_v) { chomp $record_advertiser_v; ($aviews_advertiser_v, $aclicks_advertiser_v) = split /\|/, $record_advertiser_v; $aviews_advertiser_v++; } close ADVERTISER_V_R; open (ADVERTISER_V_W, "> $file_dir/advertisers/$advertiser/stats.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats.txt"; seek ADVERTISER_V_W, 0, 0; truncate ADVERTISER_V_W, 0; print ADVERTISER_V_W "$aviews_advertiser_v|$aclicks_advertiser_v"; close ADVERTISER_V_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") { open (CREATE, "> $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER_V_DAY_R, "< $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt"; @records_advertiser_v_day = ; foreach $record_advertiser_v_day (@records_advertiser_v_day) { chomp $record_advertiser_v_day; ($mviews_advertiser_v_day, $mclicks_advertiser_v_day) = split /\|/, $record_advertiser_v_day; $mviews_advertiser_v_day++; } close ADVERTISER_V_DAY_R; open (ADVERTISER_V_DAY_W, "> $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/days/20$year-$months[$mon]-$mday.txt"; seek ADVERTISER_V_DAY_W, 0, 0; truncate ADVERTISER_V_DAY_W, 0; print ADVERTISER_V_DAY_W "$mviews_advertiser_v_day|$mclicks_advertiser_v_day"; close ADVERTISER_V_DAY_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") { open (CREATE, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER_V_MONTH_R, "< $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; @records_advertiser_v_month = ; foreach $record_advertiser_v_month (@records_advertiser_v_month) { chomp $record_advertiser_v_month; ($mviews_advertiser_v_month, $mclicks_advertiser_v_month) = split /\|/, $record_advertiser_v_month; $mviews_advertiser_v_month++; } close ADVERTISER_V_MONTH_R; open (ADVERTISER_V_MONTH_W, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; seek ADVERTISER_V_MONTH_W, 0, 0; truncate ADVERTISER_V_MONTH_W, 0; print ADVERTISER_V_MONTH_W "$mviews_advertiser_v_month|$mclicks_advertiser_v_month"; close ADVERTISER_V_MONTH_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") { open (CREATE, "> $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (ADVERTISER_V_HOUR_R, "< $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt"; @records_advertiser_v_hour = ; foreach $record_advertiser_v_hour (@records_advertiser_v_hour) { chomp $record_advertiser_v_hour; ($mviews_advertiser_v_hour, $mclicks_advertiser_v_hour) = split /\|/, $record_advertiser_v_hour; $mviews_advertiser_v_hour++; } close ADVERTISER_V_HOUR_R; open (ADVERTISER_V_HOUR_W, "> $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/hours/20$year-$months[$mon]-$hour.txt"; seek ADVERTISER_V_HOUR_W, 0, 0; truncate ADVERTISER_V_HOUR_W, 0; print ADVERTISER_V_HOUR_W "$mviews_advertiser_v_hour|$mclicks_advertiser_v_hour"; close ADVERTISER_V_HOUR_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon]-u.txt") { open (CREATE, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; print CREATE "0"; close CREATE; } if ($a_unique eq "yes"){ if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon]-u.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (UNIQUE_ADVERTISER_R, "< $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; @records_unique_advertiser = ; foreach $record_unique_advertiser (@records_unique_advertiser) { chomp $record_unique_advertiser; ($ucount_unique_advertiser) = split /\|/, $record_unique_advertiser; $ucount_unique_advertiser++; } close UNIQUE_ADVERTISER_R; open (UNIQUE_ADVERTISER_W, "> $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/advertisers/$advertiser/stats/months/20$year-$months[$mon].txt"; seek UNIQUE_ADVERTISER_W, 0, 0; truncate UNIQUE_ADVERTISER_W, 0; print UNIQUE_ADVERTISER_W "$ucount_unique_advertiser"; close UNIQUE_ADVERTISER_W; if ($file_lock eq "Enable") { close LOCK; } } } sub count_campaign_view { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_V_R, "< $file_dir/campaigns/$campaign/stats.txt") or die "Can't open $file_dir/campaigns/$campaign/stats.txt"; @records_campaign_v = ; foreach $record_campaign_v (@records_campaign_v) { chomp $record_campaign_v; ($cviews_campaign_v, $cclicks_campaign_v) = split /\|/, $record_campaign_v; $cviews_campaign_v++; } close CAMPAIGN_V_R; open (CAMPAIGN_V_W, "> $file_dir/campaigns/$campaign/stats.txt") or die "Can't open $file_dir/campaigns/$campaign/stats.txt"; seek CAMPAIGN_V_W, 0, 0; truncate CAMPAIGN_V_W, 0; print CAMPAIGN_V_W "$cviews_campaign_v|$cclicks_campaign_v"; close CAMPAIGN_V_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") { open (CREATE, "> $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_V_DAY_R, "< $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt"; @records_campaign_v_day = ; foreach $record_campaign_v_day (@records_campaign_v_day) { chomp $record_campaign_v_day; ($mviews_campaign_v_day, $mclicks_campaign_v_day) = split /\|/, $record_campaign_v_day; $mviews_campaign_v_day++; } close CAMPAIGN_V_DAY_R; open (CAMPAIGN_V_DAY_W, "> $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/days/20$year-$months[$mon]-$mday.txt"; seek CAMPAIGN_V_DAY_W, 0, 0; truncate CAMPAIGN_V_DAY_W, 0; print CAMPAIGN_V_DAY_W "$mviews_campaign_v_day|$mclicks_campaign_v_day"; close CAMPAIGN_V_DAY_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") { open (CREATE, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_V_MONTH_R, "< $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; @records_campaign_v_month = ; foreach $record_campaign_v_month (@records_campaign_v_month) { chomp $record_campaign_v_month; ($mviews_campaign_v_month, $mclicks_campaign_v_month) = split /\|/, $record_campaign_v_month; $mviews_campaign_v_month++; } close CAMPAIGN_V_MONTH_R; open (CAMPAIGN_V_MONTH_W, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; seek CAMPAIGN_V_MONTH_W, 0, 0; truncate CAMPAIGN_V_MONTH_W, 0; print CAMPAIGN_V_MONTH_W "$mviews_campaign_v_month|$mclicks_campaign_v_month"; close CAMPAIGN_V_MONTH_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") { open (CREATE, "> $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN_V_HOUR_R, "< $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt"; @records_campaign_v_hour = ; foreach $record_campaign_v_hour (@records_campaign_v_hour) { chomp $record_campaign_v_hour; ($mviews_campaign_v_hour, $mclicks_campaign_v_hour) = split /\|/, $record_campaign_v_hour; $mviews_campaign_v_hour++; } close CAMPAIGN_V_HOUR_R; open (CAMPAIGN_V_HOUR_W, "> $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/hours/20$year-$months[$mon]-$hour.txt"; seek CAMPAIGN_V_HOUR_W, 0, 0; truncate CAMPAIGN_V_HOUR_W, 0; print CAMPAIGN_V_HOUR_W "$mviews_campaign_v_hour|$mclicks_campaign_v_hour"; close CAMPAIGN_V_HOUR_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon]-u.txt") { open (CREATE, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; print CREATE "0"; close CREATE; } if ($a_unique eq "yes"){ if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon]-u.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (UNIQUE_CAMPAIGN_R, "< $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; @records_unique_campaign = ; foreach $record_unique_campaign (@records_unique_campaign) { chomp $record_unique_campaign; ($ucount_unique_campaign) = split /\|/, $record_unique_campaign; $ucount_unique_campaign++; } close UNIQUE_CAMPAIGN_R; open (UNIQUE_CAMPAIGN_W, "> $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/campaigns/$campaign/stats/months/20$year-$months[$mon].txt"; seek UNIQUE_CAMPAIGN_W, 0, 0; truncate UNIQUE_CAMPAIGN_W, 0; print UNIQUE_CAMPAIGN_W "$ucount_unique_campaign"; close UNIQUE_CAMPAIGN_W; if ($file_lock eq "Enable") { close LOCK; } } } sub count_main_view { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats_campaigns.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_V_R, "< $file_dir/stats_campaigns.txt") or die "Can't open $file_dir/stats_campaigns.txt"; @records_main_v = ; foreach $record_main_v (@records_main_v) { chomp $record_main_v; ($mviews_main_v, $mclicks_main_v) = split /\|/, $record_main_v; $mviews_main_v++; } close MAIN_V_R; open (MAIN_V_W, "> $file_dir/stats_campaigns.txt") or die "Can't open $file_dir/stats_campaigns.txt"; seek MAIN_V_W, 0, 0; truncate MAIN_V_W, 0; print MAIN_V_W "$mviews_main_v|$mclicks_main_v"; close MAIN_V_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/stats/days/20$year-$months[$mon]-$mday.txt") { open (CREATE, "> $file_dir/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/stats/days/20$year-$months[$mon]-$mday.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats/days/20$year-$months[$mon]-$mday.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_V_DAY_R, "< $file_dir/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/stats/days/20$year-$months[$mon]-$mday.txt"; @records_main_v_day = ; foreach $record_main_v_day (@records_main_v_day) { chomp $record_main_v_day; ($mviews_main_v_day, $mclicks_main_v_day) = split /\|/, $record_main_v_day; $mviews_main_v_day++; } close MAIN_V_DAY_R; open (MAIN_V_DAY_W, "> $file_dir/stats/days/20$year-$months[$mon]-$mday.txt") or die "Can't open $file_dir/stats/days/20$year-$months[$mon]-$mday.txt"; seek MAIN_V_DAY_W, 0, 0; truncate MAIN_V_DAY_W, 0; print MAIN_V_DAY_W "$mviews_main_v_day|$mclicks_main_v_day"; close MAIN_V_DAY_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/stats/months/20$year-$months[$mon].txt") { open (CREATE, "> $file_dir/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon].txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats/months/20$year-$months[$mon].lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_V_MONTH_R, "< $file_dir/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon].txt"; @records_main_v_month = ; foreach $record_main_v_month (@records_main_v_month) { chomp $record_main_v_month; ($mviews_main_v_month, $mclicks_main_v_month) = split /\|/, $record_main_v_month; $mviews_main_v_month++; } close MAIN_V_MONTH_R; open (MAIN_V_MONTH_W, "> $file_dir/stats/months/20$year-$months[$mon].txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon].txt"; seek MAIN_V_MONTH_W, 0, 0; truncate MAIN_V_MONTH_W, 0; print MAIN_V_MONTH_W "$mviews_main_v_month|$mclicks_main_v_month"; close MAIN_V_MONTH_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") { open (CREATE, "> $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt"; print CREATE "0|0"; close CREATE; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats/hours/20$year-$months[$mon]-$hour.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (MAIN_V_HOUR_R, "< $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt"; @records_main_v_hour = ; foreach $record_main_v_hour (@records_main_v_hour) { chomp $record_main_v_hour; ($mviews_main_v_hour, $mclicks_main_v_hour) = split /\|/, $record_main_v_hour; $mviews_main_v_hour++; } close MAIN_V_HOUR_R; open (MAIN_V_HOUR_W, "> $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt") or die "Can't open $file_dir/stats/hours/20$year-$months[$mon]-$hour.txt"; seek MAIN_V_HOUR_W, 0, 0; truncate MAIN_V_HOUR_W, 0; print MAIN_V_HOUR_W "$mviews_main_v_hour|$mclicks_main_v_hour"; close MAIN_V_HOUR_W; if ($file_lock eq "Enable") { close LOCK; } unless (-e "$file_dir/stats/months/20$year-$months[$mon]-u.txt") { open (CREATE, "> $file_dir/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon]-u.txt"; print CREATE "0"; close CREATE; } if ($a_unique eq "yes"){ if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/stats/months/20$year-$months[$mon]-u.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (UNIQUE_MAIN_V_R, "< $file_dir/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon]-u.txt"; @records_main_unique = ; foreach $record_main_unique (@records_main_unique) { chomp $record_main_unique; ($ucount_main_unique) = split /\|/, $record_main_unique; $ucount_main_unique++; } close UNIQUE_MAIN_V_R; open (UNIQUE_MAIN_V_W, "> $file_dir/stats/months/20$year-$months[$mon]-u.txt") or die "Can't open $file_dir/stats/months/20$year-$months[$mon]-u.txt"; seek UNIQUE_MAIN_V_W, 0, 0; truncate UNIQUE_MAIN_V_W, 0; print UNIQUE_MAIN_V_W "$ucount_main_unique"; close UNIQUE_MAIN_V_W; if ($file_lock eq "Enable") { close LOCK; } } } sub check_campaign_status { if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/details.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN, "< $file_dir/campaigns/$campaign/details.txt") or die "Can't open $file_dir/campaigns/$campaign/details.txt"; @lns = ; close CAMPAIGN; if ($file_lock eq "Enable") { close LOCK; } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/stats.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN2, "< $file_dir/campaigns/$campaign/stats.txt") or die "Can't open $file_dir/campaigns/$id/stats.txt"; @lns2 = ; close CAMPAIGN2; if ($file_lock eq "Enable") { close LOCK; } foreach $ln2(@lns2) { chomp $ln2; ($c_l_views, $c_l_clicks) = split /\|/, $ln2; } foreach $ln(@lns) { chomp $ln; ($campaign_name, $campaign_id, $date_created, $status, $l_views, $l_clicks) = split /\|/, $ln; if ($status eq "Inactive"){$campaign = "1";} unless ($l_views eq ""){ if ($c_l_views >= $l_views){$campaign = "1";} } unless ($l_clicks eq ""){ if ($c_l_clicks >= $l_clicks){$campaign = "1";} } } if ($file_lock eq "Enable") { open (LOCK, "> $file_dir/campaigns/$campaign/schedule.lck") or die "Can't open LOCK"; flock (LOCK, LOCK_EX) or die "Can't lock FILE"; } open (CAMPAIGN, "< $file_dir/campaigns/$campaign/schedule.txt") or die "Can't open $file_dir/campaigns/$campaign/schedule.txt"; @lns3 = ; foreach $ln3(@lns3) { chomp $ln3; ($d_start, $d_stop, $daysofweek, $timesofday) = split /\|/, $ln3; if ($daysofweek eq ""){$daysofweek = "Any Day";} if ($timesofday eq ""){$timesofday = "Any Time";} } close CAMPAIGN; if ($file_lock eq "Enable") { close LOCK; } unless ($d_start eq ""){ ($a_month, $a_day, $a_year) = split /\//, $d_start; if (($a_year > $year) || ($a_year == $year && $a_month > $months[$mon]) || ($a_year == $year && $a_month == $months[$mon] && $a_day > $mday)) {$campaign = "1";} } unless ($d_stop eq ""){ ($b_month, $b_day, $b_year) = split /\//, $d_stop; unless (($b_year > $year) || ($b_year == $year && $b_month > $months[$mon]) || ($b_year == $year && $b_month == $months[$mon] && $b_day >= $mday)) {$campaign = "1";} } unless ($daysofweek eq "Any Day"){ $daysofweek =~ s/ //gi; ($day1, $day2, $day3, $day4, $day5, $day6, $day7) = split /,/, $daysofweek; if ($days[$wday] eq "$day1"){$show = "1";} elsif ($days[$wday] eq "$day2"){$show = "1";} elsif ($days[$wday] eq "$day3"){$show = "1";} elsif ($days[$wday] eq "$day4"){$show = "1";} elsif ($days[$wday] eq "$day5"){$show = "1";} elsif ($days[$wday] eq "$day6"){$show = "1";} elsif ($days[$wday] eq "$day7"){$show = "1";} unless ($show eq "1"){$campaign = "1";} } unless ($timesofday eq "Any Time"){ @hours=split(/,/,$timesofday); foreach $item(@hours){ $item =~ s/ //gi; if ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} elsif ($item eq "$hour"){$tshow = "1";} } unless ($tshow eq "1"){$campaign = "1";} } } sub no_content { print "Content-type: text/html\n\n"; print <<"(END HTML)"; Ads Pro


Ads Pro

Ads Pro is a powerful professional Banner Delivery System designed to give you full control over advertising on your website!  Efficiency, Flexibility, and Simplicity all come together to create one of the most powerful advertising systems on the market.  If you are selling banner ad rotation or just rotating your own banners on your site, this will be the best investment you will make on ensuring your websites success!

http://adspro.mhfmedia.com

(END HTML) }