#!/usr/bin/perl
#


#use Socket;
use IO::Select;use IO::Socket;
use LWP; 
use HTTP::Request::Common;

######SET MODE recips or sponsors:
#$mode='recips';
$mode='sponsors';

###CONFIG:
$picperzip=26;


$|=1;
srand;
&getdatetime;


%pickrandnum='';
$bannerpicked='';
$segt=0;
$sigt=15;
$bottomtable_case2='';
$table_free_small_middle='';
$forwardlinksmiddletop='';
$insertsitemenuebottom='';
$tablecellspacing='';
$tablecellpadding='';
$tablebordercolor='';
$newtemplatemethod=0;
$finaltext='';
$toplisttype='';
$leftbanner=0;
$rightbanner=0;
  @c_tgpdomain='';
  @c_refurl='';
  @c_suburl='';
  @c_status='';
  @c_action='';
  @c_template='';
  @c_days='';
  @grandfinalefirst='';
      @grandfinale='';
      @submitreadydomain='';
      @submitreadydays='';
      @submitreadygrandfinale='';
      @submitreadygrandfinalefirst='';
      @submitreadytemplate='';
      @grandfinale='';
      @submitreadydomainnorec='';
      @submitreadydaysnorec='';
      @submitreadygrandfinalenorec='';
      @submitreadygrandfinalenorecfirst='';
      @submitreadytemplatenorec='';
      @tempdomain='';
      @tempdays='';
      @tempgrandfinale='';
      @tempgrandfinalefirst='';
      @temptemplate='';

###END CONFIG
############################################################################

      opendir (TN, "g:/ra_p/sit_sponsors/new");
      rewinddir (TN);
        @tnlist =  grep((!/^\.\.?$/ & !/^uploadrecips/), readdir (TN));
      closedir (TN);
      $temp = pop @tnlist;
      @tntemp = reverse(@tnlist);
      push (@tntemp,$temp);
	@tnlist = @tntemp;
      $tnnum = @tnlist;
      @tnlist =  sort @tnlist;
#      for($sx=0;$sx<=$tnnum-1;$sx++){
#        print "$sx - $tnlist[$sx]\n";
#      }

      $antal=int($tnnum/$picperzip + 1);
#      print "antal=$antal\n";
      for($pnum=0;$pnum<=$antal-1;$pnum++){
        for($sx=($pnum*$picperzip);$sx<=($pnum*$picperzip+($picperzip-1));$sx++){
          system "tar -r -f recips-$pnum.tar $tnlist[$sx]";
        }
        system "gzip recips-$pnum.tar";
        $gzname[$pnum]="recips-$pnum.tar.gz";
      }




#Upload:
for($pnum=0;$pnum<=$antal-1;$pnum++){

for($j=1;$j<=10;$j++){

#protgp:
if($j == 1){
   $serveraliveurl='http://porn-portal.com/proxycheck.html';
   $uploadscripturl='http://teensforall.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/home/anders/www.teensforall.com/cgi-bin/mygalleries';
   $domainnu='protgp';
}
if($j == 2){
   $serveraliveurl='http://teenpics-now.com/proxycheck.html';
   $uploadscripturl='http://teenpics-now.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/home/domains/erik/teenpics-now/cgi-bin/mygalleries';
   $domainnu='exmasters';
}
if($j == 3){
   $serveraliveurl='http://bestfreepix.com/proxycheck.html';
   $uploadscripturl='http://www.bestfreepix.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/home/acc11/public_html/cgi-bin/mygalleries';
   $domainnu='swiftwill';
}
if($j == 4){
   $serveraliveurl='http://free6pictures.com/proxycheck.html';
   $uploadscripturl='http://free6pictures.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/home/domains/cgi-bin/mygalleries';
   $domainnu='cologroup';
}
if($j == 5){
   $serveraliveurl='http://cumqueenies.com/proxycheck.html';
   $uploadscripturl='http://cumqueenies.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/home/account9/public_html/cgi-bin/mygalleries';
   $domainnu='thumbserver';
}
if($j == 6){
   $serveraliveurl='http://gimmeasians.com/proxycheck.html';
   $uploadscripturl='http://gimmeasians.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/usr/home/ricky/gimmeasians.com/cgi-bin/mygalleries';
   $domainnu='oxeo';
}
if($j == 7){
   $serveraliveurl='http://us-bukkake.com/proxycheck.html';
   $uploadscripturl='http://us-bukkake.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/home/domains/public_html/cgi-bin/mygalleries';
   $domainnu='sinhost';
}
if($j == 8){
   $serveraliveurl='http://axelhosting.com/proxycheck.html';
   $uploadscripturl='http://axelhosting.com/cgi-bin/rstools2.pl';
#   $serverdirpath='/usr/home/ricky/gimmeasians.com/cgi-bin/mygalleries';
   $domainnu='new';
}
if($j == 9){
   $serveraliveurl='http://aniarahosting.com/proxycheck.html';
   $uploadscripturl='http://aniarahosting.com/cgi-bin/rstools2.pl';
   $domainnu='new2';
}
if($j == 10){
   $serveraliveurl='http://freeclickstats.net/proxycheck.html';
   $uploadscripturl='http://freeclickstats.net/cgi-bin/rstools2.pl';
   $domainnu='new3';
}




$fail=0;
## server connection alive:
  print "Attempting upload for $domainnu:\n";
  $urltoget=$serveraliveurl;
  $referer_page='';
  $submitaction='GET';
  $pagenum='serveralive';
  &geturl;
  $page='';

#Do actual upload:
UPLOAD: $ua = new LWP::UserAgent;
$req = POST "$uploadscripturl",
	Content_Type => 'form-data', 
	Content => [ action => 'gorecips', 
			whichdir => "$serverdirpath", 
			mode => "$mode", 
			file => ["$gzname[$pnum]"],
			];
$rsp = $ua->request($req); 

$respons=$rsp->status_line;

if($respons =~ '302'){
  print "*** Uploading completed for $domainnu\n\n\n";
  open (gy,">>g:/ra_p/sit_sponsors/log/uploaded_success.txt");
  print gy "$pnum	$respons	$domainnu\n";
  close(gy);
}
else{
  $fail++;
  if($fail<=10){
    $rg=$fail+1;
    print "Attempting to upload again (attempt $rg/5).\n";
    goto UPLOAD;
  }
  if($fail>10){
    print "*** Uploading FAILED for $domainnu ($use)\n\n\n";
    open (gy,">>g:/ra_p/sit_sponsors/log/uploaded_failed.txt");
    print gy "$pnum	$respons	$domainnu\n";
    close(gy);
  }
}

}
}

#Save archive locally:
#mkdir "archive/$year$mon$mday";
#`move *.gz archive\\$year$mon$mday`;





exit;
































################################################################################
################################################################################
################################################################################
################################################################################
################################################################################
################################################################################
################################################################################
################################################################################































 
   sub main_table {
     $a=$count;
print gallery "<center><table width=$maintablewidth border=0><tr><td width=$lefttdwidth>";
if($lefttoplist==1){
&gettoplist;
}
if($lefttext==1){
&getlefttext;
}
if($leftbanner==1){
if($sitenumber==8){
print gallery <<cizxx;
<center><a href="http://www.nastydollars.com/sts/ct/count.cgi?a=anders66&w=cf" onMouseOver="window.status='http://www.cumfiesta.com'; return true" target="_blank">
<img src="$baseurl/sponsors/nastydollars2.jpg" border=0></a> 
</center>
cizxx
}
if($sitenumber==17){
print gallery <<cizxx;
<center><a href="http://www.facialmag.com/?revid=5694&s=2" onMouseOver="window.status='http://www.facialmag.com'; return true" target="_blank">
<img src="$baseurl/sponsors/facialmag2.gif" border=0></a>
</center>
cizxx
}
if($sitenumber==19){
print gallery <<cizxx;
<font size="4">
<center>
<a href="http://click.payserve.com:8080/ct?id=27188&banner=273" onMouseOver="window.status='http://www.clubseventeen.com'; return true" target="_blank"><b>Club Seventeen</b></a><br>
- Europes number 1 producer of teen sex erotica.<br>
- Only cute Euro girls!<br>
- Mega teenie site!<br>
- Exclusive, rare movies<br>
- +100,000 pics.<br>
- Live chat with girls.<br>
- Daily updated.<br><br>
<b><a href="http://click.payserve.com:8080/ct?id=27188&banner=273" onMouseOver="window.status='http://www.clubseventeen.com'; return true" target="_blank">-"It just can't be better!"</a></b><br><br>
</font>
</center>
cizxx
}
if($sitenumber==20){
print gallery <<cizxx;
<center><a href="http://www2.cumcheeks.com/cgi/click?account=854528&site=cc&program=signup" onMouseOver="window.status='http://www.cumcheeks.com'; return true" target="_blank"><img src="$baseurl/sponsors/cumcheeks3.jpg" border=0></a>
</center>

cizxx
}
}
if($leftfreesponsor==1){
&getleftsponsor;
}
print gallery "</td><td>";
     print gallery "<center><table border=$tableborder cellpadding=$tablecellpadding cellspacing=$tablecellspacing bordercolor=$tablebordercolor bgcolor=\"$tablebackgroundcolor\" width=$pictablewidth>";
     if($forwardlinktoponly == 1){print gallery "<tr><td colspan=\"5\"><font size=\"$forwardlinkssize\"><center><b><a href=\"$linkurl\" onMouseOver=\"window.status='$linkonm'; return true\" target=\"_top\">$forwardlinktext</a></td></tr>";}

     #Begin pic table:
     for($d=1;$d<=$numrows;$d++){
       if($forwardlinks==1){
         $ro=$d % 2;
         if($ro == 0){
          if($forwardlinkshtml == 1){
            print gallery <<piss;
<tr><td colspan="$numcols"><SCRIPT SRC="http://www.frontpagecash.com/raw/bannerserve.cgi?account=anders&consolevar=goback&target=_blank">
</SCRIPT></td></tr>
piss
          }
#          else{
#            print gallery "<tr><td colspan=\"$numcols\"><font size=\"$forwardlinkssize\"><center><b><a href=\"$linkurl2\" onMouseOver=\"window.status='$linkonm2'; return true\" target=\"_top\">$forwardlinktext2</a></td></tr>"; 
#          }
         }
         else{
          print gallery "<tr><td colspan=\"$numcols\"><font size=\"$forwardlinkssize\"><center><b><a href=\"$linkurl\" onMouseOver=\"window.status='$linkonm'; return true\" target=\"_top\">$forwardlinktext</a></td></tr>";
         }
       }       
       if($manual == 1){
         &rad1_5_manual;
       }
       else{
         &rad1_5;
       }
       if($d == 2 & $table_free_small_middle==1){
         print gallery "<tr><td colspan=\"$numcols\"><center>";
         &gettable;
         print gallery "</td></tr>";
       }
       if($d == 3 & $middletoplist2 == 1){
         print gallery "<tr><td colspan=\"$numcols\"><center>";
         &gettoplist2;
         print gallery "<br></td></tr>";
       }
       if($d == 3 & $middlebanner == 1){
         if($sitenumber>=81){
         print gallery "<tr><td colspan=\"$numcols\">";
print gallery <<ciz;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900927&PA=230794" onMouseOver="window.status='http://www.bukkake-bath.com'; return true" target="_blank">
<img src="$baseurl/sponsors/bukkake-bath1.jpg" width="425" height="70" border=0></a> 
</center>
ciz
         print gallery "<br></td></tr>";
         }
         if($sitenumber==2){
         print gallery "<tr><td colspan=\"$numcols\">";
print gallery <<ciz;
<center><a href="http://www.teenteenteen.com/.sbean?bean=1-0-3-11844-1-1-10" onMouseOver="window.status='http://www.teenteenteen.com'; return true" target="_blank">
<img src="http://ultrafreepix.com/sponsors/teenteenteen1.gif" border=0><br>
<b>-"I think this site is the best site I've ever visited."</b></a>
</center>
ciz
         print gallery "<br></td></tr>";
         }
       }
       #text i mitten av galleriet:
       if($forwardlinksmiddletop == 1 & $d == 2){
          print gallery "<tr><td colspan=\"$numcols\"><center><font size=\"$forwardlinksmiddletopsize\"><a href=\"$forwardlinksmiddletopurl\" onMouseOver=\"window.status='$forwardlinksmiddletoponm'; return true\" target=\"_blank\">$forwardlinksmiddletoptext</a></font></td></tr>";
       }
       if($forwardlinksmiddle == 1 & $d == 3){
          print gallery "<tr><td colspan=\"$numcols\"><center><font size=\"$forwardlinksmiddlesize\"><a href=\"$forwardlinksmiddleurl\" onMouseOver=\"window.status='$forwardlinksmiddleonm'; return true\" target=\"_blank\">$forwardlinksmiddletext</a></font></td></tr>";
       }
     }     
     #End pic table:

     if($forwardlinks==1 || $forwardlinkbottomonly == 1){print gallery "<tr><td colspan=\"$numcols\"><font size=\"$forwardlinkssize\"><center><b><a href=\"$linkurl\" onMouseOver=\"window.status='$linkonm'; return true\" target=\"_top\">$forwardlinktext</a></td></tr>";}

     print gallery "</table></center>";
print gallery "</td><td>";
if($righttoplist==1){
&gettoplist;
}
if($righttext==1){
&getrighttext;
}
if($rightfreesponsor==1){
&getrightsponsor;
}
if($rightbanner==1){
if($sitenumber==17){
print gallery <<cizxx;
<center><a href="http://www.allgangbang.com/?revid=5694&s=1" onMouseOver="window.status='http://www.allgangbang.com'; return true" target="_blank">
<img src="$baseurl/sponsors/allgangbang2.gif" border=0></a>
</center>
cizxx
}
if($sitenumber==20){
print gallery <<cizxx;
<center><a href="http://www2.cumcheeks.com/cgi/click?account=854528&site=cc&program=signup" onMouseOver="window.status='http://www.cumcheeks.com'; return true" target="_blank"><img src="$baseurl/sponsors/cumcheeks3.jpg" border=0></a>
</center>

cizxx
}

}
print gallery "</td></tr></table>";

   }

   sub rad1_5 {
     if($submitter eq 'tgsw'){
     print gallery "<tr>";
     for($g=1;$g<=$numcols;$g++){
       $bildnum=$g+($d-1)*$numcols;
       print gallery <<gvg;
       <td width=$wid height=$hei><center><a href="$picurl?/$kat/{{IMAGE$bildnum}}&$kat" onMouseOver="window.status='$piconm/{{IMAGE$bildnum}}'; return true"><img src="$urlpath\{{THUMB}}{{IMAGE$bildnum}}" border=$imageborder></a></center></font></td>\n
gvg
     }
     print gallery "</tr>";
     }
     if($submitter eq 'russian'){
     print gallery "<tr>";
     for($g=1;$g<=$numcols;$g++){
       $bildnum=$g+($d-1)*$numcols;
       print gallery <<gvg;
       <td width=$wid height=$hei><center><a href="$picurl?/$kat/$tnlist[$bildnum-1]&$kat" onMouseOver="window.status='$piconm/$tnlist[$bildnum-1]'; return true"><img src="$thumbbaseurl/$tnlist[$bildnum-1]" border=$imageborder></a></center></font></td>\n
gvg
     }
     print gallery "</tr>";
     }
   }

   sub rad1_5_manual {
     if($submitter eq 'tgsw'){
     print gallery "<tr>";
     for($g=1;$g<=$numcols;$g++){
       $bildnum=$g+($d-1)*$numcols;
       print gallery <<gvg;
       <td width=$wid height=$hei><center><a href="$picurl?/$kat/{{IMAGE$bildnum}}&$kat" onMouseOver="window.status='$piconm/{{IMAGE$bildnum}}'; return true"><img src="$urlpath\{{THUMB}}{{IMAGE$bildnum}}" border=$imageborder></a></center></font></td>\n
gvg
     }
     print gallery "</tr>";
     }
     if($submitter eq 'russian'){
     print gallery "<tr>";
     for($g=1;$g<=$numcols;$g++){
       $bildnum=$g+($d-1)*$numcols;
       print gallery <<gvg;
       <td width=$wid height=$hei><center><a href="$picurl/$kat/$tnlist[$bildnum-1]"><img src="$thumbbaseurl/$tnlist[$bildnum-1]" border=$imageborder></a></center></font></td>\n
gvg
     }
     print gallery "</tr>";
     }
   }


sub gettable {

$tablepicked=0;
#$fittan = ($ccc % 2);
if($table_targeted != 0){
  &table1;
  $tablepicked=1;
}
else{
  if($table_free_small==1 || $table_free_small_middle==1){
    if($bottomtable_case2 == 1){
      &table_free_small2;
    }
    else{
      &table_free_small;
    }
  }
  else{
    &table2;
  }
  $tablepicked=1;
}
}


sub table1{
  $fi=0;
  open (ccc,"$common/sponsors_$kat.txt");
  while(<ccc>){
    $fi++;
    $fiolen[$fi]=$_;
    @sit=split(/\;/,$fiolen[$fi]);
    $jurl[$fi]=$sit[0];$jonmurl[$fi]=$sit[1];$jnamn[$fi]=$sit[2];
  }
print gallery <<axel;
<font face="$fontface" color="$textcolor" size="1">
<table width="$tabletargetedwidth" border=$tabletargetedborder cellspacing="2" cellpadding="2">
axel

$slip=int(rand 7)+1;
  $ryta=0;
  if($segt=1){
    $sys=5;
  }
  else{
    $sys=8;
  }
  for($pp=$slip;$pp<=($slip+$sys);$pp++){
    $ryta++;
    if((($ryta-1) % 3) == 0){print gallery "<tr>";}     
    print gallery <<asw;
      <td> 
        <div align="center"><b><font size="$tabletargetedfontsize"><a href="$jurl[$pp]" onMouseOver="window.status='$jonmurl[$pp]'; return true" target="_blank" onClick="spons=false;">$jnamn[$pp]</a></b></font></div>
      </td>
asw
    if((($ryta) % 3) == 0){print gallery "</tr>";}
  }
  print gallery "</table></font>";
  close(ccc);
}



sub table2{

  $fi=0;
  while($fi<10){
  open (ccc,"$common/sponsors_Free.txt");
  while(<ccc>){
    $fi++;
    $fiolen[$fi]=$_;
    $jurl[$fi]=$fiolen[$fi];
  }
  close(ccc);
  }

print gallery <<axel;
<font face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000" size="1">
<table width="780" border="1" cellspacing="1" cellpadding="2">
  <tr> 
<td colspan="5"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="1">Totally FREE memberships!</font></b></font></div></td>
</tr>
axel
  for($pp=1;$pp<=10;$pp++){
    if((($pp-1) % 5) == 0){print gallery "<tr>";}     
    print gallery <<aswc;
      <td> 
        <div align="center"><b><font size="1">$jurl[$pp]</font></b></div>
      </td>
aswc
    if((($pp) % 5) == 0){print gallery "</tr>";}
  }
  print gallery "</table></font>";
}

sub table_free_small{

  $fi=0;
  while($fi<4){
  open (ccc,"$common/sponsors_Free.txt");
  while(<ccc>){
    $fi++;
    $fiolen[$fi]=$_;
    $jurl[$fi]=$fiolen[$fi];
  }
  close(ccc);
  }

print gallery <<axel;
<font face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000" size="1">
<table width="300" border="1" cellspacing="1" cellpadding="2">
  <tr> 
<td colspan="2"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="1">Totally FREE memberships!</font></b></font></div></td>
</tr>
axel
  for($pp=1;$pp<=4;$pp++){
    if((($pp-1) % 2) == 0){print gallery "<tr>";}     
    print gallery <<aswc;
      <td> 
        <div align="center"><b><font size="1">$jurl[$pp]</font></b></div>
      </td>
aswc
    if((($pp) % 2) == 0){print gallery "</tr>";}
  }
  print gallery "</table></font>";
}


sub table_free_small2{

  $fi=0;
  while($fi<6){
  open (ccc,"$common/sponsors_Free.txt");
  while(<ccc>){
    $fi++;
    $fiolen[$fi]=$_;
    $jurl[$fi]=$fiolen[$fi];
  }
  close(ccc);
  }

print gallery <<axel;
<font face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000" size="1">
<table width="400" border="3" cellspacing="1" cellpadding="2">
  <tr> 
<td colspan="3"><div align="center"><font face="Verdana, Arial, Helvetica, sans-serif"><b><font size="1">No credit card?</font></b></font></div></td>
</tr>
axel
  for($pp=6;$pp>=1;$pp--){
    if((($pp) % 3) == 0){print gallery "<tr>";}
    print gallery <<aswc;
      <td> 
        <div align="center"><b><font size="1">$jurl[$pp]</font></b></div>
      </td>
aswc
    if((($pp-1) % 3) == 0){print gallery "</tr>";}
  }
  print gallery "</table></font>";
}

