############################################### Place your Banner-Advertising
# add to affiliates.txt

sub affiliates
{
 my($affil,$roll,@links);

 if($Sponsored=~ /ezi/ || $Form{'AP'} eq 'T')
 {
  open(AFFIL,"$file_affiliates") || open(AFFIL,">$file_affiliates");
  @affiliate = <AFFIL>;
  close(AFFIL);


  foreach (@affiliate)
  {
   chomp($_);
   split_affiliates($_);
   (!$Cats || $Cats=~ /$Form{'cat'}/)
   ?( push @links, $_,)
   :( next );
   if($DisplayRate){ for($c=1;$c<$DisplayRate;$c++){ push(@links, $_); } }
  }

  $affil=scalar(@links);
  $roll = int(rand $affil);
  $xx=0;

  foreach (@links)
  {
   chomp($_);
   split_affiliates($_);
   if($xx==$roll){ last; }
   $xx++;
  }

#$Cats,$Subs,$SiteUrl,$Banner,$Alt
  if($Alt)
  {
   $randomsponsorlink = qq|
   <table border=0 cellpadding=0 cellspacing=0>
    <tr>
     <td align=center>
      <a href='$SiteUrl' target='new'>
      <img src='$Banner' border=0 title='$Alt' height=60 width=468></a><br>
     <font style='font-size:9px;'>Open sponsor in new window</font>
     </td>
    </tr>
   </table>
   |;
  }
  else
  {
   $randomsponsorlink = qq|
   <table border=0 cellpadding=0 cellspacing=0>
    <tr>
     <td align=center>
      $Banner
     </td>
    </tr>
   </table>
   |;
  }
 }
 else
 {
  $randomsponsorlink="
  <table border=0 cellpadding=0 cellspacing=0>
   <tr>
    <td align=center>
     <a href='http://www.eziaccounts.com' target='affiliate'>
     <img src='http://www.auzform.com.au/promo/eziaccounts/eziaccounts2.gif' border=0 title='This page sponsored by EZIaccounts' height=60 width=468></a><br>
    <font style='font-size:9px;'>Open sponsor in new window</font>
    </td>
   </tr>
  </table>
  ";
 }
}
#    <font style='font-size:9px;'>Open sponsor in new window</font>

@struct_affiliates=('Date','Cats','Subs','SiteName','SiteUrl','Banner','Alt','DisplayRate');
sub split_affiliates
{
 my($data)=@_;
 my $x=0;
 chomp($data);
 $data=~ s/\^/\n/g;
 (@temp) = split /\|/, $data;
 foreach(@struct_affiliates){ $$_=$temp[$x]; $x++; }
}

sub join_affiliates
{
 my ($edit,$new)=@_;
 my $record;
 if($new == 1)
 {
  foreach(@struct_affiliates){ $$_=''; }
  $Date=$sdate;
 }
 if($edit == 1)
 {
  foreach(keys %Form){ if($_){ &copyit($_); } }
  foreach(@struct_affiliates){ $record.="$$_|"; }
 }
 return $record;
}

