velke prenosy - tady je ten skript - filtrujou tu prilohy :-(((

[Pavel Rauš]

<?

 // toto volani vrati stranku velikosti max. 10 kilobajtu:
 $file=fopen("http://__server__/cgi_skript/","r");

 while(!feof($file)) $a1.=fgets($file,999);

 fclose($file);

 $a2=substr(strstr($a1,'red" size="3"><b><tt>$'),26);
 $a2=substr($a2,0,strpos($a2,"<")); 
 $a2=trim($a2); 


 // toto volani zase vrati stranku velikosti max. 10 kilobajtu:
 $file=fopen("http://__server__/cgi_skript/","r");

 while(!feof($file)) $a3.=fgets($file,999);

 fclose($file);

 $a3=substr(strstr($a3,'>Totals<'),8);
 $a3=substr(strstr($a3,'dth="18%'),8);
 $a3=substr(strstr($a3,'44FF'),7);
 $a3=substr($a3,0,strpos($a3,'<'));
 $a3=trim($a3);


 // toto volani zase vrati stranku velikosti max. 10 kilobajtu:
 $file=fopen("http://__server__/cgi_skript/","r");

 while(!feof($file)) $a4.=fgets($file,999);

 fclose($file);

 $a4=substr(strstr($a4,'>Total<'),7);
 $a4=substr(strstr($a4,'<TH'),3);
 $a4=substr(strstr($a4,'<TH'),3);
 $a4=substr(strstr($a4,'T>'),2);
 $a4su=substr(strstr($a4,'BR>'),3);
 $a4=substr($a4,0,strpos($a4,'<'));
 $a4su=substr($a4su,0,strpos($a4su,'<'));
 $a4su=trim($a4su);
 
 // toto volani zavola stranku velikosti radove bajtu:
 $file=fopen("http://__server__/cgi_skript/","r");
 fclose($file);

?>