sub gettoplist{
  $fix=0;
#  print gallery "<font size=\"2\" color=\"$toplistcolor\" font=$fontface><b>Top Ranking</b></font><br>";
  open (zccc,"$common/sponsors_$kat.txt");
  while(<zccc>){
    $fix++;
    $fiolen=$_;
    @sit=split(/\;/,$fiolen);
    $jurl=$sit[0];$jonmurl=$sit[1];$jnamn=$sit[2];
print gallery <<ballen;
<font size="1" color=\"$toplistcolor\"><a href="$jurl" onMouseOver="window.status='$jonmurl'; return true" target="_blank" onClick="spons=false;">$jnamn</a></font><br>
ballen

  if($fix>=$sigt){
    last;
  }
  }
  close(zccc);
}


sub gettoplist3{
  $fix=0;
  print gallery "<br><font size=\"2\" color=\"$toplistcolor\" font=$fontface><b>...or try these fantastic sites:</b></font><br>";
  open (zccc,"$common/sponsors_$kat.txt");
  while(<zccc>){
    $fix++;
    $fiolen=$_;
    @sit=split(/\;/,$fiolen);
    $jurl=$sit[0];$jonmurl=$sit[1];$jnamn=$sit[2];
    $slap=int (rand 3) +1;
    if($slap == 3){
print gallery <<ballen;
<font size="2" color=\"$toplistcolor\"><a href="$jurl" onMouseOver="window.status='$jonmurl'; return true" target="_blank" onClick="spons=false;"><b>$jnamn</b></a></font><br>
ballen
    }
  }
  close(zccc);
}

sub getsitemenue{
  $fix=0;
#  print gallery "<br><font size=\"2\" color=\"$toplistcolor\" font=$fontface><b></b></font><br>";
  open (zccc,"$common/sponsors_$kat.txt");
  while(<zccc>){
    $fix++;
    $fiolen=$_;
    @sit=split(/\;/,$fiolen);
    $jurl=$sit[0];$jonmurl=$sit[1];$jnamn=$sit[2];
    $slap=int (rand 2) +1;
    if($slap == 2){
print gallery <<ballen;
<font size="2" color=\"$toplistcolor\"><a href="$jurl" onMouseOver="window.status='$jonmurl'; return true" target="_blank" onClick="spons=false;"><b>[$jnamn]</b></a></font>&nbsp;&nbsp;
ballen
    }
  }
print gallery "<br>";
  close(zccc);
}


sub getlefttext{
  print gallery "<font size=\"3\" color=\"$textcolor\" font=$fontface><b>";
  print gallery <<xzz;
<li> <div class="font3"><b>UPDATED <font color="#FFFF00">EVERY SINGLE DAY</font>!</b></div>
<li> <div class="font3"><b>MOVIES ARE <font color="#FFFF00">DOWNLOADABLE</font></b></div>
<li> <div class="font3"><b>ALL MOVIES ARE <font color="#FFFF00">FULL-LENGTH</font>!</b></div>
<li> <div class="font3"><b>MOVIES GO <font color="#FFFF00">FULL-SCREEN</font>!</b></div>
<li> <div class="font3"><b><font color="#FFFF00">EXCLUSIVE</font> PICS & MOVIES!</b></div>
<li> <div class="font3"><b><font color="#FFFF00">NEW AMATEURS</font> EVERY WEEK!</b></div>
<li> <div class="font3"><b><font color="#FF00FF">5,000</font>+ SEX STORIES!</b></div>
<li> <div class="font3"><b><font color="#FF00FF">LIVE</font> AMATEUR SEX CAMS!</b></div>
<br><br><br><br><br><br><br><br>
<li> <div class="font3"><b>UPDATED <font color="#FFFF00">EVERY SINGLE DAY</font>!</b></div>
<li> <div class="font3"><b>MOVIES ARE <font color="#FFFF00">DOWNLOADABLE</font></b></div>
<li> <div class="font3"><b>ALL MOVIES ARE <font color="#FFFF00">FULL-LENGTH</font>!</b></div>
<li> <div class="font3"><b>MOVIES GO <font color="#FFFF00">FULL-SCREEN</font>!</b></div>
<li> <div class="font3"><b><font color="#FFFF00">EXCLUSIVE</font> PICS & MOVIES!</b></div>
<li> <div class="font3"><b><font color="#FFFF00">NEW AMATEURS</font> EVERY WEEK!</b></div>
<li> <div class="font3"><b><font color="#FF00FF">5,000</font>+ SEX STORIES!</b></div>
<li> <div class="font3"><b><font color="#FF00FF">LIVE</font> AMATEUR SEX CAMS!</b></div>
xzz
  print gallery "</b></font><br>";

}
sub getrighttext{
  $fix=0;
  print gallery "<font size=\"2\" color=\"$textcolor\" font=$fontface><b>";
  print gallery <<xsss;
      <ul>
        <li>
          <p align="left"><font size="2">100% Exclusive Full-length Amateur Facial Blasts</font></li>
        <li>
          <p align="left"><font size="2">Amazing
          Peep Cam's</font><font size="2"> 24hrs a Day 7
          Days A Week</font></li>
        <li>
          <p align="left"><font size="2">100% </font><font size="2">Exclusive
          Video Feeds</font><font size="2"> of all the
          Facial Action</font></li>
        <li>
          <p align="left"><font size="2">Over </font><font size="2">200
          Online Movies</font></li>
        <li>
          <p align="left"><font size="2">Over 20k High Quality </font><font size="2">Exclusive
          Photos</font></li>
        <li>
          <p align="left"><font size="2">Over 30 Live Cam Feeds
          - With Interactive Chat -</font><font size="2">Control
          The Action</font></li>
        <li>
          <p align="left"><font size="2">Monthly E-Zine's</font></li>
        <li>
          <p align="left"><font size="2" color="#FFFF00">Now
          Updated Daily!</font></li>
      </ul>
xsss
  print gallery "</font><br>";

}

sub gettoplistcontest{
  $fix=0;
  print gallery "<font size=\"2\" color=\"$textcolor\"><b>Monthly $kat contest winners:</b></font><br>";
  open (zccc,"$common/sponsors_$kat.txt");
  while(<zccc>){
    $fix++;
    $fiolen=$_;
    @sit=split(/\;/,$fiolen);
    $jurl=$sit[0];$jonmurl=$sit[1];$jnamn=$sit[2];
    $slimp=int(rand 2)+1;
      if($slimp==2){
print gallery <<ballen;
<font size="1" color=\"$toplistcolor\">$fix. <a href="$jurl" onMouseOver="window.status='$jonmurl'; return true" target="_blank" onClick="spons=false;">$jnamn</a></font><br>
ballen
      }
  }
  close(zccc);
}


sub gettoplist2{
  $fix=0;
  print gallery "<br><center><font size=\"2\" color=\"$textcolor\" face=\"$fontface\"><b>$menytext:</b></font><br>";
  print gallery "<table border=0><tr><td><b><FONT FACE=\"$fontface\" size=+1>";
  open (zccc,"$common/sponsors_$kat.txt");
  while(<zccc>){
    $fix++;
    $fiolen=$_;
    @sit=split(/\;/,$fiolen);
    $jurl=$sit[0];$jonmurl=$sit[1];$jnamn=$sit[2];
print gallery <<ballen;
<font size="1" color=\"#000000\"><a href="$jurl" onMouseOver="window.status='$jonmurl'; return true" target="_blank" onClick="spons=false;">$jnamn</a></font><br>
ballen
  if($fix == 3 || $fix == 6){
   print gallery "</td><td><b><FONT FACE=\"$fontface\" size=+1>";
  }  
  if($fix ==9){
   last;
  }
  }
  close(zccc);
  print gallery "</td></tr></table>";
}



sub getleftsponsor{
print gallery <<nmn;
<center><a href="http://www.totally4freecash.com/free.asp?an=306461" onMouseOver="window.status='Free teens'; return true" target="_top"><b>TEENS TOTALLY<br>4 FREE-NO CREDIT<br>CARD REQUIRED!</a>


nmn
}

sub getrightsponsor{
print gallery <<nmn;
<center><a href="http://in.teen-mail4free.com/cgi-bin/tm4fIn.cgi/20/758096/T" onMouseOver="window.status='Free teens'; return true" target="_blank"><b>FREE TEENS!<br>Petite teens!<br>FREE MEMBERSHIP!</a>


nmn
}


sub getbanner {

$bannerpicked=0;
#$fittan = ($ccc % 5) + $bannernum;

if($kaat eq 'Anal' || $kaat eq 'Asses'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.analvalley.com/?revid=5694&s=1" onMouseOver="window.status='http://www.analvalley.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-av.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Amateur' || $kaat eq 'Housewives'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.amateurpie.com/?revid=5694&s=3" onMouseOver="window.status='http://www.amateurpie.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-ap.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Asian' || $kaat eq 'Japanese'){
if($sitenumber==18){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=905175&PA=244656" onMouseOver="window.status='http://www.exploitedteensasia.com'; return true" target="_blank"><img src="../sponsors/exploitedteensasia1.gif" border=0><br><font face="$fontface" size="4"></b>Do you know that there is no better place in the world than <b>Exploited Teens Asia</b> if you like to see young<br>innocent <b>asian girls exposing</b> themselves, <b>sucking white cock</b>, getting <b>fucked in every hole</b> and <b>eating sperm</b>?</font></a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908169&PA=256223" onMouseOver="window.status='http://www.gotcum.com'; return true" target="_blank"><font face="$fontface" size="4">The second best place is <b>Got Cum</b> for fans of <b>facials, bukkake and cum eating</b>.....</font><br><img src="../sponsors/gotcum1.jpg" border=0></a>
<br><br>
<font face="$fontface" size="2">
Or try these fantastic places:
</font><br>
</center>
cizx
    }
$bannerpicked=1;
}

if($sitenumber==15){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://www.traffimagic.com/WIP3OMMVRPA/comein/JPMVS" onMouseOver="window.status='http://www.jp-movies.com'; return true" target="_blank"><img src="$baseurl/sponsors/jp-movies1.gif" border=0><br>JP-Movies - The BEST Japanese XXX Movie Theater</a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center><a href="http://www.traffimagic.com/WIP3OMMVRPA/comein/JHDCR" onMouseOver="window.status='http://www.j-hardcore.com'; return true" target="_blank"><img src="$baseurl/sponsors/j-hardcore1.gif" border=0><br>J-Hardcore - All You Need in Asian/Japanese Hardcore - FANTASTIC!</a>
<br><br><br><a href=\"http://orientgalleries.com\">Made for you by OrientGalleries.com</a>
</center>
cizx
    }
$bannerpicked=1;
}

if($sitenumber==12){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=905175&PA=244656" onMouseOver="window.status='http://www.exploitedteensasia.com'; return true" target="_blank"><img src="$baseurl/sponsors/exploitedteensasia1.gif" border=0><br>Exploited Teens Asia - Submissive Asian Teens!</a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center>
<a href="http://www2.asiantease.com/cgi/click?account=854528&site=at&program=signup" onMouseOver="window.status='http://www.asiantease.com'; return true" target="_blank">
Asia Tease - The #1 asian site on the web!<br>
<img src="$baseurl/sponsors/asiantease1.jpg" border=0>
</a>
</center>
cizx
    }
$bannerpicked=1;
}

if($bannerpicked != 1){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.seeasians.com/?revid=5694&s=2" onMouseOver="window.status='http://www.seeasians.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-sa.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}
}



if($kaat eq 'Cumshots' || $kaat eq 'Blowjob'){
if($sitenumber==16){
print gallery <<cizx;
<center><a href="http://tour.bukkaketeens.com/pt=bc_jonny" onMouseOver="window.status='http://www.bukkaketeens.com'; return true" target="_blank"><img src="$baseurl/sponsors/bukkaketeens1.jpg" border=0></a>
</center>
cizx
$bannerpicked=1;
}
if($sitenumber==20){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://www2.cumcheeks.com/cgi/click?account=854528&site=cc&program=signup" onMouseOver="window.status='http://www.cumcheeks.com'; return true" target="_blank"><img src="$baseurl/sponsors/cumcheeks4.jpg" border=0></a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center><a href="http://www2.cumcheeks.com/cgi/click?account=854528&site=cc&program=signup" onMouseOver="window.status='http://www.cumcheeks.com'; return true" target="_blank"><img src="$baseurl/sponsors/cumcheeks5.gif" border=0></a>
</center>
cizx
    }
$bannerpicked=1;
}

if($sitenumber==21){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://www.filthycum.com/index.html?id=2009189" onMouseOver="window.status='http://www.filthycum.com'; return true" target="_blank"><img src="$baseurl/sponsors/filthycum1.gif" border=0><br>
<b><font size="4">Visit Filthy Cum for a Great Experience!</font></b></a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center>
<a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=911216&PA=256249&HTML=http://www.exploitedteens.com/tour2" onMouseOver="window.status='http://www.exploitedteens.com'; return true" target="_blank">
<b><font size="4">Try Exploited Teens<br>A completely new and different experience...<br>
<img src="$baseurl/sponsors/exploitedteens1.gif" border=0><br>
It will never get better!</font></b></a>
</center>
cizx
    }
$bannerpicked=1;
}


if($sitenumber==13){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908073&PA=244738&HTML=http://www.facialhumiliation.com" onMouseOver="window.status='http://www.facialhumiliation.com'; return true" target="_blank"><img src="$baseurl/sponsors/facialhumiliation1.gif" border=0><br>Of course Facial Humiliation features the most amazing, mind blowing Facials ever Caught on Film!<br>By Accessing Facial Humiliation you will see 100% Exclusive Amateur Facial blasts that will truly blow your mind.</a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908073&PA=244738&HTML=http://www.facialwhore.com" onMouseOver="window.status='http://www.facialwhore.com'; return true" target="_blank">Laura is The World Famous, One And Only! This Girl Loves Cum, and she proves it by Drinking it from Buckets,<br>Spoons, Having it shot up her nose, into her eyes, She Plays with it like it's a Toy, and even brushes her teeth with it!<br><img src="$baseurl/sponsors/facialwhore1.jpg" border=0></a>
</center>
cizx
    }
$bannerpicked=1;
}

if($sitenumber==11){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://tour.americanbukkakeporn.com/pt=bc_jonny" onMouseOver="window.status='http://www.americanbukkake.com'; return true" target="_blank"><img src="$baseurl/sponsors/americanbukkake1.jpg" border=0><br>American Bukkake is the finest in western bukkake style sex!</a>
</center>
cizx
    }
    else{
print gallery <<cizc;
<center><a href="http://tour.extremebukkake.com/pt=bc_jonny" onMouseOver="window.status='http://www.extremebukkake.com'; return true" target="_blank">
<b>A must visit for the dedicated cumshots-facials-bukkake fan!</b><br>
<img src="$baseurl/sponsors/extremebukkake1.gif" border=0></a>
<br><br>
<a href="http://ultrasexpix.com"><b>Gallery provided by Ultrasexpix.com</b></a>
</center>
cizc
    }
$bannerpicked=1;
}

if($sitenumber==10){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://www.googirls.com/main.php?rid=gg1269" onMouseOver="window.status='http://www.googirls.com'; return true" target="_blank">
<img src="$baseurl/sponsors/googirls2.gif" width="650" height="107" border=0></a> 
</center>
cizx
    }
    else{
print gallery <<cizc;
<br><br><a href=\"http://pixhunter.com\" onMouseOver=\"window.status='http://pixhunter.com'; return true\" target=\"_blank\"><font size=3 face=$fontface><b>This page is served by PixHunter.Com - Cumshots, teens and gang bang!</b></font></a>
cizc
    }
$bannerpicked=1;
}

if($sitenumber==5){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://www.nastydollars.com/sts/ct/count.cgi?a=anders66&w=cf" onMouseOver="window.status='http://www.cumfiesta.com'; return true" target="_blank">
<b>Cumfiesta, the best amateur cumshots site invites you:</b><br><img src="$baseurl/sponsors/cumfiesta1.jpg" width="480" height="100" border=0></a> 
</center>
cizx
    }
    else{
print gallery <<cizc;
<center><a href="http://www.nastydollars.com/sts/ct/count.cgi?a=anders66&w=cf" onMouseOver="window.status='http://www.cumfiesta.com'; return true" target="_blank">
<br><b>Visit Cumfiesta now for a \$4,95 special!</b><br>
<img src="$baseurl/sponsors/cumfiesta2.jpg" width="480" height="100" border=0></a> 
</center>
cizc
    }
$bannerpicked=1;
}
if($sitenumber==6){
    if($bannernum==0){
print gallery <<ciz;
<center>
<table width="550" border="0"><tr><td><center>
<a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908169&PA=229977" onMouseOver="window.status='http://www.gotcum.com'; return true" target="_blank">
<font size="3"><b>Gotcum</b> is dedicated to showing the finest quality pictures and movies of cute japanese girls taking cum all over their faces and body even drinking and swallowing sperm.... <br><b>Gotcum is the finest cumshot-facials-bukkake website of the world!</b></font>
</a> 
</center>
</td></tr></table>
ciz
    }
    else{
print gallery <<ciz;
<center>Or if you are a bukkake freak, try this great site:<br><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900927&PA=230794" onMouseOver="window.status='http://www.bukkake-bath.com'; return true" target="_blank">
<img src="$baseurl/sponsors/bukkake-bath1.jpg" border=0></a> 
</center>
ciz
    }
$bannerpicked=1;
}
if($sitenumber==8){
    if($bannernum==0){
print gallery <<ciz;
<center>
<table width="550" border="0"><tr><td><center>
<a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900927&PA=230794" onMouseOver="window.status='http://www.bukkake-bath.com'; return true" target="_blank">
<font face="$fontface" size="4"><b>If you like cute japanese teen girls sucking cock and being drenched in cum by 100-150 men then you must visit Bukkake-Bath!</b></font>
</a> 
</center>
</td></tr></table>
ciz
    }
    else{
print gallery <<ciz;
<center>Or if you are a bukkake freak, try this great site:<br><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900927&PA=230794" onMouseOver="window.status='http://www.bukkake-bath.com'; return true" target="_blank">
<img src="$baseurl/sponsors/bukkake-bath1.jpg" border=0></a> 
</center>
ciz
    }
$bannerpicked=1;
}

if($sitenumber==9){
    if($bannernum==0){
print gallery <<ciz;
<center>
<table width="550" border="0"><tr><td><center>
<a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900293&PA=238809" onMouseOver="window.status='http://www.cumonherface.com'; return true" target="_blank">
<font face="$fontface" size="4" face="Helvetica"><b>Cum on Her Face is a fantastic site for the dedicated cumshot fan. Many horny girls takes cum on their faces and do lots of other funny things. <br>This is for true cumshot maniacs!</b></font>
</a> 
</center>
</td></tr></table>
ciz
    }
    else{
print gallery <<ciz;
<center>
<a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900293&PA=238809" onMouseOver="window.status='http://www.cumonherface.com'; return true" target="_blank">
<font face="$fontface" size="5" face="Helvetica"><b>So visit Cum on Her Face now to see for yourself!</a><br><br>
<a href="http://www.filthycum.com/index.html?id=2009189" onMouseOver="window.status='http://www.filthycum.com'; return true" target="_blank">
<font face="$fontface" size="2">Or try this similar site if you already know about the above:</font><br>
<img src="$baseurl/sponsors/googirls1.gif" border=0></b></font></a><br>
</a>
</center>
ciz
    }
$bannerpicked=1;
}