sub Banners
{
 my $count='0';
 #'Date','Cats','Subs','SiteName','SiteUrl','Banner','Alt',

 $bannerspage.=qq|
 <H4 class=info>Random Banners </h4>
 |;

 if($Form{'Act'}=~ /Edit|Delete/)
 {
  open(LINKS, "$file_affiliates");
  @links=<LINKS>;
  close(LINKS);

  open(LINKS, ">$file_affiliates");
  @nlinks=<LINKS>;
  foreach(@links)
  {
   split_affiliates($_);
   if($Form{'bcount'} eq $count){ if($Form{'Act'} eq 'Delete'){ next; } $_ = join_affiliates(1,0).$nl; }
   print LINKS $_;
   $count++;
  }
  close(LINKS);
 }

 if($Form{'Act'} eq 'Add')
 {
  open(LINKS, ">>$file_affiliates");
  print LINKS join_affiliates(1,1).$nl;
  close(LINKS);
 }

 $count='0'; #reset
  open(LINKS, "$file_affiliates");
  @links=<LINKS>;
  close(LINKS);
  foreach(@links)
  {
   chomp;
   split_affiliates($_);
   $Alt?($DBanner=qq|<img src='$Banner'>|):($DBanner=$Banner);
   $DisplayRate?():($DisplayRate=1);
   $bannerspage.=qq|
  <table width=100% border=1 bordercolor='#000000' cellpadding=3 cellspacing=1>
   <tr>
    <td>
    <table width=100% border=0 bgcolor='' cellpadding=0 cellspacing=0>
     <tr>
      <th align='right'><input type=radio name='c' id='c' onClick='addin($count)'>Date : </th><td>@{[strdate($Date)]}

      <b> Display Rate : </b>
      <b class=notice><input type=text name='DR' id='DR' value='$DisplayRate' size=2> Currently : $DisplayRate of @{[$#links+1]} </b>

      </td>
     </tr>
     <tr>
      <th align='right'>Site : </th><td><input type=text name='SN' id='SN' value='$SiteName' size=70></input></td>
     </tr>
     <tr>
      <th align='right' valign=top>Track Url : </th>
      <td>
      <textarea name='SU' id='SU' value='' cols=60 rows=3>$SiteUrl</textarea> 
      </td>
     </tr>
     <tr>
      <th align='right' valign=top>Banner : </th>
      <td>
      <textarea name='SB' id='SB' value='' cols=60 rows=3>$Banner</textarea> 
      $DBanner
      </td>
     </tr>
     <tr>
      <th align=right valign=top>Alt : </th>
      <td><input type=text name='SA' id='SA' value='$Alt' size=70><br><font color=red> Leave Alt blank if using flash object code. </font></td>
     </tr>
    </table>
    </td>
   </tr>
  </table>
  <br>
  |;
  $count++;
 }

 $bannerspage.=qq|

  <table width=100% border=1 bordercolor='#000000' cellpadding=3 cellspacing=1>
   <tr>
    <td>
    <table width=100% border=0 bgcolor='' cellpadding=0 cellspacing=0>
     <tr>
      <th align='right'> </th><td>
      <b>Rate : </b>
      <b class=notice><input type=text name='DisplayRate' id='DisplayRate' value='' size=2> (Increased usage rate)</b>
      </td>
     </tr>
     <tr>
      <th align='right'>Site : </th><td><input type=text name='SiteName' id='SiteName' value='' size=70></input></td>
     </tr>
     <tr>
      <th align='right' valign=top>Track Url : </th>
      <td>
      <textarea name='SiteUrl' id='SiteUrl' value='' cols=60 rows=3></textarea> 
      </td>
     </tr>
     <tr>
      <th align='right' valign=top>Banner : </th>
      <td>
      <textarea name='Banner' id='Banner' value='' cols=60 rows=3></textarea> 
      </td>
     </tr>
     <tr>
      <th align=right valign=top>Alt : </th>
      <td><input type=text name='Alt' id='Alt' value='' size=70><br><font color=red> Leave Alt blank if using flash object code. </font></td>
     </tr>
    </table>
    </td>
   </tr>
  </table>
  <br>


  <p align=center>
   <input type=hidden name=bcount value=''>
   <input class='hbut' type='submit' value=' Edit ' onClick='form.Act.value="Edit";' $mouse>
   <input class='hbut' type='submit' value=' Add '  onClick='if(confirm("click OK to Add banner"))form.Act.value="Add"; else return;' $mouse>
   <input class='hbut' type='submit' value=' Delete '  onClick='if(confirm("click OK to Delete banner"))form.Act.value="Delete"; else return;' $mouse>
  <br><br>
   To add random banners copy and paste &bnsp;&bnsp;<b><script>document.write("%"+"%randomsponsorlink%"+"%");</script></b>&bnsp;&bnsp; into any page.<br>
   Note : Banner will not display while using above code until page viewed in normal browser.
  </p>

 <script>
 function addin(ref)
 {
  form.bcount.value=ref;
  form.DisplayRate.value=form.DR(ref).value;
  form.SiteName.value=form.SN(ref).value;
  form.SiteUrl.value=form.SU(ref).value;
  form.Banner.value=form.SB(ref).value;
  form.Alt.value=form.SA(ref).value;
 }
 function go(ref)
 {
  form.Action.value='Banners';
  form.Page.value='Banners';
  return true;
 }
 </script>
 |;
 #($Date,$Time,$SiteUrl,$SiteUrlLink,$SiteName,$Company,$Title,$Email,$PW,$Gender,$First,$Last,$Banner,$Cats
}

1;