"; echo $error; exit;}
if(isset($get['pos'])) {
if(strstr($get['pos'],"l") !== false) {
$loc=$get['al']."?surfer_ip=".$ip;
foreach($param as $key => $val)
{
if(($key != "rd")&&($key != "al")&&($key != "irf")&&($key != "ext")&&($key != "tmpl")&&($key != "rdc")&&($key != "rel")&&($key != "pop")&&($key != "num")) {$loc=$loc."&".$key."=".rawurlencode($val);}
}
// $nnn=fopen("rrrr.txt","w");fwrite($nnn,$loc); fclose($nnn);
header("Location: $loc"); exit;}}
if(isset($get['rd'])) {
$loc=$get['al']."?surfer_ip=".$ip;
foreach($param as $key => $val)
{
if(($key != "rd")&&($key != "al")&&($key != "irf")&&($key != "ext")&&($key != "tmpl")&&($key != "rdc")&&($key != "rel")&&($key != "pop")&&($key != "num")) {$loc=$loc."&".$key."=".rawurlencode($val);}
}
// $nnn=fopen("rrrr.txt","w");fwrite($nnn,$loc); fclose($nnn);
//$nnn=fopen("rrrr.txt","w"); fwrite($nnn,$_SERVER['HTTP_REFERER']); fclose($nnn);
header("Location: $loc");
exit;
}
// $nnn=fopen("rrrr.txt","w");fwrite($nnn,$source['source']); fclose($nnn);
//echo $param['pop'];
$oldstr = array("%num", "%link", "%text", "%url", "%rdc", "%bid", "%word");
$next = false; $pop_y = false; $rel_y = false; $to='';
// $nnn=fopen("rrrr.txt","w");fwrite($nnn,$source['source']); fclose($nnn);
//echo $source['source'];
$err=array();
$source['source'] .= "&ref=".urlencode("http://".$_SERVER['SERVER_NAME'].$_SERVER['REQUEST_URI']);
$err = file($source['source']);
$ai=0; $ei=0; $a_ini=array();$ee=false;$sc=0;
while($ei < count($err)){
if((strstr($err[$ei], "REL|")!==false) || (strstr($err[$ei], "POP|")!==false) || (strstr($err[$ei], "NEXT|")!==false)) {$ee=true;}
if(!$ee){$sc=$sc + substr_count($err[$ei],"|"); if($sc > 4) { $a_ini[$ai]=$a_ini[$ai].$err[$ei]; $ei++; $ai++; $sc=0;$a_ini[$ai]="";}
else { $a_ini[$ai]=$a_ini[$ai].$err[$ei]; $ei++;}}
else { if((strncmp($err[$ei],"POP",3) ==0) ||(strncmp($err[$ei],"REL",3) ==0)||(strncmp($err[$ei],"NEXT",4)==0)){
$a_ini[$ai]=$err[$ei]; $ai++; $ei++;}
else{$ai--; $a_ini[$ai]=$a_ini[$ai].$err[$ei]; $ai++; $ei++;}}}
//$nnn=fopen("rrrr.txt","w"); for($i = 0; $i <= count($a_ini) - 1; $i++) {fwrite($nnn,$a_ini[$i])."\n";} fclose($nnn);
$rel_a=array();$pop_a=array();$is_al=false;
for($i=0; $i <= count($a_ini) - 1; $i++) {
if(!$is_al){$is_al=true;$ntl=explode( "|", $a_ini[$i]);
$aloc=substr($ntl[4],0,strpos($ntl[4],"?"));
$aloco = $aloc;}
if(strstr($a_ini[$i], "REL|")) { $rel_a = explode( "|",$a_ini[$i]);$rel_y = true;}
if(strstr($a_ini[$i], "NEXT")) { $next = true; $to=substr(strstr($a_ini[$i], ".php?"),4);
if(!$param['ext']) {$to=substr($to,0,strpos($to,"aff=")).substr(strstr(substr(strstr($to,"aff="),3),"&"),1);}
$to=substr($to,0,strpos($to,"surfer_ip")).substr(strstr(substr(strstr($to,"surfer_ip"),5),"&"),1);
// $to=substr($to,0,strpos($to,"out=")).substr(strstr(substr(strstr($to,"out="),3),"&"),1);
if($param['tmpl']!=''){$to.="&tmpl=".$param['tmpl'];}
$nip = @$get['surfer_ip'] ? $get['surfer_ip'] : $ip;
$to.="&surfer_ip=".$nip;}
if(strstr($a_ini[$i], "POP|")) { $pop_y = true; $pop_a = explode( "|", $a_ini[$i]);}}
$pop_a = array_slice($pop_a, 0, $param['pop']+2);
$k = $k ? $k : -1;
for ($i = 0; $i <= $j -1; $i++) {
echo proc($buffer[$i], $rel_y, $pop_y, $rel_a, $pop_a,$to);}
$ni=0;
$jsvar = "