if($sitenumber == 3){
if(($daynum>=1 & $daynum<=3) || ($daynum>=27 & $daynum<=35)){
if($bannernum==0){
print gallery <<ciz;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=907457&PA=230793" onMouseOver="window.status='http://www.sweetloads.com'; return true" target="_blank">
<img src="$baseurl/sponsors/sweetloads1.gif" border=0><br>Sweet Loads is one of the best cumshots sites of the net!</a> 
</center>
ciz
}
else{
print gallery <<ciz;
<center><a href="http://amateur-facials.com/cgi/enter.pl?109168:109168_82939P" onMouseOver="window.status='http://www.amateur-facials.com'; return true" target="_blank">
Amateur-Facials for cum crazy teen amateur girls!<br>
<img src="$baseurl/sponsors/amateur-facials1.jpg" border=0></a> 
</center>
ciz
}
}
if($daynum>=4 & $daynum<=15){
if($bannernum==0){
print gallery <<ciz;
<center><a href="http://amateur-facials.com/cgi/enter.pl?109168:109168_82939P" onMouseOver="window.status='http://www.amateur-facials.com'; return true" target="_blank">
Amateur-Facials for cum crazy teen amateur girls!<br>
<img src="$baseurl/sponsors/amateur-facials1.jpg" border=0></a> 
</center>
ciz
}
else{
print gallery <<ciz;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=907457&PA=230793" onMouseOver="window.status='http://www.sweetloads.com'; return true" target="_blank">
<img src="$baseurl/sponsors/sweetloads1.gif" border=0><br>Sweet Loads is one of the best cumshots sites of the net!</a> 
</center>
ciz
}
}
if($daynum>=16 & $daynum<=26){
if($bannernum==0){
print gallery <<ciz;
<center><a href="http://amateur-facials.com/cgi/enter.pl?109168:109168_82939P" onMouseOver="window.status='http://www.amateur-facials.com'; return true" target="_blank">
Amateur-Facials for cum crazy teen amateur girls!<br>
<img src="$baseurl/sponsors/amateur-facials1.jpg" border=0></a> 
</center>
ciz
}
else{
print gallery <<ciz;
<center><a href="http://amateur-facials.com/cgi/enter.pl?109168:109168_82939P" onMouseOver="window.status='http://www.amateur-facials.com'; return true" target="_blank">
Amateur-Facials for cum crazy teen amateur girls!<br>
<img src="$baseurl/sponsors/amateur-facials1.jpg" border=0></a> 
</center>
ciz
}
}

$bannerpicked=1;
}


if(($sitenumber >= 71 || $sitenumber == 5) & $bannerpicked != 1){
  if($sitenumber==71 || $sitenumber==72 || $sitenumber==73){
    if($bannernum==0){
print gallery <<ciz;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900927&PA=230794" onMouseOver="window.status='http://www.bukkake-bath.com'; return true" target="_blank">
<img src="$baseurl/sponsors/bukkake-bath1.jpg" width="425" height="70" border=0></a> 
</center>
ciz
    }
    else{
print gallery <<ciz;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908169-0002&PA=229976" onMouseOver="window.status='http://www.explicitjapan.com'; return true" target="_blank">
<img src="$baseurl/sponsors/explicitjapan1.jpg" width="370" height="90" border=0></a> 
</center>
ciz
    }
  }
  else{
    if($bannernum==0){
print gallery <<ciz;
<center><a href="http://www.nastydollars.com/sts/ct/count.cgi?a=anders66&w=cf" onMouseOver="window.status='http://www.cumfiesta.com'; return true" target="_blank">
<img src="$baseurl/sponsors/cumfiesta1.jpg" width="480" height="100" border=0></a> 
</center>
ciz
    }
    else{
print gallery <<ciz;
<center><a href="http://www.nastydollars.com/sts/ct/count.cgi?a=anders66&w=cf" onMouseOver="window.status='http://www.cumfiesta.com'; return true" target="_blank">
<img src="$baseurl/sponsors/cumfiesta5.jpg" width="480" height="100" border=0></a> 
</center>
ciz
    }
  }
}
else{
if($bannerpicked != 1){
if($sitenumber == 1){
if($bannernum==0){
print gallery <<ciz;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=900927&PA=230794" onMouseOver="window.status='http://www.bukkake-bath.com'; return true" target="_blank">
<img src="$baseurl/sponsors/bukkake-bath1.jpg" width="425" height="70" border=0></a> 
</center>
ciz
}
else{
print gallery <<ciz;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908169-0002&PA=229976" onMouseOver="window.status='http://www.explicitjapan.com'; return true" target="_blank">
<img src="$baseurl/sponsors/explicitjapan1.jpg" width="370" height="90" border=0></a> 
</center>
ciz
#print gallery <<ciz;
#<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908169&PA=229977" onMouseOver="window.status='http://www.gotcum.com'; return true" target="_blank">
#<img src="$baseurl/sponsors/gotcum1.jpg" width="370" height="90" border=0></a> 
#</center>
#ciz
}
}
else{
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.facialmag.com/?revid=5694&s=2" onMouseOver="window.status='http://www.facialmag.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-fm.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->
cim
}
}
$bannerpicked=1;
}
}

if($kaat eq 'Ebony'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.ebonyjoy.com/?revid=5694&s=1" onMouseOver="window.status='http://www.ebonyjoy.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-ej.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}
if($kaat eq 'Fetish' || $kaat eq 'Bizarre' || $kaat eq 'Bdsm' || $kaat eq 'Hairy' || $kaat eq 'Pee' || $kaat eq 'Pregnant' || $kaat eq 'Legs'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.fetishhell.com/?revid=5694&s=2" onMouseOver="window.status='http://www.fetishhell.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-fh.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Gangbang' || $kaat eq 'Group'){
if($sitenumber>=71){

if($bannernum==0){
if($sitenumber==81){
print gallery <<ciz;
<center><a href="http://amateur-facials.com/cgi/enter.pl?109168:109168_82939P" onMouseOver="window.status='http://www.amateur-facials.com'; return true" target="_blank">
<img src="$baseurl/sponsors/amateur-facials1.jpg" border=0></a> 
</center>
ciz
}
else{
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.allgangbang.com/?revid=5694&s=1" onMouseOver="window.status='http://www.allgangbang.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-ag.gif" width=468 height=60 border=0></a><br> 
</center>
<!--topbucks banner of the week end -->
cim
}
}
else{
if($sitenumber==81){
print gallery <<ciz;
<center><a href="http://www.filthycum.com/index.html?id=2009189" onMouseOver="window.status='http://www.filthycum.com'; return true" target="_blank">
<img src="$baseurl/sponsors/filthycum1.gif" border=0></a> 
</center>
ciz
}
else{
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.facialmag.com/?revid=5694&s=2" onMouseOver="window.status='http://www.facialmag.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-fm.gif" width=468 height=60 border=0></a><br> 
</center>
<!--topbucks banner of the week end -->
cim
}
}
}
else{
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.allgangbang.com/?revid=5694&s=1" onMouseOver="window.status='http://www.allgangbang.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-ag.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->

cim

}
$bannerpicked=1;
}

if($kaat eq 'Gay' || $kaat eq 'Penis'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.gaydome.com/?revid=5694&s=2" onMouseOver="window.status='http://www.gaydome.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-gd.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Hardcore' || $kaat eq 'Miscellaneous' || $kaat eq 'Closeups'){
  if($sitenumber==17){
    if($bannernum==0){
print gallery <<ciz;
<!--topbucks banner of the week start -->
<center><a href="http://www.girlsgetcrazy.com/?revid=5694&s=3" onMouseOver="window.status='http://www.girlsgetcrazy.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-gg.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->
ciz
$bannerpicked=1;
    }
    else{
if($daynum>=1 & $daynum<=17){
print gallery <<ciz;
<!--topbucks banner of the week start -->
<center><a href="http://www.bigcocksex.com/?revid=5694&s=1" onMouseOver="window.status='http://www.bigcocksex.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-bs.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end --> 
ciz
$bannerpicked=1;

}
if($daynum>=18 & $daynum<=27){
print gallery <<ciz;
<!--topbucks banner of the week start -->
<center><a href="http://www.iteens.com/?revid=5694&s=5" onMouseOver="window.status='http://www.iteens.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-it.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end --> 
ciz
$bannerpicked=1;

}
if($daynum>=28 & $daynum<=35){
print gallery <<ciz;
<!--topbucks banner of the week start -->
<center><a href="http://www.seeasians.com/?revid=5694&s=2" onMouseOver="window.status='http://www.seeasians.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-sa.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->
ciz
$bannerpicked=1;

}
    }
  }

if($bannerpicked != 1){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.pornoground.com/?revid=5694&s=4" onMouseOver="window.status='http://www.pornoground.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-pg.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}
}

if($kaat eq 'Interracial'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.interratialjoy.com/?revid=5694&s=1" onMouseOver="window.status='http://www.interratialjoy.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-gg.gif" width=468 height=60></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Latina'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.fantasylatina.com/?revid=5694&s=1" onMouseOver="window.status='http://www.fantasylatina.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-fl.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Lesbian' || $kaat eq 'Toys'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.lesboerotica.com/?revid=5694&s=2" onMouseOver="window.status='http://www.lesboerotica.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-le.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Mature' || $kaat eq 'Fat' || $kaat eq 'Granny'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.maturexrotica.com/?revid=5694&s=1" onMouseOver="window.status='http://www.maturexrotica.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-mx.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Pornstar'){
print <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.dopornstars.com/?revid=5694&s=1" onMouseOver="window.status='http://www.dopornstars.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-ct.gif" width=468 height=60></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->
cim

$bannerpicked=1;
}

if($kaat eq 'Shemale'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.trannyhouse.com/?revid=5694&s=1" onMouseOver="window.status='http://www.trannyhouse.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-sg.gif" width=468 height=60></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->
cim

$bannerpicked=1;
}





if($kaat eq 'Teen' || $kaat eq 'Young' || $kaat eq 'Schoolgirl' || $kaat eq 'Babe' || $kaat eq 'Blonde' || $kaat eq 'Brunette' || $kaat eq 'Cheerleader' || $kaat eq 'Lingerie' || $kaat eq 'Masturbation' || $kaat eq 'Panties'){

if($sitenumber==2){

print gallery <<cim;
<center><a href="http://www.little-schoolgirls.com/index.html?id=2009189" onMouseOver="window.status='http://www.littleschoolgirls.com'; return true" target="_blank">
<font size="3"><b>Little-Schoolgirls.Com, the worlds teeniest teens!</b><br>
<img src="$baseurl/sponsors/littleschoolgirls1.gif" border=2></a> 
</center>
cim

$bannerpicked=1;
}

if($sitenumber==19){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://click.payserve.com:8080/ct?id=27188&banner=273" onMouseOver="window.status='http://www.clubseventeen.com'; return true" target="_blank"><img src="../sponsors/clubseventeen1.jpg" border=0></a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center><a href="http://click.payserve.com:8080/ct?id=27188&banner=294" onMouseOver="window.status='http://www.teensex.com'; return true" target="_blank"><img src="../sponsors/teensex1.gif" border=0></a>
</center>
cizx
    }
$bannerpicked=1;
}

if($sitenumber==14){
    if($bannernum==0){
print gallery <<cizx;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908073&PA=244738&HTML=http://www.dirtyschoolgirl.com" onMouseOver="window.status='http://www.dirtyschoolgirl.com'; return true" target="_blank"><img src="$baseurl/sponsors/dirtyschoolgirl1.gif" border=0><br><font face=$fontface size="4">The hottest and naughtiest amateur teens on the planet.<br>Tons of horny web virgins longing for you.<br>Many suck big cocks and tastes sperm for the first time...</font></a>
</center>
cizx
    }
    else{
print gallery <<cizx;
<center><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=908073&PA=244738&HTML=http://www.pantymadness.com" onMouseOver="window.status='http://www.pantymadness.com'; return true" target="_blank"><font face=$fontface size="4">Pantymadness.com - Panties, panties, panties...</font><br><img src="$baseurl/sponsors/pantymadness1.gif" border=0></a>
</center>
cizx
    }
$bannerpicked=1;
}


if($sitenumber == 7 & $bannerpicked != 1){
if($bannernum==0){

print gallery <<cim;
<center><b><a href="http://www.bigcocksex.com/?revid=5694&s=1" onMouseOver="window.status='http://www.bigcocksex.com'; return true" target="_blank">
<font size="3">Do you like to see young women being penetrated by huge cocks?<br>Big Cock Sex specializes in just that!<br>Big Cock Sex offer 1000s of photos and movies of girls sucking and fucking gigantic cocks!
</a></b>
<br>
cim

$bannerpicked=1;

}
else{

print gallery <<cim;
<center><a href="http://www.little-schoolgirls.com/index.html?id=2009189" onMouseOver="window.status='http://www.littleschoolgirls.com'; return true" target="_blank">
<font size="3"><b>Or try Little-Schoolgirls.Com, the worlds teeniest teens!</b><br>
<img src="$baseurl/sponsors/littleschoolgirls1.gif" border=2></a> 
</center>
cim

$bannerpicked = 1;
}
}

if($bannerpicked != 1){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.iteens.com/?revid=5694&s=5" onMouseOver="window.status='http://www.iteens.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-it.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end --> 
cim
}
$bannerpicked=1;
}






if($kaat eq 'Tits'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.tittymax.com/?revid=5694&s=2" onMouseOver="window.status='http://www.tittymax.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-tm.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($kaat eq 'Voyeur' || $kaat eq 'Nudist' || $kaat eq 'Outdoor' || $kaat eq 'Panties' || $kaat eq 'Shower' || $kaat eq 'Upskirt'){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.voyeurgals.com/?revid=5694&s=3" onMouseOver="window.status='http://www.voyeurgals.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-vg.gif" width=468 height=60 border=0></a><br>
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a> 
</center>
<!--topbucks banner of the week end -->

cim

$bannerpicked=1;
}

if($bannerpicked == 0){
print gallery <<cim;
<!--topbucks banner of the week start -->
<center><a href="http://www.allgangbang.com/?revid=5694&s=1" onMouseOver="window.status='http://www.allgangbang.com'; return true" target="_blank"> 
<img src="http://botw.topbucks.com/botw-ag.gif" width=468 height=60 border=0></a><br> 
<a href="http://referral.topbucks.com/clickthru.cgi?id=roax" onMouseOver="window.status='Webmasters Click Here'; return true" target="_blank">
<font face="arial" size=1><b>Webmasters Click Here</b></font></a>
</center>
<!--topbucks banner of the week end -->
cim
$bannerpicked=1;
}

}




sub fixheaders2{
  $qkeynum=@qkeyw-1;$xkeystring='';
  for($hy=0;$hy<=$qkeynum;$hy++){
    $xslump=int(rand $qkeynum);
    $xkeystring=$xkeystring."$qkeyw[$xslump],";
  }

$xdescalt[1]="The best place in the world for free $kat pictures.";
$xdescalt[2]="Free $kat sex images and pictures in 55 other categories.";
$xdescalt[3]="The worlds best TGP and collection of $kat images. All for free!";
$xdescalt[4]="$kat porn images for free. +150,000 free pictures!";
$xdescalt[5]="+15,000 free $kat galleries of +134,000 $kat images.";
$xdescalt[6]="$kat pictures! The largest collection of $kat images in the world.";
$xdescalt[7]="Visit for free! Free $kat porn! $kat pictures!";

$xdesc=int (rand 7)+1;
$xdescstring=$xdescalt[$xdesc];

$zix="
<meta name=\"description\" content=\"$xdescstring $xkeystring\">
<meta name=\"keywords\" content=\"$xkeystring\">
";

}



sub getheaders2{
$ppicked=0;


if($kat eq 'Amateur' || $kat eq 'Housewives'){
  @qkeyw=('girlfriend','girlfriends','ex-girlfriends','amateur','amateurs','SEX','Sex','sex','girl','girls','swingers','swinging','ad','contact ad','girlfriend','blond','blonde','erotic','erotica','photos','images');
  &fixheaders2;
  $ppicked=1;
}



if($kat eq 'Anal' || $kat eq 'Asses'){
  @qkeyw=('ass','butts','anal','buttfuck','tight','narrow','ass to mouth','spanking','ass exposure','butt hole','ass fuck','anal sex');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Asian' || $kat eq 'Japanese'){
  @qkeyw=('Asian sex',' Asian porn','chinese','vietnamese','asian','oriental','japper','jap',' Asian girls',' Asian XXX Free Asian pics',' Nude Asians',' Asian teens',' Japanese teens',' Young nude girls',' Oriental hardcore sex',' Asia Cum Shots',' Asian models',' Panties',' Asian Pantyhose',' Lingerie',' Asian babes',' Asian  movies',' Japanese porn',' Japanese XXX',' Japanese movies',' asian',' nude',' hardcore',' cum shots',' teens',' babes',' xxx',' japanese teens',' japanese schoolgirls',' mpeg',' asian nude',' sex',' adult',' japanese',' free pics',' asian links',' asian models',' teens',' erotic','oriental','adult','thailand','asia');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Babe' || $kat eq 'Bikini'){
  @qkeyw=('babes','celebs','busty','amateurs','sex','free','ebony','thumbs','thumbnails','girls','babes','fucked','woman','nude','naked','pants','panties','knickers','pantyhose','horny','stockings','shoes','panty','boots','socks','nylon','pussy','black','surfers','pics','sucking','cunt','twat','minge','tits','breasts','asses','asss','girlz','lesbian','love','link','links','lez','xxx','adult','porn','pic','pictures');
  &fixheaders2;
$ppicked=1;
}


if($kat eq 'Blowjob'){
  @qkeyw=('cocksucking',' cock suck','fellatio','facial',' blowjob',' blow job',' cumshot',' cum live',' sex',' shows',' videos',' pussy',' porn',' xxx',' nude',' porno',' girls',' feeds',' acts',' streams',' cams',' naked',' hardcore sex lesbian cunt pussy action live sex hidden cams',' sex stories',' live sex shows',' voyeur cams',' fres slut pussy',' pictures','sweetloads',' steve sweet',' amateurs',' facial',' blowjob blow job',' cumshot',' cum  pics',' movies',' sounds',' asian',' black',' oral',' anal',' females',' women',' teens',' young',' older',' free sex',' Live Sex Shows',' Voyeur Cams',' and Free Slut Pussy');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Bukkake'){
  @qkeyw=('bukkake','sperm','cumshots','facials','spermbaths','cum eaters','cum bubbles','japanese','ggg','american bukkake','japanese bukkake','german bukkake','sperma','cum','goo','jizz');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Celebrity'){
  @qkeyw=('Alice Silverstone','Alyssa Millano','Amy Weber','Anna Kournikova','Angie Everhart','Britney Spears','Cameron Diaz','Carmen Electra','Catherine Zeta Jones','Christina Aguilera','Cindy Crawford','Claudia Schiffer','Daniela Cardone','Drew Barrymore','Jennifer Lopez','Jennifer Love Hewit');
  &fixheaders2;
$ppicked=1;
}


if($kat eq 'Cumshots' || $kat eq 'Oral'){
  @qkeyw=('cum','sluts','sperm','jizz','bukkake','bubbles','swallow','gargle','drink','japanese','ggg','german','american bukkake','thumbs','galleries');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Ebony'){
  @qkeyw=('negro','brown','brownie','chocolate','hot','thumbnail','gallery','nude','thumbs','free','beautiful','ebony','babes','black','sistas','pink','twat');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Fat'){
  @qkeyw=('fat girls',' fat woman naked',' plump women nude',' large ass photos',' fat porn pics',' naughty girls');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Fetish' || $kat eq 'Bizarre' || $kat eq 'Bdsm' || $kat eq 'Hairy' || $kat eq 'Pee' || $kat eq 'Pregnant' || $kat eq 'Legs'){
  @qkeyw=('pantyhose','nylons','feet','soles','Leg','Legs','footjob','sex','tickling','ticklish','bondage','fuck','fucking','erotik','erotic','domination','domina','Free','pic','pics','pictures','lingerie','waesche','getragenes','gebraucht','benutzt','sell','selling','sells','upskirt','voyeur','e-mail','kontakt','pervert','pervers','Strumpfhose','Struempfe','dirtyerotik','fetish','fetisch','worn','smelly','sticky','lingerie','foot','Fuesse','Fuss','pumps','schuhe','high-heels','leather','rubber','rub','slave','butts','ass','asshole','stockings','garter','garters','garterbelt','wet','NS','KV','Video','for sale','my panties','panty','pantys','Slip','Slips','Hoeschen','scat','piss','pissing','socken','Fußsohle','lecken');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Gangbang' || $kat eq 'Group'){
  @qkeyw=('gangbang','bukkake','groupsex',' group sex','swinging','threesome','foursome','cumslut','double penetration','group');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Gay' || $kat eq 'Penis'){
  @qkeyw=('mygaylinx',' gay links',' gay top links',' gay linx',' UGAS',' AgeCheck',' Free Pictures',' Adult Check',' Age Check',' Man Check',' gay',' male',' nude',' men',' boys',' boy',' twink',' twinks',' webcams',' studs',' gay pictures',' amateur',' fetish',' romance',' kissing',' sex',' sex pics',' sex pictures',' gay pics',' ass',' anal sex',' transexuals',' TS',' TV',' transvestites',' links',' list',' underwear',' penis',' dildo',' fucking',' gay men',' hard cock',' cock',' cocks',' hard cocks',' hardon',' hard on',' dicks',' dick',' rimming',' licking',' stripper',' organ',' jackoff',' jack off',' cum',' gay site list',' free gay sex pics',' free gay pics',' free gay pictures',' galleries',' best',' sites');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Hardcore' || $kat eq 'Miscellaneous' || $kat eq 'Closeups'){
  @qkeyw=('blow-job','boobs','tits','lesbian','orgy','black','interacial','teen','group-sex','hardcore','screaming','orgasim','cum','blowjob','clitoris','clit','anal','pussy','doggystyle','riding','adults','only','live-sex','naked','nipples','penetration','licking');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Interracial'){
  @qkeyw=('interracial','cum','loving','white','tramp','large','penis','blacks','ganging','a','white','slut','white','bimbo','fucking','giant','cock','blacks','blonde','chick','sucking','huge','black','cocks','big','cock','black','fucks','tiny','white','slut','interracial','couple','spreading','and','fucking','oralsex','nasty','huge','cock','analsex','nasty','deep','interracial','asshole','fucking','huge','black','cock','ass','banging','white','','slut','nasty','white','chick','getting','rear','entry','sex','white','chick','getting','monster','cock','ass','fucked','blonde','chick','ass','fucked');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Lesbian' || $kat eq 'Toys'){
  @qkeyw=('toys','lesbo','lesbian','wet kissing lesbian pink','  girl girl action',' lesbian lovers stripping',' french kissing lesbians','dildo','dykes','lesbos','cunt licking','nymphos');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Mature' || $kat eq 'Fat' || $kat eq 'Granny'){
  @qkeyw=('Mature',' granny',' grannys',' old',' oldwomen',' maturesex',' pictures',' galleries',' older',' babes',' hardcore',' free');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Pornstar'){
  @qkeyw=('Brianna Banks','Amber Michaels','Jenna Jameson','Asia Carrera','Tera Patrick','Nicole Sheridan','Jenna Jameson',' Tera Patrick',' Sylvia Saint',' Jewel De Nyle',' Stacy Valentine',' Jasmine St. Clair',' Peter North',' Bridget Kerkov',' Cheyanne',' Keri Windsor',' Miriah',' Skylar',' Charmane',' Cherry',' Ginger Page',' Rebecca Lord',' McKayla',' Venus',' Sydnee Steele',' Haven',' Bailey','striptease act',' xxx video',' cheating wives sluts',' brunette amateur',' woman',' blowjob video clip',' hentai anime porn',' hardcore vivo',' cyberporn sex links club voyeur movies',' Sexy Blonde Model',' big tits',' ebony mpg galleries',' video cocks',' cheating wives sluts',' animatio big boobs',' hentai anime porn',' hardcoresex free',' 2000',' New Sensations');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Shemale'){
  @qkeyw=('shemale','trans','transvestites','tranny',' cheerleader',' devine',' shemale',' high heels',' stockings',' sexy',' american',' lingerie',' picture',' sex',' pic',' beautiful',' escort',' porn',' free porn',' chat',' bondage',' gallery',' amateur',' story',' cock',' dick',' tits',' hard',' contact',' dating',' nude',' sluts',' thumbnail',' thumb',' breast',' breasts',' hardcore',' model',' fucking',' naked',' tgp',' mistress',' blow job',' erotica',' hot',' fetish',' web page',' horny',' blonde',' brunette',' tall',' thin',' feminine',' black',' asian',' japanese',' brazil',' brazilian');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Softcore'){
  @qkeyw=('women','teen',' teens',' young',' youngest',' lolita',' lolitas',' dangerous',' willing',' sluts',' sex',' porno',' porn',' pornography',' pussy',' adult',' erotica',' girls',' erotic',' lingerie',' hardcore',' girls',' tits',' free sex',' free',' babes',' topless',' breasts',' boobs',' erotic',' girls',' free site',' oral sex',' filatio',' blowjob',' bj',' sucking',' licking',' pussy',' porn',' pornography',' oral delights',' sucking tits',' pics',' sexy',' babes',' fuck',' sexual escapades',' breasts',' touching breasts',' copping a feel',' feeling breasts');
  &fixheaders2;
$ppicked=1;
}


if($kat eq 'Teen' || $kat eq 'Young' || $kat eq 'Schoolgirl' || $kat eq 'Blonde' || $kat eq 'Brunette' || $kat eq 'Cheerleader' || $kat eq 'Lingerie' || $kat eq 'Masturbation' || $kat eq 'Panties'){
  @qkeyw=('petite','teen',' teens',' young',' youngest',' lolita',' lolitas',' dangerous',' willing',' sluts',' sex',' porno',' porn',' pornography',' pussy',' adult',' erotica',' erotic',' lingerie',' hardcore',' girls',' tits',' free sex',' free',' babes',' topless',' breasts',' boobs',' erotic',' free site','girlies','girlie');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Tits'){
  @qkeyw=('big tits',' boobs',' melons',' hooters',' large breasts',' huge boobs',' tatas',' big tit hardcore',' whoopers',' boob sex');
  &fixheaders2;
$ppicked=1;
}


if($kat eq 'Toys'){
  @qkeyw=('model',' cam',' live',' real',' chat',' babe',' blond',' ass',' butt',' teenage',' hot',' sexy',' cunt',' dildo',' vibrator',' hidden',' voyeur',' dildo',' cum',' orgy',' xxx',' porno');
  &fixheaders2;
$ppicked=1;
}

if($kat eq 'Voyeur' || $kat eq 'Nudist' || $kat eq 'Outdoor' || $kat eq 'Panties' || $kat eq 'Shower' || $kat eq 'Upskirt'){
  @qkeyw=('flasher','spy','spy cam','voyeur','public','nudist','nudists','naturist','nude','teen','teens','pre-teen','pre-teens','girls','girl','pissing','upskirt','watersport','sex','pussy');
  &fixheaders2;
$ppicked=1;
}


if($ppicked == 0){
  @qkeyw=('tgp','gallery','thumbs','free','pictures','links','post','teen','cum','lolita','girlies','anal','asian','cumshots','amateurs','ebony','latina','fetish','gangbang','gay','tits','hardcore','interracial','lesbian','mature','voyeur');
  &fixheaders2;
$ppicked=1;
}

}



