|
czf4bfu |
Subversion Repositories: |
Compare with Previous - Blame - Download
<?phperror_reporting(0);// Nastavime, aby se nam zbytecne nelogovaly chybyini_set('log_errors',false);$i=0;$seznam = array();$oblast = array();$item = array();$items = array();echo "<!--CZF4BFU ";if ($dir = @opendir(".")) {while (($file = readdir($dir)) !== false)if (preg_match('/^(global|local)-.*.txt/',$file)) {echo $file." ";$seznam[$i] = $file;++$i;}}echo "-->\n";?><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"><html><head><!-- Unreal][ # http://www.jklir.net # Licence: GNU/GPL # v 1.3 (c) Jirka Klír 2008 for CZFree.net ;-) # --><title>CZF4BFU</title><meta http-equiv="Content-Type" content="text/html; charset=windows-1250" /><meta http-equiv="Content-language" content="cz" /><meta name="author" content="Unreal][, http://www.jklir.net"><link href="styl.css" rel="stylesheet" type="text/css"></head><body style="background: #D4D0C8"><h1>Rozcestník CZFree.Net</h1><?php$group = $_GET["group"];$czf_group = $_GET["group"];$czf_oblast = $_GET["oblast"];$czf_id = $_GET["id"];if($group!=2) {if($czf_oblast!="") { $aname = "#".$czf_oblast; } else { $aname = ""; }$group = !$group;$text = (!empty($group)) ? "seskupit" : "neseskupovat";echo "<a class=\"group\" href=\"?group=".$group."&id=".$czf_id."&oblast=".$czf_oblast.$aname."\">$text podle typu služeb</a>";} else {echo "<a class=\"group\" href=\"#\"> </a>";}?><div class="tree"><a class="nomargin title" href="?oblast="><strong>CZFree.net</strong><br>celá síť</a><div class="smallicon"><a title="seznam služeb" href="?oblast="><img width="10" border="0" src="img/point.png"></a> <a title="seznam služeb" href="?oblast=">seznam služeb</a></div><div class="smallicon"><a title="seznam cloudů" href="?group=2"><img width="10" border="0" src="img/point.png"></a> <a title="seznam cloudů" href="?group=2">seznam cloudů</a></div><?php$jmena_cloudu = array("10.1.0.0/16" => "Connection.cz / AS Centrum network","10.2.0.0/16" => "Praha - Connection.cz","10.10.0.0/16" => "reserved","10.11.0.0/16" => "Praha - Střeovice, Břevnov, Hradčany, Strahov","10.12.0.0/16" => "Praha - Nusle, Michle, Ruská ul.","10.13.0.0/16" => "Praha - Stodůlky, Nové Butovice, Luka, Luiny, Řeporyje","10.15.0.0/16" => "Praha - Malvazinky, Koíře, Motol","10.16.0.0/16" => "Praha - Barrandov","10.17.0.0/16" => "Praha - Záběhlice, Zahradní město","10.18.0.0/16" => "Praha - Dejvice, Podbaba","10.19.0.0/16" => "Praha - Suchdol, Lysolaje, Hanspaulka, Horoměřice","10.20.0.0/16" => "Praha - P6 - Dědina, Liboc, Ruzyně","10.21.0.0/16" => "Praha - Řepy, Zličín","10.22.0.0/16" => "Praha - Holeovice","10.23.0.0/16" => "Praha - Vinohrady, Vrovice, ikov","10.24.0.0/16" => "Praha - Jarov, Stranice, Maleice, Skalka","10.25.0.0/16" => "Praha - Hlubočepy, Podolí, Braník","10.26.0.0/16" => "Praha - Lipence, Zbraslav, Radotín","10.27.0.0/16" => "Praha - Modřany, Velká Chuchle, Hodkovičky","10.28.0.0/16" => "Praha - VYPAL (VYsočany, PAlmovka, Libeň)","10.30.0.0/16" => "Praha - Hostivař, Horní Měcholupy, Dolní Měcholupy, Běchovice","10.31.0.0/16" => "Praha - Bohnice, Čimice","10.32.0.0/16" => "Praha - Dolní Chabry, Ďáblice, Kobylisy, Vychovatelna","10.33.0.0/16" => "Praha - Prosek, Letňany, Čakovice","10.34.0.0/16" => "Praha - Letná, trossmajerák","10.37.0.0/16" => "Praha - Radotín","10.38.0.0/16" => "Praha - Chodov, Opatov, Háje, Kateřinky","10.39.0.0/16" => "Praha - ibřina, Újezd nad Lesy, Koloděje, Květnice","10.40.0.0/16" => "Praha - Krč, sidl.Novodvorská, Kačerov, Spořilov, Roztyly","10.41.0.0/16" => "HMNet - Horní Měcholupy","10.43.0.0/16" => "Řepná pole, Vinoř","10.44.0.0/16" => "Praha - Podolí","10.48.0.0/16" => "Praha 2, 4, 10","10.49.0.0/16" => "Praha 1, 3","10.50.0.0/16" => "Praha - Centrum Prahy","10.51.0.0/16" => "Praha - Petřiny","10.52.0.0/16" => "Praha - Vrovice","10.55.0.0/16" => "Connection.cz","10.63.0.0/17" => "Rakovník a okolí","10.66.0.0/16" => "Hostivice, Chýně, Ptice, Červený Újezd, Sobín","10.67.0.0/16" => "Rudná u Prahy, Ptice, Úhonice, Drahelčice","10.69.0.0/17" => "Mělník a okolí","10.69.128.0/17" => "Neratovice a okolí","10.70.0.0/16" => "Beroun a okolí","10.76.0.0/16" => "Plzeň - PilsFree 1","10.78.0.0/16" => "Plzeň - PilsFree 2","10.88.0.0/16" => "Říčany a okolí","10.89.0.0/16" => "Mnichovice","10.91.0.0/19" => "Velké Přílepy","10.92.0.0/19" => "Libčice nad Vltavou","10.93.0.0/16" => "Čelákovice","10.94.0.0/17" => "Mladá Boleslav a okolí","10.95.0.0/17" => "Řevnice, Dobřichovice","10.96.0.0/16" => "Venory, Karlík, Dobřichovice, Lety, Řevnice, Třebáň","10.98.0.0/16" => "Unho, Chýně, Červený Újezd, Ptice, Nouzov, Kysice, Brakov, Horní Bezděkov a dalí","10.99.0.0/18" => "Třebestovice","10.100.0.0/16" => "Říčany","10.101.0.0/16" => "Liberec","10.102.0.0/16" => "Kladno, Unho a okolí","10.103.0.0/16" => "Karlovy Vary","10.104.0.0/17" => "Jablonec","10.105.0.0/17" => "Kolín","10.106.0.0/16" => "Kutná Hora - okres","10.107.0.0/16" => "Hradec Králové","10.108.0.0/16" => "České Budějovice","10.109.0.0/16" => "Plzeň","10.110.0.0/17" => "Chrudim","10.111.0.0/16" => "Plzeň - sever","10.112.0.0/16" => "Lysá nad Labem","10.113.0.0/16" => "Louny, atec, Pobořany","10.114.0.0/16" => "Příbram","10.117.0.0/16" => "Turnov a okolí","10.120.0.0/18" => "MH2Net - Mnichovo Hraditě směr Turnov","10.128.0.0/15" => "Brno - město","10.128.0.0/16" => "Brno - město","10.129.0.0/16" => "okolí Brna","10.129.24.0/21" => "Tinov","10.130.0.0/16" => "Severní Morava","10.131.0.0/16" => "Uherské Hraditě","10.132.0.0/16" => "Střední Morava - Olomouc","10.133.0.0/16" => "Prostějov","10.134.0.0/16" => "Přerovsko","10.135.0.0/16" => "rezerva pro Moravu","10.136.0.0/16" => "testovací sítě pro Moravu","10.144.0.0/16" => "Zlín, Vsetín, Valaské Meziříčí - okresy","10.145.0.0/16" => "Nový Jičín, Kopřivnice, Frýdek Místek - okresy","10.152.0.0/16" => "Ostrava - okres","10.153.0.0/16" => "Ostrava - okres","10.154.0.0/16" => "Ostrava - okres","10.155.0.0/16" => "Ostrava - okres","10.161.0.0/16" => "Evkanet - Ostrava","10.253.0.0/16" => "NCX - Zápy","10.254.0.0/16" => "NCX Labyrint");$order[0][0] = "TYP";$order[1][0] = "NAZEV";$sort_cz = 0;function arfsort( $a, $yes ) {global $sort_cz;$sort_cz = $yes;usort( $a, 'arfsort_func' );return $a;}function arfsort_func( $a, $b ){global $order,$sort_cz;foreach($order as $f) {if($sort_cz=="1") {$a[$f[0]]=strtr($a[$f[0]], array("Á" => "azzz", "É" => "ezzz", "Í" => "izzz", "Ó" => "ozzz", "Ú" => "uzzz", "Ý" => "yzzz", "Ž" => "zzzz", "Š" => "szzz", "Č" => "czzz", "Ř" => "rzzz"));$b[$f[0]]=strtr($b[$f[0]], array("Á" => "azzz", "É" => "ezzz", "Í" => "izzz", "Ó" => "ozzz", "Ú" => "uzzz", "Ý" => "yzzz", "Ž" => "zzzz", "Š" => "szzz", "Č" => "czzz", "Ř" => "rzzz"));}$strc = strcasecmp( $a[$f[0]], $b[$f[0]] );if ( $strc != 0 ) {return $strc;}}return 0;}function natsort_func( $a, $b ){$strc = strnatcmp( $a,$b );if ( $strc != 0 ) {return $strc;}return 0;}function show_small($test) {foreach ($test as $key=>$row) {$oblast = $row["OBLAST"];$typ = $row["TYP"];$nazev = $row["NAZEV"];$id = $row["ID"];if($oblast==="") { $oblast="10.0.0.0/8"; }$ikonka = $typ;if(!file_exists("ikony/".$ikonka.".png")) { $ikonka = "none"; }// echo "<div class=\"smallicon\"><a title=\"".$nazev."\" href=\"?id=".$id."&oblast=".$oblast."#".$oblast."\"><img width=\"16\" title=\"".$nazev."\" border=\"0\" src=\"ikony/$ikonka.png\"></a> <a title=\"".$nazev."\" href=\"?id=".$id."&oblast=".$oblast."#".$oblast."\">".$nazev."</a></div>\n";echo "<div class=\"smallicon\"><a title=\"$nazev\" href=\"?id=$id&oblast=$oblast#$oblast\"><img width=\"16\" title=\"$nazev\" border=\"0\" src=\"ikony/$ikonka.png\"></a> <a title=\"$nazev\" href=\"?id=$id&oblast=$oblast#$oblast\">$nazev</a></div>\n";}}function show_big($test) {foreach ($test as $row) {$oblast = $row["OBLAST"];$typ = $row["TYP"];$nazev = $row["NAZEV"];$popis = $row["POPIS"];$id = $row["ID"];if($oblast==="") { $oblast="10.0.0.0/8"; }$ikonka = $typ;if(!file_exists("ikony/".$ikonka.".png")) { $ikonka = "none"; }echo "<div class=\"icon\"><a title=\"".$popis."\" href=\"?id=".$id."&oblast=".$oblast."#".$oblast."\"><img title=\"".$popis."\" border=\"0\" width=\"32\" src=\"ikony/$ikonka.png\"><br>".$nazev."</a></div>\n";}}function show_groups($test) {$pamatuj = "";foreach ($test as $row) {$oblast = $row["OBLAST"];$typ = $row["TYP"];$nazev = $row["NAZEV"];$popis = $row["POPIS"];$id = $row["ID"];if($oblast==="") { $oblast="10.0.0.0/8"; }$ikonka = $typ;if(!file_exists("ikony/".$ikonka.".png")) { $ikonka = "none"; }if ($typ===$pamatuj) {echo "<div class=\"icon\"><a title=\"".$popis."\" href=\"?id=".$id."&oblast=".$oblast."#".$oblast."\"><img title=\"".$popis."\" border=\"0\" width=\"32\" src=\"ikony/$ikonka.png\"><br>".$nazev."</a></div>\n";} else {echo "<div class=\"sizer\"></div><a name=\"".$typ."\" href=\"#".$typ."\" class=\"title\">".$typ."</a>\n";echo "<div class=\"icon\"><a title=\"".$popis."\" href=\"?id=".$id."&oblast=".$oblast."#".$oblast."\"><img title=\"".$popis."\" border=\"0\" width=\"32\" src=\"ikony/$ikonka.png\"><br>".$nazev."</a></div>\n";}$pamatuj = $typ;}}function show_clouds($test) {global $jmena_cloudu;foreach ($test as $row) {if($row!="") {$cl_popis = $jmena_cloudu["$row"];$cl_naz = $row;$cl_nazev = $row."<br>".$cl_popis;echo "<div class=\"icon2\"><a title=\"".$cl_popis."\" href=\"?oblast=".$cl_naz."#".$cl_naz."\"><img title=\"".$cl_popis."\" border=\"0\" width=\"50\" src=\"img/cloud.png\"><br>".$cl_nazev."</a></div>\n";}}}function show_details($test) {$ikonka_det = $test["TYP"];if(!file_exists("ikony/".$ikonka_det.".png")) { $ikonka_det = "none"; }echo "<div class=\"det\">";echo "<div class=\"icon_det\"><img alt=\"$ikonka_det\" src=\"ikony/$ikonka_det.png\"></div>";echo "<div class=\"info_det\">";foreach ($test as $key=>$row) {if($key!="HESLOEDIT") {echo "<strong>".$key."</strong>: ".$test["$key"]."<br>";}}echo "</div><div class=\"info_cut\"></div></div>";}if(!empty($seznam)) {$pocet_globalu = $i;$polozka=-1;for ($g=0; $g<$pocet_globalu; ++$g) {$file = "./".$seznam[$g];// $fp = fopen($file, "r");// $dat = fread($fp, filesize($file));// fclose($fp);$dat = file_get_contents($file);$data = explode("\n", $dat);$soucet = count($data);for ($j=0; $j<=$soucet; ++$j) {if ((($data[$j]!="") and ($data[$j]!=" ")) and ($data[$j][0]!=(chr(13)))) {if (strtoupper(substr($data[$j], 0, 4))=="TYP:") { ++$polozka; }$item[$polozka]=$item[$polozka].$data[$j]."<br>";}$trans = array(" \\\\<br>" => "", " <br>" => "<br>", (chr(13)) => "", ": " => ":", "OBLAST:<br>" => "OBLAST:10.0.0.0/8<br>", (chr(9)) => "");$item[$polozka]=strtr($item[$polozka], $trans);$trans_code = array("á" => "á", "é" => "é", "ě" => "ě", "í" => "í", "ó" => "ó", "ú" => "ú", "ů" => "ů", "ý" => "ý", "" => "ž", "" => "š", "č" => "č", "ř" => "ř", "ď" => "ď", "" => "ť", "ň" => "ň", "Á" => "Á", "É" => "É", "Ě" => "Ě", "Í" => "Í", "Ó" => "Ó", "Ú" => "Ú", "Ů" => "Ů", "Ý" => "Ý", "" => "Ž", "" => "Š", "Č" => "Č", "Ř" => "Ř", "Ď" => "Ď", "" => "Ť", "Ň" => "Ň", "ž" => "ž", "š" => "š");$item[$polozka]=strtr($item[$polozka], $trans_code);}}// ------- naladujem data do 3-rozmernyho pole -------for ($k=0; $k<=$polozka; ++$k) {$ic = explode("<br>", $item[$k]);$cnt_ic = (count($ic));for ($b=0; $b<=$cnt_ic; ++$b) {if($b==$cnt_ic) {$items[$k]['ID']=$k;} else {if(($ic[$b])!="") {$pole = strpos($ic[$b], ":");if((((substr($ic[$b], 0, $pole))=="URL") or ((substr($ic[$b], 0, $pole))=="URLIP")) or ((substr($ic[$b], 0, $pole))=="URLINET")) {$items[$k][(strtoupper(substr($ic[$b], 0, $pole)))]="<a href=\"".(substr($ic[$b], $pole+1))."\">".(substr($ic[$b], $pole+1))."</a>";} else {$items[$k][(strtoupper(substr($ic[$b], 0, $pole)))]=(substr($ic[$b], $pole+1));}}}}}// -- zjisteni a serazeni oblasti$cloudy = "";for ($k=0; $k<=$polozka; ++$k) {if ((preg_match("/OBLAST:/i", $item[$k])) and (!preg_match("/OBLAST:<br>/i", $item[$k]))) {preg_match('%OBLAST:(.*?)(<br)%s', $item[$k], $cloud);if (!eregi($cloud[1], $cloudy)) {$cloudy .= $cloud[1].";";}}}$cloudy = substr($cloudy, 0, -1);$oblast = explode(";", $cloudy);$pocet_oblasti = count($oblast)-1;// -- seradime oblasti (bublinkovy razeni je silene pomaly)usort( $oblast, 'natsort_func' );// ------- zapiseme hodnoty do cloudovskych poli -------for ($o=0; $o<=$pocet_oblasti; ++$o) {foreach ($items as $row) {if($row["OBLAST"]=="") { $row["OBLAST"]="10.0.0.0/8"; }if($row["OBLAST"]==$oblast[$o]) {$obl["$oblast[$o]"][]=$row;}}}// ------- prekodujem nazvy cloudu, aby nam nedelaly bordel pri spatnym kodovani -------for ($o=0; $o<=$pocet_oblasti; $o++) {$trans_code = array("á" => "á", "é" => "é", "ě" => "ě", "í" => "í", "ó" => "ó", "ú" => "ú", "ů" => "ů", "ý" => "ý", "" => "ž", "" => "š", "č" => "č", "ř" => "ř", "ď" => "ď", "" => "ť", "ň" => "ň", "Á" => "Á", "É" => "É", "Ě" => "Ě", "Í" => "Í", "Ó" => "Ó", "Ú" => "Ú", "Ů" => "Ů", "Ý" => "Ý", "" => "Ž", "" => "Š", "Č" => "Č", "Ř" => "Ř", "Ď" => "Ď", "" => "Ť", "Ň" => "Ň");$jmena_cloudu["$oblast[$o]"]=strtr($jmena_cloudu["$oblast[$o]"], $trans_code);}// ------- vypis ve sloupecku vlevo -------for ($o=0; $o<=$pocet_oblasti; $o++) {echo "<a class=\"title\" name=\"".$oblast[$o]."\" href=\"?oblast=".$oblast[$o]."#".$oblast[$o]."\"><span class=\"cloudip\">".$oblast[$o]."</span>\n";if(strlen($jmena_cloudu["$oblast[$o]"])>=1) {echo "<br>".$jmena_cloudu["$oblast[$o]"]."</a>";} else {echo "</a>";}$sorted["$oblast[$o]"] = arfsort( $obl["$oblast[$o]"], 0);show_small($sorted["$oblast[$o]"]);}?></div><div class="items"><?php//############# PODMINKY ZOBRAZENI ###############//if(($czf_group!="1") and ($czf_group!="2")) { $group = ""; }// ------- pokud neni uvedena oblast ani id ani groupa -------if ((($czf_oblast=="") and ($czf_id=="")) and ($czf_group=="")) {$sorted0 = arfsort( $items, 1);show_big($sorted0);echo "<div class=\"sizer\"></div></div>";}// ------- pokud neni uvedena oblast ani id ale groupa ano -------if ((($czf_oblast=="") and ($czf_id=="")) and ($czf_group=="1")) {$sorted0 = arfsort( $items, 1);show_groups($sorted0);echo "<div class=\"sizer\"></div></div>";}// ------- pokud neni uvedena oblast ani id ale groupa je 2 -------if ((($czf_oblast=="") and ($czf_id=="")) and ($czf_group=="2")) {show_clouds($oblast);echo "<div class=\"sizer\"></div></div>";}// ------- pokud je uvedena oblast i id sluzby ale groupa ne -------if ((($czf_oblast!="") and ($czf_id!="")) and ($czf_group=="")) {show_big($sorted[$czf_oblast]);echo "<div class=\"sizer\"></div></div>\n";echo "<div class=\"detail\"><div class=\"nomargin title\"><strong>Detaily:</strong></div>";echo "<div class=\"contents\">\n";if ($czf_id<=$polozka) {show_details($items[$czf_id]);} else {echo "<br>Položka neexistuje<br>";}echo "</div></div>\n";}// ------- pokud je uvedena oblast i id sluzby i groupa -------if ((($czf_oblast!="") and ($czf_id!="")) and ($czf_group=="1")) {show_groups($sorted[$czf_oblast]);echo "<div class=\"sizer\"></div></div>\n";echo "<div class=\"detail\"><div class=\"nomargin title\"><strong>Detaily:</strong></div>";echo "<div class=\"contents\">\n";if ($czf_id<=$polozka) {show_details($items[$czf_id]);} else {echo "<br>Položka neexistuje<br>";}echo "</div></div>\n";}// ------- pokud neni uvedena oblast ale id a groupa ne -------if ((($czf_oblast=="") and ($czf_id!="")) and ($czf_group=="")) {if ($czf_id<=$polozka) {if(($items[$czf_id]["OBLAST"])=="") {$sorted4 = $sorted["10.0.0.0/8"];} else {$sorted4 = $sorted[$items[$czf_id]['OBLAST']];}show_big($sorted4);} else {$sorted0 = arfsort( $items, 1);show_big($sorted0);}echo "<div class=\"sizer\"></div></div>\n";echo "<div class=\"detail\"><div class=\"nomargin title\"><strong>Detaily:</strong></div>";echo "<div class=\"contents\">\n";if ($czf_id<=$polozka) {show_details($items[$czf_id]);} else {echo "<br>Položka neexistuje<br>";}echo "</div></div>\n";}// ------- pokud neni uvedena oblast ale id a groupa ano -------if ((($czf_oblast=="") and ($czf_id!="")) and ($czf_group=="1")) {if ($czf_id<=$polozka) {if(($items[$czf_id]["OBLAST"])=="") {$sorted4 = $sorted["10.0.0.0/8"];} else {$sorted4 = $sorted[$items[$czf_id]['OBLAST']];}show_groups($sorted4);} else {$sorted0 = arfsort( $items, 1);show_groups($sorted0);}echo "<div class=\"sizer\"></div></div>\n";echo "<div class=\"detail\"><div class=\"nomargin title\"><strong>Detaily:</strong></div>";echo "<div class=\"contents\">\n";if ($czf_id<=$polozka) {show_details($items[$czf_id]);} else {echo "<br>Položka neexistuje<br>";}echo "</div></div>\n";}// ------- pokud je uvedena oblast ale ne id ani groupa -------if ((($czf_oblast!="") and ($czf_id=="")) and ($czf_group=="")){show_big($sorted[$czf_oblast]);echo "<div class=\"sizer\"></div></div>\n";}// ------- pokud je uvedena oblast a groupa ale ne id -------if ((($czf_oblast!="") and ($czf_id=="")) and ($czf_group=="1")){show_groups($sorted[$czf_oblast]);echo "<div class=\"sizer\"></div></div>\n";}unset($oblast);unset($item);unset($items);} // endunset($seznam);?><div id="copy">czf4bfu v1.3 - made <a href="http://www.jklir.net">Unreal][</a> </div></body></html>