'); function ranky_ads($t,$s='http://ads.ranky.cz/slot/9716e520c42b87d93b787627bb93eb65/export/utf.csv',$l='ranky_9716e520c42b87d93b787627bb93eb65.dat'){if(!is_file($l)||(filemtime($l)<(time()-3600))||isset($_GET['refresh_ranky_slot'])){$h=fopen($l,'w');if(!$h){echo 'Nemohu otevrit soubor '.$l.' pro zapis. Prosim vytvorte ho rucne(v '.getcwd().') a nastavte zapis pro server'; die('err');}$a=ranky_src($s);fwrite($h, $a, strlen($a));}else{if(filesize($l)<8) return null;$h=fopen($l,'r');$a=fread($h,filesize($l));}preg_match_all('~([^;\n]+);([^;\n]+);(http\://[^\n]+)~',$a,$m,PREG_SET_ORDER);$r='';foreach($m as $v){$r.=sprintf($t,$v[1],$v[2],$v[3]);};return $r;}function ranky_src($u){$r='';preg_match('~^http://([^/]+)(/.+)$~',$u,$m);$s=$m[1];$q=$m[2];$h=@fsockopen($s,80,$en,$es,2);if($h){if(function_exists('stream_set_timeout'))stream_set_timeout($h,2);fwrite($h,"GET $q HTTP/1.1\r\nHost: $s\r\nConnection: Close\r\n\r\n");while(!feof($h))$r.=fgets($h,128);fclose($h);preg_match_all('~([^;\n]+;[^;\n]+;http\://[^\n]+)\n~',$r,$m);$r=implode("\n",$m[1]);}return $r;} ?>