sub getheaders2_old{
$ppicked=0;

if($kat eq 'Amateur' || $kat eq 'Housewives'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"girlfriend girlfriends ex-girlfriends amateur amateurs SEX Sex sex girl girls girlfriend blond blonde erotic erotica photos images\">
";

$ppicked=1;
}

if($kat eq 'Anal'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"ass,butts,anal,buttfuck,tight,narrow,ass to mouth,spanking\">
";

$ppicked=1;
}

if($kat eq 'Asian' || $kat eq 'Japanese'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"Asian sex, Asian porn, Asian girls, Asian XXX Free Asian pics, Nude Asians, Asian teens, Japanese teens, Young nude girls, Oriental hardcore sex, Asia Cum Shots, Asian models, Panties, Asian Pantyhose, Lingerie, Asian babes, Asian  movies, Japanese porn, Japanese XXX, Japanese movies, asian, nude, hardcore, cum shots, teens, babes, xxx, japanese teens, japanese schoolgirls, mpeg, asian nude, sex, adult, japanese, free pics, asian links, asian models, teens, erotic, oriental, adult, thailand, asia\">
";

$ppicked=1;
}

if($kat eq 'Babe'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"amateurs sex free ebony thumbs thumbnails girls babes fucked woman nude naked pants panties knickers pantyhose horny stockings shoes panty boots socks nylon pussy black surfers pics sucking cunt twat minge tits breasts asses ass's girlz lesbian love link links lez xxx adult porn pic pictures\">
";

$ppicked=1;
}


if($kat eq 'Blowjob'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"sweet, loads,  amatuers, facial, blowjob blow job, cumshot, cum live, sex, shows, videos, pussy, porn, xxx, nude, porno, girls, feeds, acts, streams, cams, naked, hardcore sex lesbian cunt pussy action live sex hidden cams, sex stories, live sex shows, voyeur cams, fres slut pussy, pictures,sweetloads, steve sweet, amatuers, facial, blowjob blow job, cumshot, cum  pics, movies, sounds, asian, black, oral, anal, females, women, teens, young, older, free sex, Live Sex Shows, Voyeur Cams, and Free Slut Pussy\">
";

$ppicked=1;
}


if($kat eq 'Celebrity'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"Alice Silverstone,Alyssa Millano,Amy Weber,Anna Kournikova,Angie Everhart,Britney Spears,Cameron Diaz,Carmen Electra,Catherine Zeta Jones,Christina Aguilera,Cindy Crawford,Claudia Schiffer,Daniela Cardone,Drew Barrymore,Jennifer Lopez,Jennifer Love Herwit\">
";

$ppicked=1;
}


if($kat eq 'Cumshots'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"cum,sluts,sperm,jizz,bukkake,bubbles,swallow,gargle,drink,japanese,ggg,german,american bukkake,thumbs,galleries\">
";

$ppicked=1;
}

if($kat eq 'Ebony'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"hot,thumbnail,gallery,nude,thumbs,free,beautiful,ebony,babes,black,sistas,pink,twat\">
";

$ppicked=1;
}

if($kat eq 'Fat'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"fat girls, fat woman naked, plump women nude, large ass photos, fat porn pics, naughty girls\">
";

$ppicked=1;
}

if($kat eq 'Fetish' || $kat eq 'Bizarre' || $kat eq 'Bdsm' || $kat eq 'Hairy' || $kat eq 'Pee' || $kat eq 'Pregnant' || $kat eq 'Legs'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"pantyhose,nylons,feet,soles,Leg,Legs,footjob,sex,tickling,ticklish,bondage,fuck,fucking,erotik,erotic,domination,domina,Free,pic,pics,pictures,lingerie,waesche,getragenes,gebraucht,benutzt,sell,selling,sells,upskirt,voyeur,e-mail,kontakt,pervert,pervers,Strumpfhose,Struempfe,dirtyerotik,fetish,fetisch,worn,smelly,sticky,lingerie,foot,Fuesse,Fuss,pumps,schuhe,high-heels,leather,rubber,rub,slave,butts,ass,asshole,stockings,garter,garters,garterbelt,wet,NS,KV,Video,Video's,for sale,my panties,panty,pantys,Slip,Slips,Hoeschen,scat,piss,pissing,socken,Fußsohle,lecken\">
";

$ppicked=1;
}

if($kat eq 'Gangbang' || $kat eq 'Group'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"gangbang,bukkake,groupsex, group sex,swinging,threesome, foursome,cumslut,double penetration,group\">
";

$ppicked=1;
}

if($kat eq 'Gay' || $kat eq 'Penis'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"mygaylinx, gay links, gay top links, gay linx, UGAS, AgeCheck, Free Pictures, Adult Check, Age Check, Man Check, gay, male, nude, men, boys, boy, twink, twinks, webcams, studs, gay pictures, amateur, fetish, romance, kissing, sex, sex pics, sex pictures, gay pics, ass, anal sex, transexuals, TS, TV, transvestites, links, list, underwear, penis, dildo, fucking, gay men, hard cock, cock, cocks, hard cocks, hardon, hard on, dicks, dick, rimming, licking, stripper, organ, jackoff, jack off, cum, gay site list, free gay sex pics, free gay pics, free gay pictures, galleries, best, sites\">
";

$ppicked=1;
}

if($kat eq 'Hardcore' || $kat eq 'Miscellaneous' || $kat eq 'Closeups'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"blow-job boobs tits lesbian orgy black interacial teen group-sex hardcore screaming orgasim cum blowjob clitorus anal pussy doggystyle riding adults only live-sex naked nipples penetration licking\">
";

$ppicked=1;
}

if($kat eq 'Interracial'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"interracial cum loving white tramp large penis blacks ganging a white slut white bimbo fucking giant cock blacks blonde chick sucking huge black cocks big cock black fucks tiny white slut interracial couple spreading and fucking oralsex nasty huge cock analsex nasty deep interracial asshole fucking huge black cock ass banging white  slut nasty white chick getting rear entry sex white chick getting monster cock ass fucked blonde chick ass fucked by big black cock nasty chick getting fucked by huge cocks white chick fucks hard black cock white chick gets pussy and ass ganged dirty interracial asshole tongue fucking white chick gagging on huge black cocks blonde chick getting an interracial rimjob  white bimbo sucking cocks swallowing cum blonde chick fucking big black cocks nasty chick fucking huge cock black dudes white gal sucking multiple black monster cocks  black dudes gangfucking a white hooker white chick gets pussy and ass ganged nasty fucking interracial cum facials deep hard interracial butt fucking  deep hard interracial ass fucking  nasty blonde bimbo fucking black stud monster cocks ass fucking a white slut monster cocks group fucking a white slut black dudes fucking tight white chicks blonde bimbo sucking  huge black peckers dirty interracial monster cock penetrations monster black cock gagging dirty white slut red headed slut fucking black dude monster cock fucking tight white ass blonde bimbo getting interracial ass fucked\">
";

$ppicked=1;
}

if($kat eq 'Lesbian' || $kat eq 'Toys'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"wet kissing lesbian pink,  girl girl action, lesbian lovers stripping, french kissing lesbians,dildo,dykes,lesbos,cunt licking,nymphos\">
";

$ppicked=1;
}

if($kat eq 'Mature' || $kat eq 'Fat' || $kat eq 'Granny'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"Mature, granny, grannys, old, oldwomen, maturesex, pictures, galleries, older, babes, hardcore, free\">
";

$ppicked=1;
}

if($kat eq 'Pornstar'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"Brianna Banks,Amber Michaels,Jenna Jameson,Asia Carrera,Tera Patrick,Nicole Sheridan,Jenna Jameson, Tera Patrick, Sylvia Saint, Jewel De'Nyle, Stacy Valentine, Jasmine St. Clair, Peter North, Bridget Kerkov, Cheyanne, Keri Windsor, Miriah, Skylar, Charmane, Cherry, Ginger Page, Rebecca Lord, McKayla, Venus, Sydnee Steele, Haven, Bailey,striptease act, xxx video, cheating wives sluts, brunette amateur, woman, blowjob video clip, hentai anime porn, hardcore vivo, cyberporn sex links club voyeur movies, Sexy Blonde Model, big tits, ebony mpg galleries, video cocks, cheating wives sluts, animatio big boobs, hentai anime porn, hardcoresex free, 2000, New Sensations\">
";

$ppicked=1;
}

if($kat eq 'Shemale'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"tranny, cheerleader, devine, shemale, high heels, stockings, sexy, american, lingerie, picture, sex, pic, beautiful, escort, porn, free porn, chat, bondage, gallery, amateur, story, cock, dick, tits, hard, contact, dating, nude, sluts, thumbnail, thumb, breast, breasts, hardcore, model, fucking, naked, tgp, mistress, blow job, erotica, hot, fetish, web page, horny, blonde, brunette, tall, thin, feminine, black, asian, japanese, brazil, brazilian\">
";

$ppicked=1;
}

if($kat eq 'Softcore'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"women,teen, teens, young, youngest, lolita, lolitas, dangerous, willing, sluts, sex, porno, porn, pornography, pussy, adult, erotica, girls, erotic, lingerie, hardcore, girls, tits, free sex, free, babes, topless, breasts, boobs, erotic, girls, free site, oral sex, filatio, blowjob, bj, sucking, licking, pussy, porn, pornography, oral delights, sucking tits, pics, sexy, babes, fuck, sexual escapades, breasts, touching breasts, copping a feel, feeling breasts\">
";

$ppicked=1;
}


if($kat eq 'Teen' || $kat eq 'Young' || $kat eq 'Schoolgirl' || $kat eq 'Babe' || $kat eq 'Blonde' || $kat eq 'Brunette' || $kat eq 'Cheerleader' || $kat eq 'Lingerie' || $kat eq 'Masturbation' || $kat eq 'Panties'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"petite,teen, teens, young, youngest, lolita, lolitas, dangerous, willing, sluts, sex, porno, porn, pornography, pussy, adult, erotica, girls, erotic, lingerie, hardcore, girls, tits, free sex, free, babes, topless, breasts, boobs, erotic, girls, free site, oral sex, filatio, blowjob, bj, sucking, licking, pussy, porn, pornography, oral delights, sucking tits, pics, sexy, babes, fuck, sexual escapades, breasts, wet, girlies, girlie, touching breasts, copping a feel, feeling breasts\">
";

$ppicked=1;
}

if($kat eq 'Tits'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"big tits, boobs, melons, hooters, large breasts, huge boobs, tatas, big tit hardcore, whoopers, boob sex\">
";

$ppicked=1;
}


if($kat eq 'Toys'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"model, cam, live, real, chat, babe, blond, ass, butt, teeanage, hot, sexy, cunt, dildo, vibrator, hidden, voyeur, dildo, cum, orgy, xxx, porno\">
";

$ppicked=1;
}

if($kat eq 'Voyeur' || $kat eq 'Nudist' || $kat eq 'Outdoor' || $kat eq 'Panties' || $kat eq 'Shower' || $kat eq 'Upskirt'){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"voyeur public nudist nudists naturist nude teen teens pre-teen pre-teens girls girl pissing upskirt watersport sex pussy\">
";

$ppicked=1;
}


if($ppicked == 0){
$zix="
<title>$sitetitle.Com - $kat Galleries</title>
<meta name=\"description\" content=\"The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!\">
<meta name=\"keywords\" content=\"tgp,gallery,thumbs,free,pictures,links,post,teen,cum,lolita,girlies,anal,asian,cumshots,amateurs,ebony,latina,fetish,gangbang,gay,tits,hardcore,interracial,lesbian,mature,voyeur\">
";

$ppicked=1;
}

}









