| Campaign Profile |
|
|
- Daily History
- Reset Campaign Data
|
||||||||||||||||||||||||||||||||
|
~;
my $max_iremaining=$cidref->{MAX_IMPR}-$cidref->{DELIVERED_IMPR};
my $max_cremaining=$cidref->{MAX_CLICK}-$cidref->{DELIVERED_CLICK};
my $max_idisplay=$cidref->{MAX_IMPR};
if($cidref->{MAX_IMPR}==0){
$max_idisplay="Unlimited";
$max_iremaining="Unlimited";
}
my $max_cdisplay=$cidref->{MAX_CLICK};
if($cidref->{MAX_CLICK}==0){
$max_cdisplay="Unlimited";
$max_cremaining="Unlimited";
}
$cidref->{START_DATE}=$master->{db}->single_result("SELECT DATE_FORMAT('$cidref->{START_DATE}','%b %d, %Y')");
$cidref->{END_DATE}=$master->{db}->single_result("SELECT DATE_FORMAT('$cidref->{END_DATE}','%b %d, %Y')");
print qq~
- Daily History - Reset Campaign Data |
|||||||||||||||||||||||||||||||
|
||||||||
| Name | Type | Weight | Impr | Clicks | CTR | Action | ||
| $midref[$k]->{NAME} | $type | $midref[$k]->{WEIGHT} | $midref[$k]->{TOTAL_IMPR} | $midref[$k]->{TOTAL_CLICK} | $ctp\% | ~; if($midref[$k]->{AD_TYPE}==0){ print qq~Edit | Reset | Delete | ~; }else{ print qq~Edit | Reset | Delete | ~; } print qq~|
{WIDTH} height=$cidref->{HEIGHT} border=0 alt="Click to Visit">~;
# make insert list
my $insert_list=[
["NAME","HTML Ad \#$ad_qty"],
["AID",$cidref->{AID}],
["CID",$cid],
["MID",$mid],
["RICH",$rich],
["WEIGHT","0"],
["AD_TYPE","1"],
];
# insert row
$master->{db}->insert_row("cp_media",$insert_list);
#get the campaigns
my(@gidref)=$master->{db}->select_multi_row_hash("SELECT * FROM groups WHERE WIDTH='$cidref->{WIDTH}' AND HEIGHT='$cidref->{HEIGHT}'");
my $gidtot=@gidref;
#get the adconfig
my $configref=$master->{db}->select_single_row_hash("SELECT * FROM adconfig");
for(my $k=0;$k<$gidtot;$k++){
my $gridref=$master->{db}->select_single_row_hash("SELECT * FROM cp_grouping WHERE CID='$cid' AND GID='$gidref[$k]->{GID} LIMIT 1'");
my $status=$gridref->{STATUS}+0;
my $weight=$gridref->{WEIGHT}+0;
# make insert list
my $insert_list=[
["GID",$gidref[$k]->{GID}],
["AID",$cidref->{AID}],
["CID",$cidref->{CID}],
["MID",$mid],
["STATUS",$status],
["WEIGHT",$weight]
];
# insert row
$master->{db}->insert_row("cp_grouping",$insert_list);
}
# check campaign status
$master->{campaign}->media_status($master);
# update bin
$master->{cron}->campaign_bin_update($master,$cid);
$master->{message}="HTML Element has been created";
$master->{campaign}->edit_campaign($master);
}
sub delete_campaign{
my($self,$master)=@_;
# input params
my $cid=$master->{query}->param('cid');
# delete advertiser
$master->{db}->{adcycle}->do("DELETE FROM cp WHERE CID='$cid'");
# delete media
$master->{db}->{adcycle}->do("DELETE FROM cp_media WHERE CID='$cid'");
# delete grouping
$master->{db}->{adcycle}->do("DELETE FROM cp_grouping WHERE CID='$cid'");
# delete grouping
$master->{db}->{adcycle}->do("DELETE FROM daily_log WHERE CID='$cid'");
# update bin
$master->{cron}->campaign_bin_update($master,$cid);
$master->{message}="Campaign has been deleted";
$master->{campaign}->view_campaigns($master);
}
sub reset_campaign_data{
my($self,$master)=@_;
# input params
my $cid=$master->{query}->param('cid');
# delete campaign data
$master->{db}->{adcycle}->do("UPDATE cp SET
IMPR_BIN=99999999,
CLICK_BIN=99999999,
ACTION_BIN=99999999,
MAX_IMPR=0,
MAX_CLICK=0,
MAX_ACTION=0,
MAX_DAILY_IMPR=0,
MAX_DAILY_CLICK=0,
MAX_DAILY_ACTION=0,
TODAY_IMPR=0,
TODAY_CLICK=0,
TODAY_ACTION=0,
DELIVERED_IMPR=0,
DELIVERED_CLICK=0,
DELIVERED_ACTION=0
WHERE CID='$cid'");
# delete media
$master->{db}->{adcycle}->do("UPDATE cp_media SET
TOTAL_IMPR=0,
TOTAL_CLICK=0,
TOTAL_ACTION=0
WHERE CID='$cid'");
# delete grouping
$master->{db}->{adcycle}->do("UPDATE cp_grouping SET
HOUR_IMPR=0,
HOUR_CLICK=0,
HOUR_ACTION=0,
TOTAL_IMPR=0,
TOTAL_CLICK=0,
TOTAL_ACTION=0
WHERE CID='$cid'");
# delete grouping
$master->{db}->{adcycle}->do("DELETE FROM daily_log WHERE CID='$cid'");
# delete grouping
$master->{db}->{adcycle}->do("DELETE FROM raw_log WHERE CID='$cid'");
# update bin
$master->{cron}->campaign_bin_update($master,$cid);
$master->{message}="Data has been reset";
$master->{campaign}->edit_campaign($master);
}
sub delete_media{
my($self,$master)=@_;
# input params
my $mid=$master->{query}->param('mid');
my $cid=$master->{query}->param('cid');
# delete media
$master->{db}->{adcycle}->do("DELETE FROM cp_media WHERE MID='$mid'");
# check campaign status
$master->{campaign}->media_status($master);
# update bin
$master->{cron}->campaign_bin_update($master,$cid);
$master->{message}="Media has been deleted";
$master->{campaign}->edit_campaign($master);
}
sub media_status{
my($self,$master)=@_;
# input params
my $mid=$master->{query}->param('mid');
my $cid=$master->{query}->param('cid');
# get counts
my $count_standard=$master->{db}->single_result("SELECT COUNT(*) from cp_media WHERE CID='$cid' and AD_TYPE=0 AND WEIGHT > 0");
my $total_count=$master->{db}->single_result("SELECT COUNT(*) from cp_media WHERE CID='$cid' AND WEIGHT > 0");
# generate query list
my $c;
if($count_standard==0){
$c=$master->{db}->update_cv($c,"RICH_ONLY","1");
}else{
$c=$master->{db}->update_cv($c,"RICH_ONLY","0");
}
if($total_count==0){
$c=$master->{db}->update_cv($c,"STATUS","0");
}
chop($c);
# insert row
$master->{db}->{adcycle}->do("UPDATE cp SET $c WHERE CID='$cid'");
return $master
}
sub edit_standard{
my($self,$master)=@_;
# get config and env vars
my $images_url=$master->{config}->get_images_url;
my $cgi_bin_url=$master->{config}->get_cgi_bin_url;
my $cache=$master->{env}->get_cache;
# input params
my $mid=$master->{query}->param('mid');
#get the mediaref
my $midref=$master->{db}->select_single_row_hash("SELECT * FROM cp_media where MID='$mid'");
my $cid=$midref->{CID};
#get the campaign ref
my $cidref=$master->{db}->select_single_row_hash("SELECT * FROM cp where CID='$cid'");
my $width=$cidref->{WIDTH};
my $height=$cidref->{HEIGHT};
#get the adconfig
my $configref=$master->{db}->select_single_row_hash("SELECT * FROM adconfig");
# print header
$master->{LINK}="campaigns";
$master->{html}->header($master,"Edit: $midref->{NAME}");
my @border;$border[$midref->{BORDER}]=" SELECTED ";
my %target;$target{$midref->{TARGET}}=" SELECTED ";
my @und;$und[$midref->{WEIGHT}]=" SELECTED ";
my %def;$def{$midref->{USE_AS_HTML_DEFAULT}}=" CHECKED ";
my $under_text="";
if(length($midref->{UNDER_TEXT})>0){
$under_text=qq~$midref->{UNDER_TEXT}~;
}
my $img_url=$midref->{IMG_URL};
my $click_url=$midref->{CLICK_URL};
my $alt=$midref->{ALT};
my $under_text=$midref->{UNDER_TEXT};
my $link=$midref->{UNDER_TEXT};
# convert under text
$midref->{UNDER_TEXT}=~s/\{UNDER_TEXT}=~s/\>/\>\;/g;
$midref->{UNDER_TEXT}=~s/\"/\"\;/g;
# convert alt
$midref->{ALT}=~s/\{ALT}=~s/\>/\>\;/g;
$midref->{ALT}=~s/\"/\"\;/g;
$img_url=~s/IDNUMBER+/$cache/g;
$click_url=~s/IDNUMBER+/$cache/g;
$alt=~s/IDNUMBER+/$cache/g;
$under_text=~s/IDNUMBER+/$cache/g;
if(length($under_text)>0){
$under_text=qq~$under_text~;
}
my $direct_code=qq~[Direct Ad Code]~;
my $single_pixel="";
if(index($midref->{SINGLE_PIXEL_URL},"http:")!=-1){
$single_pixel=qq~
|