sub getheaders{
$ppicked=0;

if($kat eq 'Amateur' || $kat eq 'Housewives'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="girlfriend girlfriends ex-girlfriends amateur amateurs SEX Sex sex girl girls girlfriend blond blonde erotic erotica photos images">
duno

$ppicked=1;
}

if($kat eq 'Anal'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="ass,butts,anal,buttfuck,tight,narrow,ass to mouth,spanking">
duno

$ppicked=1;
}

if($kat eq 'Asian' || $kat eq 'Japanese'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="Asian sex, Asian porn, Asian girls, Asian XXX Free Asian pics, Nude Asians, Asian teens, Japanese teens, Young nude girls, Oriental hardcore sex, Asia Cum Shots, Asian models, Panties, Asian Pantyhose, Lingerie, Asian babes, Asian  movies, Japanese porn, Japanese XXX, Japanese movies, asian, nude, hardcore, cum shots, teens, babes, xxx, japanese teens, japanese schoolgirls, mpeg, asian nude, sex, adult, japanese, free pics, asian links, asian models, teens, erotic, oriental, adult, thailand, asia">
duno

$ppicked=1;
}

if($kat eq 'Babe'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="amateurs sex free ebony thumbs thumbnails girls babes fucked woman nude naked pants panties knickers pantyhose horny stockings shoes panty boots socks nylon pussy black surfers pics sucking cunt twat minge tits breasts asses ass's girlz lesbian love link links lez xxx adult porn pic pictures">
duno

$ppicked=1;
}


if($kat eq 'Blowjob'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="sweet, loads,  amatuers, facial, blowjob blow job, cumshot, cum live, sex, shows, videos, pussy, porn, xxx, nude, porno, girls, feeds, acts, streams, cams, naked, hardcore sex lesbian cunt pussy action live sex hidden cams, sex stories, live sex shows, voyeur cams, fres slut pussy, pictures,sweetloads, steve sweet, amatuers, facial, blowjob blow job, cumshot, cum  pics, movies, sounds, asian, black, oral, anal, females, women, teens, young, older, free sex, Live Sex Shows, Voyeur Cams, and Free Slut Pussy">
duno

$ppicked=1;
}


if($kat eq 'Celebrity'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="Alice Silverstone,Alyssa Millano,Amy Weber,Anna Kournikova,Angie Everhart,Britney Spears,Cameron Diaz,Carmen Electra,Catherine Zeta Jones,Christina Aguilera,Cindy Crawford,Claudia Schiffer,Daniela Cardone,Drew Barrymore,Jennifer Lopez,Jennifer Love Herwit">
duno

$ppicked=1;
}


if($kat eq 'Cumshots'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="cum,sluts,sperm,jizz,bukkake,bubbles,swallow,gargle,drink,japanese,ggg,german,american bukkake,thumbs,galleries">
duno

$ppicked=1;
}

if($kat eq 'Ebony'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="hot,thumbnail,gallery,nude,thumbs,free,beautiful,ebony,babes,black,sistas,pink,twat">
duno

$ppicked=1;
}

if($kat eq 'Fat'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="fat girls, fat woman naked, plump women nude, large ass photos, fat porn pics, naughty girls">
duno

$ppicked=1;
}

if($kat eq 'Fetish' || $kat eq 'Bizarre' || $kat eq 'Bdsm' || $kat eq 'Hairy' || $kat eq 'Pee' || $kat eq 'Pregnant' || $kat eq 'Legs'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="pantyhose,nylons,feet,soles,Leg,Legs,footjob,sex,tickling,ticklish,bondage,fuck,fucking,erotik,erotic,domination,domina,Free,pic,pics,pictures,lingerie,waesche,getragenes,gebraucht,benutzt,sell,selling,sells,upskirt,voyeur,e-mail,kontakt,pervert,pervers,Strumpfhose,Struempfe,dirtyerotik,fetish,fetisch,worn,smelly,sticky,lingerie,foot,Fuesse,Fuss,pumps,schuhe,high-heels,leather,rubber,rub,slave,butts,ass,asshole,stockings,garter,garters,garterbelt,wet,NS,KV,Video,Video's,for sale,my panties,panty,pantys,Slip,Slips,Hoeschen,scat,piss,pissing,socken,Fußsohle,lecken">
duno

$ppicked=1;
}

if($kat eq 'Gangbang' || $kat eq 'Group'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="gangbang,bukkake,groupsex, group sex,swinging,threesome, foursome,cumslut,double penetration,group">
duno

$ppicked=1;
}

if($kat eq 'Gay' || $kat eq 'Penis'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="mygaylinx, gay links, gay top links, gay linx, UGAS, AgeCheck, Free Pictures, Adult Check, Age Check, Man Check, gay, male, nude, men, boys, boy, twink, twinks, webcams, studs, gay pictures, amateur, fetish, romance, kissing, sex, sex pics, sex pictures, gay pics, ass, anal sex, transexuals, TS, TV, transvestites, links, list, underwear, penis, dildo, fucking, gay men, hard cock, cock, cocks, hard cocks, hardon, hard on, dicks, dick, rimming, licking, stripper, organ, jackoff, jack off, cum, gay site list, free gay sex pics, free gay pics, free gay pictures, galleries, best, sites">
duno

$ppicked=1;
}

if($kat eq 'Hardcore' || $kat eq 'Miscellaneous' || $kat eq 'Closeups'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="blow-job boobs tits lesbian orgy black interacial teen group-sex hardcore screaming orgasim cum blowjob clitorus anal pussy doggystyle riding adults only live-sex naked nipples penetration licking">
duno

$ppicked=1;
}

if($kat eq 'Interracial'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="interracial cum loving white tramp large penis blacks ganging a white slut white bimbo fucking giant cock blacks blonde chick sucking huge black cocks big cock black fucks tiny white slut interracial couple spreading and fucking oralsex nasty huge cock analsex nasty deep interracial asshole fucking huge black cock ass banging white  slut nasty white chick getting rear entry sex white chick getting monster cock ass fucked blonde chick ass fucked by big black cock nasty chick getting fucked by huge cocks white chick fucks hard black cock white chick gets pussy and ass ganged dirty interracial asshole tongue fucking white chick gagging on huge black cocks blonde chick getting an interracial rimjob  white bimbo sucking cocks swallowing cum blonde chick fucking big black cocks nasty chick fucking huge cock black dudes white gal sucking multiple black monster cocks  black dudes gangfucking a white hooker white chick gets pussy and ass ganged nasty fucking interracial cum facials deep hard interracial butt fucking  deep hard interracial ass fucking  nasty blonde bimbo fucking black stud monster cocks ass fucking a white slut monster cocks group fucking a white slut black dudes fucking tight white chicks blonde bimbo sucking  huge black peckers dirty interracial monster cock penetrations monster black cock gagging dirty white slut red headed slut fucking black dude monster cock fucking tight white ass blonde bimbo getting interracial ass fucked">
duno

$ppicked=1;
}

if($kat eq 'Lesbian' || $kat eq 'Toys'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="wet kissing lesbian pink,  girl girl action, lesbian lovers stripping, french kissing lesbians,dildo,dykes,lesbos,cunt licking,nymphos">
duno

$ppicked=1;
}

if($kat eq 'Mature' || $kat eq 'Fat' || $kat eq 'Granny'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="Mature, granny, grannys, old, oldwomen, maturesex, pictures, galleries, older, babes, hardcore, free">
duno

$ppicked=1;
}

if($kat eq 'Pornstar'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="Brianna Banks,Amber Michaels,Jenna Jameson,Asia Carrera,Tera Patrick,Nicole Sheridan,Jenna Jameson, Tera Patrick, Sylvia Saint, Jewel De'Nyle, Stacy Valentine, Jasmine St. Clair, Peter North, Bridget Kerkov, Cheyanne, Keri Windsor, Miriah, Skylar, Charmane, Cherry, Ginger Page, Rebecca Lord, McKayla, Venus, Sydnee Steele, Haven, Bailey,striptease act, xxx video, cheating wives sluts, brunette amateur, woman, blowjob video clip, hentai anime porn, hardcore vivo, cyberporn sex links club voyeur movies, Sexy Blonde Model, big tits, ebony mpg galleries, video cocks, cheating wives sluts, animatio big boobs, hentai anime porn, hardcoresex free, 2000, New Sensations">
duno

$ppicked=1;
}

if($kat eq 'Shemale'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="tranny, cheerleader, devine, shemale, high heels, stockings, sexy, american, lingerie, picture, sex, pic, beautiful, escort, porn, free porn, chat, bondage, gallery, amateur, story, cock, dick, tits, hard, contact, dating, nude, sluts, thumbnail, thumb, breast, breasts, hardcore, model, fucking, naked, tgp, mistress, blow job, erotica, hot, fetish, web page, horny, blonde, brunette, tall, thin, feminine, black, asian, japanese, brazil, brazilian">
duno

$ppicked=1;
}

if($kat eq 'Softcore'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="women,teen, teens, young, youngest, lolita, lolitas, dangerous, willing, sluts, sex, porno, porn, pornography, pussy, adult, erotica, girls, erotic, lingerie, hardcore, girls, tits, free sex, free, babes, topless, breasts, boobs, erotic, girls, free site, oral sex, filatio, blowjob, bj, sucking, licking, pussy, porn, pornography, oral delights, sucking tits, pics, sexy, babes, fuck, sexual escapades, breasts, touching breasts, copping a feel, feeling breasts">
duno

$ppicked=1;
}


if($kat eq 'Teen' || $kat eq 'Young' || $kat eq 'Schoolgirl' || $kat eq 'Babe' || $kat eq 'Blonde' || $kat eq 'Brunette' || $kat eq 'Cheerleader' || $kat eq 'Lingerie' || $kat eq 'Masturbation' || $kat eq 'Panties'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="petite,teen, teens, young, youngest, lolita, lolitas, dangerous, willing, sluts, sex, porno, porn, pornography, pussy, adult, erotica, girls, erotic, lingerie, hardcore, girls, tits, free sex, free, babes, topless, breasts, boobs, erotic, girls, free site, oral sex, filatio, blowjob, bj, sucking, licking, pussy, porn, pornography, oral delights, sucking tits, pics, sexy, babes, fuck, sexual escapades, breasts, wet, girlies, girlie, touching breasts, copping a feel, feeling breasts">
duno

$ppicked=1;
}

if($kat eq 'Tits'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="big tits, boobs, melons, hooters, large breasts, huge boobs, tatas, big tit hardcore, whoopers, boob sex">
duno

$ppicked=1;
}


if($kat eq 'Toys'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="model, cam, live, real, chat, babe, blond, ass, butt, teeanage, hot, sexy, cunt, dildo, vibrator, hidden, voyeur, dildo, cum, orgy, xxx, porno">
duno

$ppicked=1;
}

if($kat eq 'Voyeur' || $kat eq 'Nudist' || $kat eq 'Outdoor' || $kat eq 'Panties' || $kat eq 'Shower' || $kat eq 'Upskirt'){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="voyeur public nudist nudists naturist nude teen teens pre-teen pre-teens girls girl pissing upskirt watersport sex pussy">
duno

$ppicked=1;
}


if($ppicked == 0){
print gallery <<duno;
<title>$domainnu - $kat Galleries</title>
<meta name="description" content="The worlds largest $kat TGP. $kat thumbs updated daily! All $kat for free!">
<meta name="keywords" content="tgp,gallery,thumbs,free,pictures,links,post,teen,cum,lolita,girlies,anal,asian,cumshots,amateurs,ebony,latina,fetish,gangbang,gay,tits,hardcore,interracial,lesbian,mature,voyeur">
duno

$ppicked=1;
}

}

sub getrecips{
print gallery "<table border=0 cellspacing=5 cellpadding=5><tr>";
if($insertreciptext==1 & $page != 1){
  print gallery "<td colspan=\"3\"><center>$reciptext</td></tr><tr>";
}
$slimp=int(rand 4)+1;
if($slimp == 1){
print gallery <<zzz;
<td><center>$rechtml[1]</td>
<td><center>$rechtml[2]</td>
<td><center>$rechtml[3]</td>
<td><center>$myrecip</td>
</tr></table>
zzz
    if($page == 100 & $testmode != 1){
      print checklog "<tr><td>$use</td><td><a href=\"$gurl\" target=\"_blank\">$mydesc1</a></td><td>$rechtml[1]</td></tr>";
    }
}
if($slimp == 2){
print gallery <<zzz;
<td><center>$rechtml[1]</td>
<td><center>$rechtml[2]</td>
<td><center>$myrecip</td>
<td><center>$rechtml[3]</td>
</tr></table>
zzz
    if($page == 100 & $testmode != 1){
      print checklog "<tr><td>$use</td><td><a href=\"$gurl\" target=\"_blank\">$mydesc1</a></td><td>$rechtml[1]</td></tr>";
    }

}
if($slimp == 3){
print gallery <<zzz;
<td><center>$rechtml[1]</td>
<td><center>$myrecip</td>
<td><center>$rechtml[2]</td>
<td><center>$rechtml[3]</td>
</tr></table>
zzz
    if($page == 100 & $testmode != 1){
      print checklog "<tr><td>$use</td><td><a href=\"$gurl\" target=\"_blank\">$mydesc1</a></td><td>$rechtml[1]</td></tr>";
    }

}
if($slimp == 4){
print gallery <<zzz;
<td><center>$myrecip</td>
<td><center>$rechtml[1]</td>
<td><center>$rechtml[2]</td>
<td><center>$rechtml[3]</td>
</tr></table>
zzz
    if($page == 100 & $testmode != 1){
      print checklog "<tr><td>$use</td><td><a href=\"$gurl\" target=\"_blank\">$mydesc1</a></td><td>$rechtml[1]</td></tr>";
    }

}

}



sub getrecips2{
$line=$line."<table border=0 cellspacing=5 cellpadding=5><tr>";
if($insertreciptext==1 & $page != 1){
  $line=$line."<td colspan=\"3\"><center>$reciptext</td></tr><tr>";
}
$slimp=int(rand 4)+1;
if($slimp == 1){
$line=$line."
<td><center>$rechtml[1]</td>
<td><center>$rechtml[2]</td>
<td><center>$rechtml[3]</td>
<td><center>$myrecip</td>
</tr></table>";
}
if($slimp == 2){
$line=$line."
<td><center>$rechtml[1]</td>
<td><center>$rechtml[2]</td>
<td><center>$myrecip</td>
<td><center>$rechtml[3]</td>
</tr></table>";
}
if($slimp == 3){
$line=$line."
<td><center>$rechtml[1]</td>
<td><center>$myrecip</td>
<td><center>$rechtml[2]</td>
<td><center>$rechtml[3]</td>
</tr></table>";
}
if($slimp == 4){
$line=$line."
<td><center>$myrecip</td>
<td><center>$rechtml[1]</td>
<td><center>$rechtml[2]</td>
<td><center>$rechtml[3]</td>
</tr></table>";
}

    if($page == 100 & $testmode != 1){
      print checklog "<tr><td>$use</td><td><a href=\"$gurl\" target=\"_blank\">$mydesc1</a></td><td>$rechtml[1]</td></tr>";
    }

}



sub getrecips_manual{
print gallery "<table border=0 cellspacing=5 cellpadding=5><tr>";
if($insertreciptext==1){
  print gallery "<td colspan=\"3\"><center>$reciptext</td></tr><tr>";
}
open (acc,"config/".$sitenumber.".txt");
while(<acc>){
 $fis=$_;
 chomp $fis;
  print gallery "<td><center>$fis</td>";
}
print gallery "</tr></table>";
close(acc);
}

sub getmenue{
  if($menuetyptable==1){
  $dennis=int (1+($katnum+1)/7);
  print gallery "<table border=0><tr><td colspan=\"7\"><center><b>Pick your favorite category:</td></tr><tr>";
  for($peter=1;$peter<=7;$peter++){
  print gallery "<td>";
  if($peter == 7){print gallery "<br>";}
  for($ut=(0+$dennis*($peter-1));$ut<=($dennis*$peter-1);$ut++){
    print gallery "<a href=\"$menueurl$categories[$ut]"."_1.html\" onClick=\"goback=false\"><font size=\"1\"><b>$categories[$ut]</b></font></a><br>";
  }
  print gallery "</td>";
  }
  print gallery "</tr></table>";
  }
  else{

  #print gallery "<center><b>Pick your favorite category:<br>";
  for($ut=0;$ut<=$katnum;$ut++){
    if((($ut+1) % 6) == 0){
    print gallery "<a href=\"$menueurl$categories[$ut]"."_1.html\"><font size=\"1\"><b>$categories[$ut]</b></font></a>&nbsp;";
    }
    if((($ut+1) % 20) == 0){
      print gallery "<br>";
    }
  }
      print gallery "<br>";
  }
}

sub getsmallmenue{
if($sitenumber == 17){
  print gallery "<br><br><table border=0><tr>";
  print gallery "<td><font size=\"3\">";
    print gallery "<a href=\"../page/Nudist1.html\" onMouseOver=\"window.status='$baseurl/nudist'; return true\"><b>Nudist</b></a>&nbsp;";
    print gallery "<a href=\"../page/Mature1.html\" onMouseOver=\"window.status='$baseurl/mature'; return true\"><b>Mature</b></a>&nbsp;";
    print gallery "<a href=\"../page/Teen1.html\" onMouseOver=\"window.status='$baseurl/teen'; return true\"><b>Teen</b></a>&nbsp;";
  print gallery "</td>";  
  print gallery "</tr></table>";
}
else{

  print gallery "<table border=0><tr>";
  print gallery "<td><font size=\"3\">";
    print gallery "<a href=\"../../cgi-bin/show.cgi?bukkake01&1\" onMouseOver=\"window.status='$baseurl/bukkake'; return true\"><b>Bukkake</b></a>&nbsp;";
    print gallery "<a href=\"../../cgi-bin/show.cgi?anal01&1\" onMouseOver=\"window.status='$baseurl/anal'; return true\"><b>Anal</b></a>&nbsp;";
    print gallery "<a href=\"../../cgi-bin/show.cgi?facials01&1\" onMouseOver=\"window.status='$baseurl/facials'; return true\"><b>Facials</b></a>&nbsp;";
    print gallery "<a href=\"../../cgi-bin/show.cgi?gangbang01&1\" onMouseOver=\"window.status='$baseurl/gangbang'; return true\"><b>Gangbang</b></a>&nbsp;";
    print gallery "<a href=\"../../cgi-bin/show.cgi?teens01&1\" onMouseOver=\"window.status='$baseurl/teens'; return true\"><b>Teen</b></a>&nbsp;";
  print gallery "</td>";  
  print gallery "</tr></table>";
}
}

sub gethtmlad{
            print gallery <<piss;
<SCRIPT SRC="http://www.frontpagecash.com/raw/bannerserve.cgi?account=anders&consolevar=goback&target=_blank">
</SCRIPT><br>
piss

}


sub getcounter2{
#$line=$line.'XXX';

if($picurl =~ 'cumforcum'){
$line=$line."
<!-- Begin SexList Counter Code -->
<a href=\"http://lobby.sexlist.com/?TSLID=162630=1201\" target=\"_top\">
<img src=\"http://cgi.sexlist.com/counter.cgi?TSLID=162630=1201\" 
height=50 width=105 border=0 alt=\"TONS OF FREE SMUT - CLICK HERE!\"></a>
<!-- End SexList Counter Code-->
";
}

if($picurl =~ 'facialchix'){
$line=$line."
<!-- Begin SexList Counter Code -->
<a href=\"http://lobby.sexlist.com/?TSLID=162631=1201\" target=\"_top\">
<img src=\"http://cgi.sexlist.com/counter.cgi?TSLID=162631=1201\" 
height=50 width=105 border=0 alt=\"TONS OF FREE SMUT - CLICK HERE!\"></a>
<!-- End SexList Counter Code-->
";
}

if($picurl =~ 'spermdolls'){

$line=$line."
<!-- Begin SexList Counter Code -->
<a href=\"http://lobby.sexlist.com/?TSLID=162548=1201\" target=\"_top\">
<img src=\"http://cgi.sexlist.com/counter.cgi?TSLID=162548=1201\" 
height=50 width=105 border=0 alt=\"TONS OF FREE SMUT - CLICK HERE!\"></a>
<!-- End SexList Counter Code-->
";
}


if($picurl =~ 'gotocum'){

$line=$line."
<!-- Begin SexList Counter Code -->
<a href=\"http://lobby.sexlist.com/?TSLID=162547=1201\" target=\"_top\">
<img src=\"http://cgi.sexlist.com/counter.cgi?TSLID=162547=1201\" 
height=50 width=105 border=0 alt=\"TONS OF FREE SMUT - CLICK HERE!\"></a>
<!-- End SexList Counter Code-->
";
}


if($picurl =~ 'teeniesjapan'){

$line=$line."
<!-- Begin SexList Counter Code -->
<a href=\"http://lobby.sexlist.com/?TSLID=162458=1201\" target=\"_top\">
<img src=\"http://cgi.sexlist.com/counter.cgi?TSLID=162458=1201\" 
height=50 width=105 border=0 alt=\"TONS OF FREE SMUT - CLICK HERE!\"></a>
<!-- End SexList Counter Code-->

";
}



if($picurl =~ 'asiabukkake'){

$line=$line."
<!-- Begin Sexlist Counter Code -->
<a href=\"http://lobby.sexlist.com/?TSLID=162435=1201\" target=\"_top\">
<img src=\"http://cgi.sexlist.com/counter.cgi?TSLID=162435=1201\" 
height=50 width=105 border=0 
alt=\"TONS OF FREE SMUT - CLICK HERE!\"></a>
<!-- End Sexlist Counter Code-->
";
}



if($picurl =~ 'porn-portal'){

$line=$line."
<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. Privacy notice at: http://websidestory.com/privacy -->
<!-- webbot bot=\"HTMLMarkup\" startspan -->
<script language=\"javascript\">
var _pn=\"$mydesc1\"; //page name
var _acct=\"CQ5108064ODD38EN0\";   //account number
var _pndef=\"title\";var _hcv=65;var _mn=\"wf140\";
var _lp=location.protocol.indexOf('https')==0?\"https://\":\"http://\";
var _gn=\"hg1.hitbox.com\";function _ps(_h){if(_h.indexOf(\"$mydesc1\")==0) {
if (_pndef==\"title\"){return document.title?document.title:_pndef;}else{
var _g=location.pathname;_h=_g.substring(_g.lastIndexOf(\"/\")+1,_g.length);
if(_h==\"\"){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName;
if(_bn.substring(0,9)==\"Microsoft\"){_bn=\"MSIE\";};var _bv=Math.round(parseFloat(navigator.appVersion)*100);
if((_bn==\"MSIE\")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn);
var _hbfa=\"<a href='http://rd1.hitbox.com/rd?acct=\"+_acct+\"' target=_top><img src='\";
var _hbfc=\"' border=0 width=88 height=62></a><div><font face='MS Sans Serif,Arial,Helvetica '\"+
\"size=1><a href='http://counter.hitbox.com/a/hitboxfree.cgi' target='_blank'>privacy</a></font></div>\";
var _hbfb=\"\";</script><script language=\"javascript1.1\" id=\"_hbc\">_sv=11;</script><script  
language=\"javascript1.1\" src=\"http://stats.hitbox.com/js/hbf.js\"></script><script language=\"javascript\">
if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf==\"undefined\")||(_rf==\"\")){
_rf=\"bookmark\";};document.write(_hbfa+_lp+_gn+\"/HG?hc=\"+_mn+\"&hb=\"+_acct+\"&n=\"+escape(_pn)+
\"&cd=1&hv=6\"+\"&bn=\"+escape(_bn)+\"&bv=\"+_bv+\"&ss=na&sc=na&dt=&sv=\"+_sv+\"&ja=na&ln=na&pl=&rf=\"+_rf+_hbfc);}
</script><noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ5108064ODD38EN0\" target=_top><img
src=\"http://hg1.hitbox.com/HG?hc=wf140&cd=1&hv=6&ce=u&hb=CQ5108064ODD38EN0&n=$mydesc1\"
 border=\"0\" width=125 height=125></a><div><font face=\"MS Sans Serif,Arial,Helvetica\" size=1><a 
href=\"http://counter.hitbox.com/a/hitboxfree.cgi\" target=\"_blank\">privacy</a></font></div>
</noscript><!--//-->

<!-- webbot bot=\"HTMLMarkup\" endspan -->
<!-- END WEBSIDESTORY CODE  -->

";
}

if($picurl =~ 'get-teens'){

$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=TQ5204105PCETXEN0&m=wf136&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=TQ5204105PCETXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf136&cd=1&hb=TQ5204105PCETXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ5204105PCETXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf136&cd=1&hb=TQ5204105PCETXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}


if($picurl =~ 'besttgponline'){

$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ5204092LEDCXEN0&m=wf136&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ5204092LEDCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf136&cd=1&hb=CQ5204092LEDCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ5204092LEDCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf136&cd=1&hb=CQ5204092LEDCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->


";
}

if($picurl =~ 'freeforallpics'){

$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=HQ520405IMSAHXEN0&m=wf136&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=HQ520405IMSAHXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf136&cd=1&hb=HQ520405IMSAHXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=HQ520405IMSAHXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf136&cd=1&hb=HQ520405IMSAHXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->



";
}


if($picurl =~ 'gallery-center'){

$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ520402JPVECXEN0&m=wf111&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ520402JPVECXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520402JPVECXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ520402JPVECXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520402JPVECXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}

if($picurl =~ 'thumbsplanet'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ520401I7DRCXEN0&m=wf111&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ520401I7DRCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520401I7DRCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ520401I7DRCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520401I7DRCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->


";
}

if($picurl =~ 'tgpmagic'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ520331OOBCCXEN0&m=wf111&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ520331OOBCCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520331OOBCCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ520331OOBCCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520331OOBCCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->


";
}


if($picurl =~ 'bukkake-galleries'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ520331GCDMCXEN0&m=wf111&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ520331GCDMCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520331GCDMCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ520331GCDMCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf111&cd=1&hb=CQ520331GCDMCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->


";
}


if($picurl =~ 'happyteensclub'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=TQ520322EMRNTXEN0&m=wf162&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=TQ520322EMRNTXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=TQ520322EMRNTXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ520322EMRNTXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=TQ520322EMRNTXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}


if($picurl =~ 'gallery-mania'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ5203203OFRCXEN0&m=wf162&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ5203203OFRCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ5203203OFRCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ5203203OFRCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ5203203OFRCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}


if($picurl =~ 'bestfreepix'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ520318DOVACXEN0&m=wf162&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ520318DOVACXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ520318DOVACXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ520318DOVACXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ520318DOVACXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}

if($picurl =~ 'erotic-galleries'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ520318J8WWCXEN0&m=wf162&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ520318J8WWCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ520318J8WWCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ520318J8WWCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ520318J8WWCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->


";
}


if($picurl =~ 'teen-portal'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. Privacy notice at: http://websidestory.com/privacy -->
<!-- webbot bot=\"HTMLMarkup\" startspan -->
<script language=\"javascript\">
var _pn=\"$mydesc1\"; //page name
var _acct=\"TQ510829N3MW38EN0\";   //account number
var _pndef=\"title\";var _hcv=65;var _mn=\"wf106\";
var _lp=location.protocol.indexOf('https')==0?\"https://\":\"http://\";
var _gn=\"hg1.hitbox.com\";function _ps(_h){if(_h.indexOf(\"$mydesc1\")==0) {
if (_pndef==\"title\"){return document.title?document.title:_pndef;}else{
var _g=location.pathname;_h=_g.substring(_g.lastIndexOf(\"/\")+1,_g.length);
if(_h==\"\"){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName;
if(_bn.substring(0,9)==\"Microsoft\"){_bn=\"MSIE\";};var _bv=Math.round(parseFloat(navigator.appVersion)*100);
if((_bn==\"MSIE\")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn);
var _hbfa=\"<a href='http://rd1.hitbox.com/rd?acct=\"+_acct+\"' target=_top><img src='\";
var _hbfc=\"' border=0 width=88 height=62></a><div><font face='MS Sans Serif,Arial,Helvetica '\"+
\"size=1><a href='http://counter.hitbox.com/a/hitboxfree.cgi' target='_blank'>privacy</a></font></div>\";
var _hbfb=\"\";</script><script language=\"javascript1.1\" id=\"_hbc\">_sv=11;</script><script  
language=\"javascript1.1\" src=\"http://stats.hitbox.com/js/hbf.js\"></script><script language=\"javascript\">
if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf==\"undefined\")||(_rf==\"\")){
_rf=\"bookmark\";};document.write(_hbfa+_lp+_gn+\"/HG?hc=\"+_mn+\"&hb=\"+_acct+\"&n=\"+escape(_pn)+
\"&cd=1&hv=6\"+\"&bn=\"+escape(_bn)+\"&bv=\"+_bv+\"&ss=na&sc=na&dt=&sv=\"+_sv+\"&ja=na&ln=na&pl=&rf=\"+_rf+_hbfc);}
</script><noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ510829N3MW38EN0\" target=_top><img
src=\"http://hg1.hitbox.com/HG?hc=wf106&cd=1&hv=6&ce=u&hb=TQ510829N3MW38EN0&n=$mydesc1\"
 border=\"0\" width=125 height=125></a><div><font face=\"MS Sans Serif,Arial,Helvetica\" size=1><a 
href=\"http://counter.hitbox.com/a/hitboxfree.cgi\" target=\"_blank\">privacy</a></font></div>
</noscript><!--//-->

<!-- webbot bot=\"HTMLMarkup\" endspan -->
<!-- END WEBSIDESTORY CODE  -->
";
}


if($picurl =~ 'facialcumbaths'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=FQ520131P9EAFXEN0&m=wf112&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=FQ520131P9EAFXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=FQ520131P9EAFXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=FQ520131P9EAFXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=FQ520131P9EAFXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->
";
}

if($picurl =~ 'pixhunter'){
$line=$line."
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ52012107FBCXEN0&m=wf112&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ52012107FBCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ52012107FBCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ52012107FBCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ52012107FBCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->
";
}


if($picurl =~ 'cumsprayed'){
$line=$line."

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=FQ520202P0ZEFXEN0&m=wf172&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=FQ520202P0ZEFXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=FQ520202P0ZEFXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=FQ520202P0ZEFXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=FQ520202P0ZEFXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}


if($picurl =~ 'teenpics-now'){
$line=$line."

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=TQ520115KBFVTXEN0&m=wf112&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=TQ520115KBFVTXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=TQ520115KBFVTXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ520115KBFVTXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=TQ520115KBFVTXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}


if($picurl =~ 'smilingteens'){
$line=$line."

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=TQ520305J1EWTXEN0&m=wf113&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=TQ520305J1EWTXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf113&cd=1&hb=TQ520305J1EWTXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ520305J1EWTXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf113&cd=1&hb=TQ520305J1EWTXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}


if($picurl =~ 'petitepetite'){
$line=$line."

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=TQ520306NCCSTXEN0&m=wf113&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=TQ520306NCCSTXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf113&cd=1&hb=TQ520306NCCSTXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ520306NCCSTXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf113&cd=1&hb=TQ520306NCCSTXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->



";
}


if($picurl =~ 'teenieteenies'){
$line=$line."

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=TQ52020116AZTXEN0&m=wf172&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=TQ52020116AZTXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=TQ52020116AZTXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ52020116AZTXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=TQ52020116AZTXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->



";
}

if($picurl =~ 'picmaestro'){
$line=$line."

<br><br><br><br><br><br><br>
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ520226PONCCXEN0&m=wf100&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ520226PONCCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=CQ520226PONCCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ520226PONCCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=CQ520226PONCCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}


if($picurl =~ 'tgpgalaxy'){
$line=$line."

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=TQ520223CJNZTXEN0&m=wf100&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=TQ520223CJNZTXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=TQ520223CJNZTXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=TQ520223CJNZTXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=TQ520223CJNZTXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->

";
}

if($picurl =~ 'bukkake-baths'){
$line=$line."

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language=\"javascript\"> var test=0;</script> <SCRIPT LANGUAGE=\"javascript1.1\" 
src=\"http://js1.hitbox.com/js?acct=CQ5203198OFDCXEN0&m=wf162&n=$mydesc1\">
</SCRIPT><SCRIPT LANGUAGE=\"javascript\">
if (test==0) { var dt, sv=10, ss=\"na\",sc=\"na\",ln=\"\",pl=\"\",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+\"\";if((rf==\"undefined\")||(rf==\"\")){rf=\"bookmark\";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!=\"Netscape\"){dt=(new Date()).getHours();};if(bn.substring(0,9)==\"Microsoft\"){bn=\"MSIE\";}
if((bn==\"MSIE\")&&(parseInt(bv)==2)){bv=302;};ja=\"na\";
x1=\"<a href='http://rd1.hitbox.com/rd?acct=CQ5203198OFDCXEN0' target='_top'>\";
x2=\"<img src='http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ5203198OFDCXEN0&n=$mydesc1\";
x3=\"&cd=1&bt=2' border=0 height=62 width=88></a>\";
arg=\"&bn=\"+bn+\"&bv=\"+bv+\"&ss=\"+ss+\"&sc=\"+sc+\"&dt=\"+dt+\"&sv=\"+sv;
arg+=\"&ja=\"+ja+\"&rf=\"+rf+\"&ln=\"+ln+\"&pl=\"+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language=\"javascript1.2\">document.write(\"<\");document.write(\"!--  \");</script>
<noscript><a href=\"http://rd1.hitbox.com/rd?acct=CQ5203198OFDCXEN0\" target=\"_top\">
<img src=\"http://hg1.hitbox.com/HG?hc=wf162&cd=1&hb=CQ5203198OFDCXEN0&n=$mydesc1\"
border=0 height=62 width=88></a></noscript>
<script language=\"javascript1.2\"> document.write(\"  --\");document.write(\">\");</script>
<!-- END WEBSIDESTORY CODE  -->


";
}


}




sub getcounter{
if($picurl =~ 'ultrafacials'){
if($sitenumber >= 71){
print gallery <<aqaq
<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. -->
<!-- webbot bot="HTMLMarkup" startspan -->
<p align="center"><A HREF="http://rd1.hitbox.com/rd?acct=CQ510424O7ZECXEN0&p=s">
<IMG SRC="http://hg1.hitbox.com/HG?hc=wf172&l=y&hb=CQ510424O7ZECXEN0&cd=1&n=uf_$tag" height=62 width=88 ALT="Click Here!" border=0></A></p>
<!-- webbot bot="HTMLMarkup" endspan -->
<!-- END WEBSIDESTORY CODE  -->
aqaq
}
else{
print gallery <<aqaq
<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. -->
<!-- webbot bot="HTMLMarkup" startspan -->
<script language="javascript">
var _pn="UF_$kat"; //page name
var _acct="CQ510424O7ZECXEN0";   //account number
var _pndef="title";var _hcv=65;var _mn="wf172";
var _lp=location.protocol.indexOf('https')==0?"https://":"http://";
var _gn="hg1.hitbox.com";function _ps(_h){if(_h.indexOf("UF_$kat")==0) {
if (_pndef=="title"){return document.title?document.title:_pndef;}else{
var _g=location.pathname;_h=_g.substring(_g.lastIndexOf("/")+1,_g.length);
if(_h==""){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName;
if(_bn.substring(0,9)=="Microsoft"){_bn="MSIE";};var _bv=Math.round(parseFloat(navigator.appVersion)*100);
if((_bn=="MSIE")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn);
var _hbfa="<a href='http://rd1.hitbox.com/rd?acct="+_acct+"' target=_top><img src='";
var _hbfc="' border=0 width=88 height=62></a>";
var _hbfb="";</script><script language="javascript1.1" id="_hbc">_sv=11;</script><script  
language="javascript1.1" src="http://stats.hitbox.com/js/hbf.js"></script><script language="javascript">
if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf=="undefined")||(_rf=="")){
_rf="bookmark";};document.write(_hbfa+_lp+_gn+"/HG?hc="+_mn+"&hb="+_acct+"&n="+escape(_pn)+
"&cd=1&hv=6"+"&bn="+escape(_bn)+"&bv="+_bv+"&ss=na&sc=na&dt=&sv="+_sv+"&ja=na&ln=na&pl=&rf="+_rf+_hbfc);}
</script><!--//-->

<!-- webbot bot="HTMLMarkup" endspan -->
<!-- END WEBSIDESTORY CODE  -->

aqaq
}
}

if($picurl =~ 'porn-portal'){
print gallery <<aqaq
<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. Privacy notice at: http://websidestory.com/privacy -->
<!-- webbot bot="HTMLMarkup" startspan -->
<script language="javascript">
var _pn="PP_$kat"; //page name
var _acct="CQ5108064ODD38EN0";   //account number
var _pndef="title";var _hcv=65;var _mn="wf140";
var _lp=location.protocol.indexOf('https')==0?"https://":"http://";
var _gn="hg1.hitbox.com";function _ps(_h){if(_h.indexOf("PP_$kat")==0) {
if (_pndef=="title"){return document.title?document.title:_pndef;}else{
var _g=location.pathname;_h=_g.substring(_g.lastIndexOf("/")+1,_g.length);
if(_h==""){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName;
if(_bn.substring(0,9)=="Microsoft"){_bn="MSIE";};var _bv=Math.round(parseFloat(navigator.appVersion)*100);
if((_bn=="MSIE")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn);
var _hbfa="<a href='http://rd1.hitbox.com/rd?acct="+_acct+"' target=_top><img src='";
var _hbfc="' border=0 width=88 height=62></a><div><font face='MS Sans Serif,Arial,Helvetica '"+
"size=1><a href='http://counter.hitbox.com/a/hitboxfree.cgi' target='_blank'>privacy</a></font></div>";
var _hbfb="";</script><script language="javascript1.1" id="_hbc">_sv=11;</script><script  
language="javascript1.1" src="http://stats.hitbox.com/js/hbf.js"></script><script language="javascript">
if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf=="undefined")||(_rf=="")){
_rf="bookmark";};document.write(_hbfa+_lp+_gn+"/HG?hc="+_mn+"&hb="+_acct+"&n="+escape(_pn)+
"&cd=1&hv=6"+"&bn="+escape(_bn)+"&bv="+_bv+"&ss=na&sc=na&dt=&sv="+_sv+"&ja=na&ln=na&pl=&rf="+_rf+_hbfc);}
</script><noscript><a href="http://rd1.hitbox.com/rd?acct=CQ5108064ODD38EN0" target=_top><img
src="http://hg1.hitbox.com/HG?hc=wf140&cd=1&hv=6&ce=u&hb=CQ5108064ODD38EN0&n=PP_$kat"
 border="0" width=125 height=125></a><div><font face="MS Sans Serif,Arial,Helvetica" size=1><a 
href="http://counter.hitbox.com/a/hitboxfree.cgi" target="_blank">privacy</a></font></div>
</noscript><!--//-->

<!-- webbot bot="HTMLMarkup" endspan -->
<!-- END WEBSIDESTORY CODE  -->

aqaq
}


if($picurl =~ 'ultrafreepix'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. Privacy notice at: http://websidestory.com/privacy -->
<!-- webbot bot="HTMLMarkup" startspan -->
<script language="javascript">
var _pn="UP_$kat"; //page name
var _acct="CQ510921LBSM38EN0";   //account number
var _pndef="title";var _hcv=65;var _mn="wf159";
var _lp=location.protocol.indexOf('https')==0?"https://":"http://";
var _gn="hg1.hitbox.com";function _ps(_h){if(_h.indexOf("UP_$kat")==0) {
if (_pndef=="title"){return document.title?document.title:_pndef;}else{
var _g=location.pathname;_h=_g.substring(_g.lastIndexOf("/")+1,_g.length);
if(_h==""){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName;
if(_bn.substring(0,9)=="Microsoft"){_bn="MSIE";};var _bv=Math.round(parseFloat(navigator.appVersion)*100);
if((_bn=="MSIE")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn);
var _hbfa="<a href='http://rd1.hitbox.com/rd?acct="+_acct+"' target=_top><img src='";
var _hbfc="' border=0 width=88 height=62></a><div><font face='MS Sans Serif,Arial,Helvetica '"+
"size=1><a href='http://counter.hitbox.com/a/hitboxfree.cgi' target='_blank'>privacy</a></font></div>";
var _hbfb="";</script><script language="javascript1.1" id="_hbc">_sv=11;</script><script  
language="javascript1.1" src="http://stats.hitbox.com/js/hbf.js"></script><script language="javascript">
if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf=="undefined")||(_rf=="")){
_rf="bookmark";};document.write(_hbfa+_lp+_gn+"/HG?hc="+_mn+"&hb="+_acct+"&n="+escape(_pn)+
"&cd=1&hv=6"+"&bn="+escape(_bn)+"&bv="+_bv+"&ss=na&sc=na&dt=&sv="+_sv+"&ja=na&ln=na&pl=&rf="+_rf+_hbfc);}
</script><noscript><a href="http://rd1.hitbox.com/rd?acct=CQ510921LBSM38EN0" target=_top><img
src="http://hg1.hitbox.com/HG?hc=wf159&cd=1&hv=6&ce=u&hb=CQ510921LBSM38EN0&n=UP_$kat"
 border="0" width=125 height=125></a><div><font face="MS Sans Serif,Arial,Helvetica" size=1><a 
href="http://counter.hitbox.com/a/hitboxfree.cgi" target="_blank">privacy</a></font></div>
</noscript><!--//-->

<!-- webbot bot="HTMLMarkup" endspan -->
<!-- END WEBSIDESTORY CODE  -->


aqaq
}

if($picurl =~ 'tgpparadise'){
print gallery <<aqaq
<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. Privacy notice at: http://websidestory.com/privacy -->
<!-- webbot bot="HTMLMarkup" startspan -->
<script language="javascript">
var _pn="TGP_$kat"; //page name
var _acct="CQ511110O3ZRCXEN0";   //account number
var _pndef="title";var _hcv=65;var _mn="wf126";
var _lp=location.protocol.indexOf('https')==0?"https://":"http://";
var _gn="hg1.hitbox.com";function _ps(_h){if(_h.indexOf("TGP_$kat")==0) {
if (_pndef=="title"){return document.title?document.title:_pndef;}else{
var _g=location.pathname;_h=_g.substring(_g.lastIndexOf("/")+1,_g.length);
if(_h==""){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName;
if(_bn.substring(0,9)=="Microsoft"){_bn="MSIE";};var _bv=Math.round(parseFloat(navigator.appVersion)*100);
if((_bn=="MSIE")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn);
var _hbfa="<a href='http://rd1.hitbox.com/rd?acct="+_acct+"' target=_top><img src='";
var _hbfc="' border=0 width=88 height=62></a><div><font face='MS Sans Serif,Arial,Helvetica '"+
"size=1><a href='http://counter.hitbox.com/a/hitboxfree.cgi' target='_blank'>privacy</a></font></div>";
var _hbfb="";</script><script language="javascript1.1" id="_hbc">_sv=11;</script><script  
language="javascript1.1" src="http://stats.hitbox.com/js/hbf.js"></script><script language="javascript">
if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf=="undefined")||(_rf=="")){
_rf="bookmark";};document.write(_hbfa+_lp+_gn+"/HG?hc="+_mn+"&hb="+_acct+"&n="+escape(_pn)+
"&cd=1&hv=6"+"&bn="+escape(_bn)+"&bv="+_bv+"&ss=na&sc=na&dt=&sv="+_sv+"&ja=na&ln=na&pl=&rf="+_rf+_hbfc);}
</script><noscript><a href="http://rd1.hitbox.com/rd?acct=CQ511110O3ZRCXEN0" target=_top><img
src="http://hg1.hitbox.com/HG?hc=wf126&cd=1&hv=6&ce=u&hb=CQ511110O3ZRCXEN0&n=TGP_$kat"
 border="0" width=125 height=125></a><div><font face="MS Sans Serif,Arial,Helvetica" size=1><a 
href="http://counter.hitbox.com/a/hitboxfree.cgi" target="_blank">privacy</a></font></div>
</noscript><!--//-->

<!-- webbot bot="HTMLMarkup" endspan -->
<!-- END WEBSIDESTORY CODE  -->

aqaq
}

if($picurl =~ 'teen-portal'){
print gallery <<aqaq
<!-- BEGIN WEBSIDESTORY CODE -->
<!-- COPYRIGHT 1997-2001 WEBSIDESTORY, INC. ALL RIGHTS RESERVED. U.S.PATENT PENDING. Privacy notice at: http://websidestory.com/privacy -->
<!-- webbot bot="HTMLMarkup" startspan -->
<script language="javascript">
var _pn="TP_$kat"; //page name
var _acct="TQ510829N3MW38EN0";   //account number
var _pndef="title";var _hcv=65;var _mn="wf106";
var _lp=location.protocol.indexOf('https')==0?"https://":"http://";
var _gn="hg1.hitbox.com";function _ps(_h){if(_h.indexOf("TP_$kat")==0) {
if (_pndef=="title"){return document.title?document.title:_pndef;}else{
var _g=location.pathname;_h=_g.substring(_g.lastIndexOf("/")+1,_g.length);
if(_h==""){return _pndef};}};return _h;}var _sv=10;var _bn=navigator.appName;
if(_bn.substring(0,9)=="Microsoft"){_bn="MSIE";};var _bv=Math.round(parseFloat(navigator.appVersion)*100);
if((_bn=="MSIE")&&(parseInt(_bv)==2))_bv=301;var _rf=escape(document.referrer);_pn=_ps(_pn);
var _hbfa="<a href='http://rd1.hitbox.com/rd?acct="+_acct+"' target=_top><img src='";
var _hbfc="' border=0 width=88 height=62></a><div><font face='MS Sans Serif,Arial,Helvetica '"+
"size=1><a href='http://counter.hitbox.com/a/hitboxfree.cgi' target='_blank'>privacy</a></font></div>";
var _hbfb="";</script><script language="javascript1.1" id="_hbc">_sv=11;</script><script  
language="javascript1.1" src="http://stats.hitbox.com/js/hbf.js"></script><script language="javascript">
if(_hbfb.length!=0){document.write(_hbfa+_hbfb+_hbfc);}else{if((_rf=="undefined")||(_rf=="")){
_rf="bookmark";};document.write(_hbfa+_lp+_gn+"/HG?hc="+_mn+"&hb="+_acct+"&n="+escape(_pn)+
"&cd=1&hv=6"+"&bn="+escape(_bn)+"&bv="+_bv+"&ss=na&sc=na&dt=&sv="+_sv+"&ja=na&ln=na&pl=&rf="+_rf+_hbfc);}
</script><noscript><a href="http://rd1.hitbox.com/rd?acct=TQ510829N3MW38EN0" target=_top><img
src="http://hg1.hitbox.com/HG?hc=wf106&cd=1&hv=6&ce=u&hb=TQ510829N3MW38EN0&n=TP_$kat"
 border="0" width=125 height=125></a><div><font face="MS Sans Serif,Arial,Helvetica" size=1><a 
href="http://counter.hitbox.com/a/hitboxfree.cgi" target="_blank">privacy</a></font></div>
</noscript><!--//-->

<!-- webbot bot="HTMLMarkup" endspan -->
<!-- END WEBSIDESTORY CODE  -->


aqaq
}

if($picurl =~ 'teensforall'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=TQ5202116ACWTXEN0&m=wf172&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=TQ5202116ACWTXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=TQ5202116ACWTXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=TQ5202116ACWTXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=TQ5202116ACWTXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->

<!-- webbot bot="HTMLMarkup" endspan -->
<!-- END WEBSIDESTORY CODE  -->

aqaq
}


if($picurl =~ 'tgppartner'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=CQ520115B9MBCXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=CQ520115B9MBCXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ520115B9MBCXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=CQ520115B9MBCXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ520115B9MBCXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->


aqaq
}


if($picurl =~ 'teenpics-now'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=TQ520115KBFVTXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=TQ520115KBFVTXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=TQ520115KBFVTXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=TQ520115KBFVTXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=TQ520115KBFVTXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->


aqaq
}

if($picurl =~ 'xxxsexcenter'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=TQ520115LHDZTXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=TQ520115LHDZTXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=TQ520115LHDZTXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=TQ520115LHDZTXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=TQ520115LHDZTXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->


aqaq
}

if($picurl =~ 'xxxpornpixxx'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=CQ52011927EBCXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=CQ52011927EBCXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ52011927EBCXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=CQ52011927EBCXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ52011927EBCXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->

aqaq
}


if($picurl =~ 'pixhunter'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=CQ52012107FBCXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=CQ52012107FBCXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ52012107FBCXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=CQ52012107FBCXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ52012107FBCXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->

aqaq
}

if($picurl =~ 'ultrasexpix'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=CQ5201226AAACXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=CQ5201226AAACXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ5201226AAACXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=CQ5201226AAACXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=CQ5201226AAACXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->


aqaq
}


if($picurl =~ 'asiagirlpix'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=AQ520130KABEAXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=AQ520130KABEAXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=AQ520130KABEAXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=AQ520130KABEAXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=AQ520130KABEAXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->

aqaq
}

if($picurl =~ 'facialcumbaths'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=FQ520131P9EAFXEN0&m=wf112&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=FQ520131P9EAFXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=FQ520131P9EAFXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=FQ520131P9EAFXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf112&cd=1&hb=FQ520131P9EAFXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->
aqaq
}


if($picurl =~ 'teenieteenies'){
print gallery <<aqaq

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=TQ52020116AZTXEN0&m=wf172&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=TQ52020116AZTXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=TQ52020116AZTXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=TQ52020116AZTXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=TQ52020116AZTXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->

aqaq
}

if($picurl =~ 'orientgalleries'){
print gallery <<aqaq
<br><br><br><br><br><br><br>
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=AQ520202O2WDAXEN0&m=wf172&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=AQ520202O2WDAXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=AQ520202O2WDAXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=AQ520202O2WDAXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=AQ520202O2WDAXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->


aqaq
}

if($picurl =~ 'cumsprayed'){
print gallery <<aqaq
<br><br><br><br><br><br><br>
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=FQ520202P0ZEFXEN0&m=wf172&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=FQ520202P0ZEFXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=FQ520202P0ZEFXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=FQ520202P0ZEFXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf172&cd=1&hb=FQ520202P0ZEFXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->
aqaq
}


if($picurl =~ 'asiagirlies'){
print gallery <<aqaq
<br><br><br><br><br><br><br>

<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=AQ520221OCEDAXEN0&m=wf100&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=AQ520221OCEDAXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=AQ520221OCEDAXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=AQ520221OCEDAXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=AQ520221OCEDAXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->


aqaq
}

if($picurl =~ 'tgpgalaxy'){
print gallery <<aqaq
<br><br><br><br><br><br><br>
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=TQ520223CJNZTXEN0&m=wf100&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=TQ520223CJNZTXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=TQ520223CJNZTXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=TQ520223CJNZTXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=TQ520223CJNZTXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->



aqaq
}


if($picurl =~ 'teeny-sex-pics'){
print gallery <<aqaq
<br><br><br><br><br><br><br>
<br><br><br><br><br><br><br>
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=TQ520225LDZNTXEN0&m=wf100&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=TQ520225LDZNTXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=TQ520225LDZNTXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=TQ520225LDZNTXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=TQ520225LDZNTXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->



aqaq
}


if($picurl =~ 'picmaestro'){
print gallery <<aqaq
<br><br><br><br><br><br><br>
<br><br><br><br><br><br><br>
<!-- BEGIN WEBSIDESTORY CODE v5 -->
<!-- COPYRIGHT 1998-2000 WEBSIDESTORY, INC. ALL RIGHTS RESERVED.  U.S. PATENT PENDING. -->
<script language="javascript"> var test=0;</script> <SCRIPT LANGUAGE="javascript1.1" 
src="http://js1.hitbox.com/js?acct=CQ520226PONCCXEN0&m=wf100&n=$mydesc1">
</SCRIPT><SCRIPT LANGUAGE="javascript">
if (test==0) { var dt, sv=10, ss="na",sc="na",ln="",pl="",rf,bn,ja,bv,x1,x2,x3,arg;
rf=escape(document.referrer)+"";if((rf=="undefined")||(rf=="")){rf="bookmark";}
bv=Math.round(parseFloat(navigator.appVersion)*100);bn=navigator.appName;
if(bn!="Netscape"){dt=(new Date()).getHours();};if(bn.substring(0,9)=="Microsoft"){bn="MSIE";}
if((bn=="MSIE")&&(parseInt(bv)==2)){bv=302;};ja="na";
x1="<a href='http://rd1.hitbox.com/rd?acct=CQ520226PONCCXEN0' target='_top'>";
x2="<img src='http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=CQ520226PONCCXEN0&n=$mydesc1";
x3="&cd=1&bt=2' border=0 height=62 width=88></a>";
arg="&bn="+bn+"&bv="+bv+"&ss="+ss+"&sc="+sc+"&dt="+dt+"&sv="+sv;
arg+="&ja="+ja+"&rf="+rf+"&ln="+ln+"&pl="+escape(pl);document.write(x1+x2+arg+x3);}</SCRIPT>
<script language="javascript1.2">document.write("<");document.write("!--  ");</script>
<noscript><a href="http://rd1.hitbox.com/rd?acct=CQ520226PONCCXEN0" target="_top">
<img src="http://hg1.hitbox.com/HG?hc=wf100&cd=1&hb=CQ520226PONCCXEN0&n=$mydesc1"
border=0 height=62 width=88></a></noscript>
<script language="javascript1.2"> document.write("  --");document.write(">");</script>
<!-- END WEBSIDESTORY CODE  -->

aqaq
}

}



sub getpresentrecips{
$nnm=0;
$nnmnorec=0;
#Läs databas:
$classnum=0;
open (cccz,"config/class.txt");
while(<cccz>){
  $catdefinedbytgp=0;
  $catdefinedbytgpfound=0;
  $catdefinedbyextra=0;
  $foundtgsw=0;$tgswdata='';
  $pickit=0;
  $catfound=0;
  $lastpicks=0;
  $timp=$_;
  chomp $timp;
  if($timp =~ '\|'){
    next;
  }

  $grandfinale[$classnum]='';
  $classnum++;
  @allclasses=split(/	/,$timp);  
  $numclasses=@allclasses;
  for($lu=0;$lu<=($numclasses-1);$lu++){
    $enc=$allclasses[$lu];&encodemini;$allclasses[$lu]=$enc2;
  }
  $numpar=($numclasses-7)/2;
  $c_tgpdomain[$classnum]=$allclasses[0];
  $c_refurl[$classnum]=$allclasses[1];
  $c_suburl[$classnum]=$allclasses[2];
  $c_status[$classnum]=$allclasses[3];
  $c_action[$classnum]=$allclasses[4];
  $c_template[$classnum]=$allclasses[5];
  $c_days[$classnum]=$allclasses[6];
  $grandfinalefirst[$classnum]="$c_tgpdomain[$classnum]	$c_days[$classnum]	$c_refurl[$classnum]	$c_action[$classnum]	$c_suburl[$classnum]?";
  for($jj=7;$jj<=($numclasses-1);$jj++){
    if($allclasses[$jj] =~ /XtgSw/ig){
      $foundtgsw=1;
      $tgswdata=$allclasses[$jj];
    }
    if($jj % 2 != 0){
      #$found: Can form parameter be idetified as a standard parameter?
      $found=0;
      if($allclasses[$jj+1] eq 'TGSW-URL'){
        $c_gallurl_name[$classnum]=$allclasses[$jj];
        $c_gallurl_value[$classnum]='TGSW-URL';
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_gallurl_name[$classnum]=$c_gallurl_value[$classnum]&";
        $found=1;
      }
      if($allclasses[$jj+1] eq 'TGSW-EMAIL'){
        $c_myemail_name[$classnum]=$allclasses[$jj];
        $c_myemail_value[$classnum]=$myemail;
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_myemail_name[$classnum]=$c_myemail_value[$classnum]&";
        $found=1;
      }
      if($allclasses[$jj+1] eq 'TGSW-PICS'){
        $c_numpics_name[$classnum]=$allclasses[$jj];
        $c_numpics_value[$classnum]=$mypics;
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_numpics_name[$classnum]=$c_numpics_value[$classnum]&";
        $found=1;
      }
      if($allclasses[$jj+1] eq 'TGSW-DE1'){
        $c_desc1_name[$classnum]=$allclasses[$jj];
        $c_desc1_value[$classnum]=$mydesc1;
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_desc1_name[$classnum]=$c_desc1_value[$classnum]&";
        $found=1;
      }
      if($allclasses[$jj+1] eq 'TGSW-DEab'){
        $c_desc2_name[$classnum]=$allclasses[$jj];
        $c_desc2_value[$classnum]=$mydesc3;
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_desc2_name[$classnum]=$c_desc2_value[$classnum]&";
        $found=1;
      }
      if($allclasses[$jj+1] eq 'TGSW-DE3' || $allclasses[$jj+1] eq 'TGSW-DE2'){
        $c_desc3_name[$classnum]=$allclasses[$jj];
        $c_desc3_value[$classnum]=$mydesc2;
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_desc3_name[$classnum]=$c_desc3_value[$classnum]&";
        $found=1;
      }
      if($allclasses[$jj+1] eq 'TGSW-NAME'){
        $c_myname_name[$classnum]=$allclasses[$jj];
        $c_myname_value[$classnum]=$myname;
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_myname_name[$classnum]=$c_myname_value[$classnum]&";
        $found=1;
      }
      if($allclasses[$jj+1] =~ '_Z'){
        $catdefinedbytgp=1;
        $c_cat_name[$classnum]=$allclasses[$jj];
        $c_cat_value[$classnum]=$allclasses[$jj+1];
        @allcats=split(/\_Z/,$c_cat_value[$classnum]);
        $dcup=-1;
        foreach $ccat (@allcats){
          $dcup++;
          if($ccat eq $categ){
            $c_cat_value[$classnum]=$allcats[$dcup+1];
            $catdefinedbytgpfound=1;
          }
        }
        $grandfinale[$classnum]=$grandfinale[$classnum]."$c_cat_name[$classnum]=$c_cat_value[$classnum]&";
        $found=1;
        #print "$c_cat_value[$classnum]\n";
      }
      #resterande formpar:
      if($found != 1 & defined($allclasses[$jj]) & $allclasses[$jj] ne ''){
        if($allclasses[$jj] !~ 'XtgSw'){
          $grandfinale[$classnum]=$grandfinale[$classnum]."$allclasses[$jj]=$allclasses[$jj+1]&";
          $found=1;
        }
      }
    }
  }


  #Special for tgp names which include for instance domain.com_ASIAN_ONLY 
  @ckat=split(/\_/,$c_tgpdomain[$classnum]);
  $ckatnum=@ckat;
  if($ckatnum>1){
    #  $splitcateg[0]=$categ;
    #  $categnum=0;

    if($ckat[1] =~ /$categ/ig || $ckat[1] =~ /alla/ig || $ckat[2] =~ /$categ/ig || $ckat[3] =~ /$categ/ig || $ckat[4] =~ /$categ/ig || $ckat[5] =~ /$categ/ig || $ckat[6] =~ /$categ/ig){
      $yyes=1;
      $c_cat_value[$classnum]='dummy';
      $catdefinedbyextra=1;
    }
    else{
      $yyes=0;
    }
  }
  else{
   $yyes=1;
  }


  #Check if category is defined in tgsw-string:
       $douseit=5;
   if($catdefinedbytgp != 1 & $foundtgsw==1){
       $xdouseit=5;
       #_Z did not define category but Xtgsw found
       @allxtgsw=split(/xtgsw/i,$tgswdata);  
       $numxtgsw=@allxtgsw;
       for($la=0;$la<=($numxtgsw-1);$la++){
#HERE
         if($allxtgsw[$la] eq $categ){
           $xdouseit=1;
         }
       }
       if($xdouseit==5){
        $douseit=1;
        #print "$c_tgpdomain[$classnum]\n";
       }
   }


      #If neither xtgsw nor _Z are defined, is category defined by form parameter directly?
      #and does form parameter value include $categ?
      if($catdefinedbytgp != 1 & $douseit!=1){
        for($lq=0;$lq<=($numclasses-1);$lq++){
          if($allclasses[$lq] =~ 'cat'){
            $catfound=1;
#HERE
            if($allclasses[$lq+1] =~ /$categ/i){
              if($allclasses[$lq+1] !~ /\<option/i){
                $pickit=1;
              }
            }
          }
        }
      }


#Pick from remaining all those that for which the category could not be detected from
#neither of these 3 methods: _Z-string, xtgsw-string, cat-formfield
if($yyes==1 & $c_suburl[$classnum] ne 'TGSW_mailto' & $c_status[$classnum] eq 'ENABLED' & $catdefinedbytgp!=1 & $douseit!=1 & $pickit!=1 & $catfound!=1 & $foundtgsw!=1){
  $lastpicks=1;
  #print "$c_tgpdomain[$classnum]\n";
}





  if($yyes==1 & $c_suburl[$classnum] ne 'TGSW_mailto' & $c_status[$classnum] eq 'ENABLED' & (($catdefinedbytgp==1 & $catdefinedbytgpfound==1) || $douseit==1 || $pickit==1 || $lastpicks == 1 || $catdefinedbyextra==1) & $c_tgpdomain[$classnum] !~ /gay/i){

    if($c_template[$classnum] != 31){
      $nnm++;
      $grandfinale[$classnum] =~ s/\&$//;
      $submitreadydomain[$nnm]=$c_tgpdomain[$classnum];
      $submitreadydays[$nnm]=$c_days[$classnum];
      $submitreadygrandfinale[$nnm]=$grandfinale[$classnum];
      $submitreadygrandfinalefirst[$nnm]=$grandfinalefirst[$classnum];
      $submitreadytemplate[$nnm]=$c_template[$classnum];
    }
    else{
      $nnmnorec++;
      $grandfinale[$classnum] =~ s/\&$//;
      $submitreadydomainnorec[$nnmnorec]=$c_tgpdomain[$classnum];
      $submitreadydaysnorec[$nnm]=$c_days[$classnum];
      $submitreadygrandfinalenorec[$nnmnorec]=$grandfinale[$classnum];
      $submitreadygrandfinalenorecfirst[$nnmnorec]=$grandfinalefirst[$classnum];
      $submitreadytemplatenorec[$nnmnorec]=$c_template[$classnum];

      $gurl=$gall_url[0].$filenamesnorecip[0];
      $submitreadygrandfinalenorec[$nnmnorec] =~ s/TGSW-URL/$gurl/g;
      $enc=$submitreadygrandfinalenorec[$nnmnorec];
      &encodestring;
      $submitreadygrandfinalenorec[$nnmnorec]=$enc2;
      $finnal=$submitreadygrandfinalenorecfirst[$nnmnorec].$submitreadygrandfinalenorec[$nnmnorec];
      &finalparcheck;
      if($testmode != 1){
        print op "$finnal\n";
      }
    }
  }
}
close(cccz);

print "Antal tgps med recips: $nnm\n";
print "Antal tgps utan recips: $nnmnorec\n";

}


sub copylist{
  for($rf=1;$rf<=$nnm;$rf++){
      $tempdomain[$rf]=$submitreadydomain[$rf];
      $tempdays[$rf]=$submitreadydays[$rf];
      $tempgrandfinale[$rf]=$submitreadygrandfinale[$rf];
      $tempgrandfinalefirst[$rf]=$submitreadygrandfinalefirst[$rf];
      $temptemplate[$rf]=$submitreadytemplate[$rf];
  }
}


sub pickcards{

#välj 3 recips:
if($nbb>=3){
for($kl=1;$kl<=3;$kl++){
  $rec[$kl]=int (rand $nbb) + 1;$ij=$rec[$kl];
  $recdomain[$kl]=$tempdomain[$ij];
  $recdays[$kl]=$tempdays[$ij];
  $recgrandfinale[$kl]=$tempgrandfinale[$ij];
  $recgrandfinalefirst[$kl]=$tempgrandfinalefirst[$ij];
  $rectemplate[$kl]=$temptemplate[$ij];
  $gurl=$gall_url[0].$filenames[0];
  $recgrandfinale[$kl] =~ s/TGSW-URL/$gurl/g;
  $enc=$recgrandfinale[$kl];
  &encodestring;
  $recgrandfinale[$kl]=$enc2;
  $finnal=$recgrandfinalefirst[$kl].$recgrandfinale[$kl];
  &finalparcheck;
  if($testmode != 1){
    print op "$finnal\n";
  }
  &getreciphtml;

  for($mn=$rec[$kl];$mn<=($nbb-1);$mn++){
    $tempdomain[$mn]=$tempdomain[$mn+1];
    $tempdays[$mn]=$tempdays[$mn+1];
    $tempgrandfinale[$mn]=$tempgrandfinale[$mn+1];
    $tempgrandfinalefirst[$mn]=$tempgrandfinalefirst[$mn+1];
    $temptemplate[$mn]=$temptemplate[$mn+1];
  }
  $tempdomain[$nbb]='';
  $tempgrandfinale[$nbb]='';
  $temptemplate[$nbb]='';
  $nbb=$nbb-1;
  #print "nbb=$nbb\n";
}
}
else{
  $nbb=0;
}
}



sub getreciphtml{

open (cccz,"config/recip.txt");
while(<cccz>){
  $found=0;
  $timp=$_;
  chomp $timp;
  $timp =~ s/\_0o0\_//;
  @raddelar=split(/	/,$timp);
  $dom=$raddelar[0];
  $rechtmlc=$raddelar[1];
  if($dom eq $recdomain[$kl]){
    $rechtmlc =~ s/xxxgalleriesurlxxx/$gall_url[0]/;
    $rechtml[$kl]=$rechtmlc;
    $found=1;
    last;
  }
}
  if($found != 1 & $rectemplate[$kl] != 31){
    print "ERROR: Domain, $recdomain[$kl] not found in recip.txt.\n";
  }

}



sub encodestring{

#These characters are encoded:
#space=+ .. etc see below

$enc =~ s/\!/\%21/g;
$enc =~ s/\"/\%22/g;
$enc =~ s/\#/\%23/g;
$enc =~ s/\$/\%24/g;
#$enc =~ s/\&/\%26/g;
$enc =~ s/\'/\%27/g;
$enc =~ s/\(/\%28/g;
$enc =~ s/\)/\%29/g;
$enc =~ s/\*/\%2A/g;
$enc =~ s/\+/\%2B/g;
$enc =~ s/\,/\%2C/g;
$enc =~ s/\-/\%2D/g;
$enc =~ s/\./\%2E/g;
$enc =~ s/\//\%2F/g;
$enc =~ s/\:/\%3A/g;
$enc =~ s/\;/\%3B/g;
$enc =~ s/\</\%3C/g;
#$enc =~ s/\=/\%3D/g;
$enc =~ s/\>/\%3E/g;
$enc =~ s/\?/\%3F/g;
$enc =~ s/\@/\%40/g;
$enc =~ s/\[/\%5B/g;
$enc =~ s/\\/\%5C/g;
$enc =~ s/\]/\%5D/g;
$enc =~ s/\^/\%5E/g;
#$enc =~ s/\_/\%5F/g;
$enc =~ s/\`/\%60/g;
$enc =~ s/\{/\%7B/g;
$enc =~ s/\|/\%7C/g;
$enc =~ s/\}/\%7D/g;
$enc =~ s/\~/\%7E/g;


$enc =~ s/ /\+/g;


$enc2=$enc;

}




sub encodemini{

#These characters are encoded directly in the name-value pair:

$enc =~ s/\=/\%3D/g;
$enc =~ s/\&/\%26/g;

$enc2=$enc;

}


sub getrandnum{
MMM:  $randnum=int(rand 40000)+1;
  if($pickrandnum{"$randnum"} != 1){
    $pickrandnum{"$randnum"}=1;
    return;
  }
  else{
    goto MMM;
  }
}





sub getdatetime{
  ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);
  $year=$year+1900;$mon=$mon+1;$yday=$yday+1;
  if($hour<10){$hour='0'.$hour;}if($min<10){$min='0'.$min;}if($sec<10){$sec='0'.$sec;}if($mday<10){$mday='0'.$mday;}if($mon<10){$mon='0'.$mon;}
}


sub finalparcheck {

$finnal =~ s/TGSW\%2DURL/$gurl/g;
$finnal =~ s/TGSW\%2DEMAIL/$myemail/g;
$finnal =~ s/TGSW\%2DPICS/$mypics/g;
$finnal =~ s/TGSW\%2DDE1/$mydesc1/g;
$finnal =~ s/TGSW\%2DDE3/$mydesc2/g;
$finnal =~ s/TGSW\%2DDEab/$mydesc3/g;
$finnal =~ s/TGSW\%2DNAME/$myname/g;

}


sub getmyrecip{
$recpick=0;

while($recpick == 0){

$flump=int(rand 12)+1;

if($flump == 1 & $domainnu !~ /tgpparadise/i){
$myrecip="
<table width=\"200\" border=\"1\" cellspacing=\"1\" cellpadding=\"1\">
  <tr>
    <td>
      <div align=\"center\"><b> <a href=\"http://TgpParadise.Com\" target=\"_top\">TgpParadise.Com</a> 
        </b><br>
        <font size=\"2\"><b>The worlds largest TGP?</b></font></div>
    </td>
  </tr>
</table>";
$recpick=1;
}

if($flump == 2 & $domainnu !~ /ultrafreepix/i){
$myrecip="
<table width=\"303\" border=\"5\" cellspacing=\"1\" cellpadding=\"1\" height=\"60\">
  <tr> 
    <td height=\"48\"> 
      <div align=\"center\"><b> <a href=\"http://ultrafreepix.com\" target=\"_top\"><font face=\"Arial, Helvetica, sans-serif\" size=\"4\">Ultrafreepix.Com</font></a> 
        </b><br>
        <font size=\"2\" face=\"Arial, Helvetica, sans-serif\"><a href=\"http://www.ultrafreepix.com/today/Bukkake_1.html\" target=\"_top\">[Bukkake]</a> 
        <a href=\"http://www.ultrafreepix.com/today/Nudist_1.html\" target=\"_top\">[Nudist]</a> 
        <a href=\"http://www.ultrafreepix.com/today/Schoolgirl_1.html\" target=\"_top\">[Schoolgirls]</a> 
        <a href=\"http://www.ultrafreepix.com/today/Teen_1.html\" target=\"_top\">[Teen]</a> 
        <a href=\"http://www.ultrafreepix.com/today/Young_1.html\" target=\"_top\">[Young]</a></font></div>
    </td>
  </tr>
</table>";
$recpick=1;
}

if($flump == 3 & $domainnu !~ /teenpics-now/i){
$myrecip="
<table bgcolor=#ffffff border=1 cellpadding=0 cellspacing=1 width=225 bordercolor=\"#FF3300\">
  <tbody> 
  <tr valign=\"top\" bgcolor=\"#cccc99\">
    <td height=\"10\" bgcolor=\"#FF0000\"> 
      <center>
        <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
          <tr>
            <td>
              <div align=\"center\"><font face=\"Georgia, Times New Roman, Times, serif\" size=\"4\"><a href=\"http://www.teenpics-now.com/galls/Teen-1.html\" target=\"_top\"><font color=\"#000000\" face=\"Geneva, Arial, Helvetica, san-serif\"><b>Teenpics-now.com</b></font></a></font></div>
            </td>
          </tr>
        </table>
        <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"2\">
          <tr> 
            <td width=\"31%\" height=\"20\"> 
              <div align=\"center\"><font face=\"Geneva, Arial, Helvetica, san-serif\"><a href=\"http://teenpics-now.com/galls/Japanese-1.html\" target=\"_top\"><font color=\"#666699\"><b><font color=\"#FFFF00\">Japanese</font></b></font></a></font></div>
            </td>
            <td width=\"42%\" height=\"20\"> 
              <div align=\"center\"><font face=\"Geneva, Arial, Helvetica, san-serif\"><b><a href=\"http://teenpics-now.com/galls/Teen-1.html\" target=\"_top\"><font color=\"#00FF00\">Teen</font></a></b></font></div>
            </td>
            <td width=\"27%\" height=\"20\"> 
              <div align=\"center\"><font face=\"Geneva, Arial, Helvetica, san-serif\"><a href=\"http://teenpics-now.com/galls/Cumshots-1.html\" target=\"_top\"><font color=\"#FFFF00\"><b>Cumshots</b></font></a></font></div>
            </td>
          </tr>
        </table>
        <font face=\"Georgia, Times New Roman, Times, serif\"><a href=\"http://www.teenpics-now.com/galls/Teen-1.html\" target=\"_top\"><font color=\"#000000\" face=\"Geneva, Arial, Helvetica, san-serif\" size=\"2\"><b><font color=\"#FFFFFF\">Updated 
        Everyday</font></b></font></a></font> 
      </center>
    </td>
  </tr>
  </tbody>
</table>";
$recpick=1;
}


if($flump == 4 & $domainnu !~ /facialcumbaths/i){
$myrecip="
<table width=\"164\" border=\"1\" cellspacing=\"5\" cellpadding=\"5\">
  <tr>
    <td bgcolor=\"#FFFF00\" bordercolor=\"#0000FF\"> 
      <p align=\"center\"><a href=\"http://facialcumbaths.com\" target=\"_top\"><font face=\"Arial, Helvetica, sans-serif\"><b><font size=\"2\" color=\"#0000FF\">FacialCumBaths.Com</font></b></font></a><font color=\"#0000FF\"><b><font face=\"Arial, Helvetica, sans-serif\"><br>
        <a href=\"http://facialcumbaths.com/tgppages/Asian_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Asian</font></a> 
        <font size=\"1\"><a href=\"http://facialcumbaths.com/tgppages/Bdsm_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">BDSM</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Cheerleader_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Cheerleader</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Cumshots_1.html\" target=\"_top\"><br><font size=\"1\" color=\"#0000FF\">Cumshots</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Fetish_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Fetish</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Gangbang_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Gangbang</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Japanese_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Japanese</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Nudist_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Nudist</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Schoolgirl_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Schoolgirl</font></a><br>
        <a href=\"http://facialcumbaths.com/tgppages/Shemale_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Shemale</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Teen_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Teen</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Upskirt_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Upskirt</font></a> 
        <a href=\"http://facialcumbaths.com/tgppages/Young_1.html\" target=\"_top\"><font size=\"1\" color=\"#0000FF\">Young</font></a></font></font></b></font><b><font face=\"Arial, Helvetica, sans-serif\"><font size=\"1\"> 
        </font></font></b></p>
      </td>
  </tr>
</table>";
$recpick=1;
}

if($flump == 5 & $domainnu !~ /asiagirlies/i){
$myrecip="
<a href=\"http://asiagirlies.com\" target=\"_top\"><font size=\"3\">Asiagirlies TGP</font></a>
";
$recpick=1;
}

if($flump == 6 & $domainnu !~ /ultrafacials/i){
$myrecip="
<a href=\"http://ultrafacials.com\" target=\"_top\"><font size=\"4\">Ultrafacials TGP</font></a>
";
$recpick=1;
}

if($flump == 7 & $domainnu !~ /pixhunter/i){
$myrecip="
<a href=\"http://pixhunter.com\" target=\"_top\"><font size=\"2\"><b>Pixhunter - 100,000 free pictures</b></font></a>
";
$recpick=1;
}


if($flump == 8 & $domainnu !~ /bukkake-baths/i){
$myrecip="
<table width=\"164\" border=\"5\" cellspacing=\"5\" cellpadding=\"5\" bordercolor=\"#FF0000\">
  <tr> 
    <td bgcolor=\"#000000\" bordercolor=\"#0000FF\"> 
      <p align=\"center\"><a href=\"http://bukkake-baths.com\" target=\"_top\"><font face=\"Arial, Helvetica, sans-serif\"><b><font size=\"2\" color=\"#FFFFFF\">Bukkake-Baths.Com</font></b></font></a><font color=\"#FFFFFF\"><b><font face=\"Arial, Helvetica, sans-serif\"><br>
        </font></b><font face=\"Arial, Helvetica, sans-serif\"><a href=\"http://bukkake-baths.com/links/Asian1.html\" target=\"_top\"><font size=\"2\" color=\"#FFFFFF\">Asian</font></a> 
        <font size=\"2\"><a href=\"http://bukkake-baths.com/links/Bukkake1.html\" target=\"_top\"><font color=\"#FFFFFF\">Bukkake</font></a> 
        <a href=\"http://bukkake-baths.com/links/Cumshots1.html\" target=\"_top\"><br>
        <font color=\"#FFFFFF\">Cumshots</font></a> <a href=\"http://bukkake-baths.com/links/Gangbang1.html\" target=\"_top\"><font color=\"#FFFFFF\">Gangbang</font></a> 
        <a href=\"http://bukkake-baths.com/links/Nudist1.html\" target=\"_top\"><font color=\"#FFFFFF\">Nudist</font></a> 
        <a href=\"http://bukkake-baths.com/links/Schoolgirl1.html\" target=\"_top\"><font color=\"#FFFFFF\">Schoolgirl</font></a><a href=\"http://bukkake-baths.com/links/Shemale1.html\" target=\"_top\"> 
        <font color=\"#FFFFFF\">Shemale</font></a> <a href=\"http://bukkake-baths.com/links/Teen1.html\" target=\"_top\"><font color=\"#FFFFFF\">Teen</font></a></font></font></font></p>
    </td>
  </tr>
</table>
";
$recpick=1;
}

if($flump == 9 & $domainnu !~ /happyteensclub/i){
$myrecip="
<table width=\"303\" border=\"5\" cellspacing=\"1\" cellpadding=\"1\" height=\"60\">
  <tr> 
    <td height=\"48\"> 
      <div align=\"center\"><b> <a href=\"http://happyteensclub.com\" target=\"_top\"><font face=\"Arial, Helvetica, sans-serif\" size=\"4\">Happyteensclub 
        TGP </font></a></b><br>
        <font size=\"2\" face=\"Arial, Helvetica, sans-serif\"><a href=\"http://www.happyteensclub.com/links/Cumshots1.html\" target=\"_top\">[Cumshots]</a> 
        <a href=\"http://www.happyteensclub.com/links/Nudist1.html\" target=\"_top\">[Nudist]</a> 
        <a href=\"http://www.happyteensclub.com/links/Amateur1.html\" target=\"_top\">[Amateurs]</a> 
        <a href=\"http://www.happyteensclub.com/links/Teen1.html\" target=\"_top\">[Teen]</a> 
        <a href=\"http://www.happyteensclub.com/links/Granny1.html\" target=\"_top\">[Granny]</a></font></div>
    </td>
  </tr>
</table>

";
$recpick=1;
}


if($flump == 10 & $domainnu !~ /bukkake-baths/i){
$myrecip="
<table width=\"303\" border=\"5\" cellspacing=\"1\" cellpadding=\"1\" height=\"60\">
  <tr> 
    <td height=\"48\"> 
      <div align=\"center\"><b> <a href=\"http://bukkake-baths.com\" target=\"_top\"><font face=\"Arial, Helvetica, sans-serif\" size=\"4\">Bukkake-Baths 
        TGP </font></a></b><br>
        <font size=\"2\" face=\"Arial, Helvetica, sans-serif\"><a href=\"http://www.bukkake-baths.com/links/Bukkake1.html\" target=\"_top\">[Bukkake]</a> 
        <a href=\"http://www.bukkake-baths.com/links/Nudist1.html\" target=\"_top\">[Nudist]</a> 
        <a href=\"http://www.bukkake-baths.com/links/Outdoor1.html\" target=\"_top\">[Outdoor]</a> 
        <a href=\"http://www.bukkake-baths.com/links/Schoolgirl1.html\" target=\"_top\">[Schoolgirls]</a> 
        <a href=\"http://www.bukkake-baths.com/links/Mature1.html\" target=\"_top\">[Mature]</a></font></div>
    </td>
  </tr>
</table>

";
$recpick=1;
}


if($flump == 11 & $domainnu !~ /comeheretocum/i){
$myrecip="
<table width=\"164\" border=\"1\" cellspacing=\"5\" cellpadding=\"5\">
  <tr>
    <td bgcolor=\"#FFFFFF\" bordercolor=\"#000000\"> 
      <p align=\"center\"><a href=\"http://comeheretocum.com\" target=\"_top\"><font face=\"Arial, Helvetica, sans-serif\"><b><font size=\"2\" color=\"#000000\">ComeHereToCum</font></b></font></a><font color=\"#000000\"><b><font face=\"Arial, Helvetica, sans-serif\"><br>
        <a href=\"http://comeheretocum.com/tgp/Asian1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Orientals</font></a> 
        <font size=\"1\"><a href=\"http://comeheretocum.com/tgp/Bdsm1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Bdsm</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Cheerleader1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Cheerleader</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Bukkake1.html\" target=\"_top\"><br><font size=\"1\" color=\"#000000\">Bukkake</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Bizarre1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Bizarre</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Group1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Group Sex</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Japanese1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Japan</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Nudist1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Beach</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Schoolgirl1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Schoolgirl</font></a><br>
        <a href=\"http://comeheretocum.com/tgp/Shemale1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Trannies</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Teen1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Teenies</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Upskirt1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Upskirt</font></a> 
        <a href=\"http://comeheretocum.com/tgp/Outdoor1.html\" target=\"_top\"><font size=\"1\" color=\"#000000\">Outdoor</font></a></font></font></b></font><b><font face=\"Arial, Helvetica, sans-serif\"><font size=\"1\"> 
        </font></font></b></p>
      </td>
  </tr>
</table>";
$recpick=1;
}

if($flump == 12 & $domainnu !~ /teeniesjapan/i){
$myrecip="
<a href=\"http://teeniesjapan.com\" target=\"_top\"><font size=\"3\">Teenies Japan TGP</font></a>
";
$recpick=1;
}



}
}






sub geturl{
$redir=1;
while($redir==1){
  $redir=0;
  $pag=$urltoget;
  $domainurl=$urltoget;
  &getdomain;
  $url=$pag;
  &getpage;
  open (xxx,">output/$pagenum.html");
  print xxx "$page\n\n\n";
  close(xxx);
  if(!($page =~ /banan/i & $page =~ /bilbana/i)){
    $redir=1;
    print "*** No connection to server ***:\n$pag\nPausar 30s.\n";
    sleep(30);
  }
  else{
    print "Server connection is alive. Starting to upload...\n";
    $redir=0;
  }


}
}


sub getdomain{
  @p1=split(/\//,$domainurl);
  $adress=$p1[2];
  @p2=split(/\./,$adress);
  $p2num=@p2-1;
  if($p2[$p2num-1]>=1 || $p2[$p2num]>=1){
   $domain=$adress;
  }
  else{
   $domain=$p2[$p2num-1].'.'.$p2[$p2num];
  }
#  print "domain= $domain\n";
}


sub getpage{
  $larsinge=0;
  sub open_SOCKET;
#  if(!($url =~ $serv)){
#    $url="http://".$serv."/".$url;
#  }
  #Extrahera klientnamn och adress
  #print "url=$url\n";
#  unless ($url =~ m{http://(.*?)(/.*)}){die "fel i url getpage\n"}

#  $server=$1;
  $sida=$pag;
#  my ($text, $rad) = "";
#  $apa=length($sida);
#  $apa=$apa-1;
#  $sida=substr($sida,1,$apa);
  #print "SERVER=$server\nSIDA=$sida\n\n\n";
  if($sida !~ 'http'){
    chomp $rim;
    $sida=$rim.$sida;
    #print "SIDA=$sida\n";
  }
  #print "SIDA=$sida\n";
  if(open_SOCKET($domain, 80)){
    select $socket; $|=1; select STDOUT;
        $domainurl=$sida;
        &getdomain2;
        if($submitaction eq 'GET'){
          print $socket "GET $sida HTTP/1.0\nReferer: $referer_page\nUser-Agent: $useragent\n\n";
          print "GET $sida\n";
          $shit=$sida;
          #&access_log;
        }
        else{
          print "POST requests not implemented.\n";
       
        }
    if($larsinge != 1){
    #READING TIME:
    while($sel->handles){
      # get all readable sockets
      @ready = $sel->can_read($timeout);
      if (@ready){
        foreach $fh (@ready) {
          $n = $fh->sysread($data, 256);
          if (defined($n) and $n > 0){
#           $text.=$rad while $rad = <$socket>;
            $text.=$data;
#            print "$text\n\n\n";
           }
          else{
            $sel->remove($fh);
            close ($socket);
          }
#          $text;
        }
      }
      else{
        print "Timeout!\n";
        if($enable_access_log == 1){
          $logtext="Timeout $proxy:$proxynum $sida";
          #&access_log2;
        }
        return;
#           $sel->remove($fh);
#           close ($socket);
      }
    }
    }
    $page=$text;
    $page2=$page;
    #Logga 400:
    $log4=0;
    $rida=substr($page,0,20);
    if($rida =~ /400/i){
#      open (dennis,">>ping/log/400.txt");
#      print dennis "$rida	$sida	$proxy:$proxyport\n";
#      close(dennis);
      $log4=1;
    }
    #Logga övriga 40:
    $rida=substr($page,0,20);
    if($rida =~ /40/i & $log4 == 0){
#      open (dennis,">>ping/log/404.txt");
#      print dennis "$rida	$sida	$proxy:$proxyport\n";
#      close(dennis);
    }
  }
  else{
    ""
  }
}

sub open_SOCKET{
  my ($server, $port) = @_;
  #omvandla port till numeriskt värde:
  $port=getservbyname($port, 'tcp') if $port !~ /^[0-9]/;

 $sel = new IO::Select();
 $socket = IO::Socket::INET->new(PeerAddr => $server,
                                PeerPort => $port,
                                Proto => "tcp",
                                Type => SOCK_STREAM );
#         or die "Couldn't connect to $server:$port : $@\n";
  $sel->add($socket);
}


sub getdomain2{
  @p1=split(/\//,$domainurl);
  $adress=$p1[2];
  @p2=split(/\./,$adress);
  $p2num=@p2-1;
  if($p2[$p2num-1]>=1 || $p2[$p2num]>=1){
   $domain2=$adress;
  }
  else{
   $domain2=$p2[$p2num-1].'.'.$p2[$p2num];
  }
  #print "domain2= $domain2  cookie=$cookie{$domain2}\n";
}