| Rev 2 |
|
Rev 3 |
| Line 44... |
|
Line 44... |
$gl_hlas = $gl_pole[5]; |
|
$gl_hlas = $gl_pole[5]; |
$gl_hlas =~ s/\n//g; |
|
$gl_hlas =~ s/\n//g; |
$gl_hlas =~ s/ //g; |
|
$gl_hlas =~ s/ //g; |
$gl_pritomno = 0; |
|
$gl_pritomno = 0; |
$gl_podobne = ""; |
|
$gl_podobne = ""; |
| |
|
$gl_ping = $gl_rozsah[0]; |
| |
|
$gl_ping =~ s/\//xx/g; |
| |
|
$gl_bgp = $gl_as; |
| |
|
$gl_bgp =~ s/AS//g; |
|
|
|
if ("$gl_hlas" eq "ano") {$gl_pocethlasu += 1}; |
|
if ("$gl_hlas" eq "ano") {$gl_pocethlasu += 1}; |
if ("$gl_online" eq "ano") {$gl_pocetonline += 1}; |
|
if ("$gl_online" eq "ano") {$gl_pocetonline += 1}; |
if ("$gl_zastupce" ne "ne") {$gl_pocetzastupcu += 1}; |
|
if ("$gl_zastupce" ne "ne") {$gl_pocetzastupcu += 1}; |
|
|
|
print "<a href=\"http://ripe.czfree.net/index.php?action=object.search¶mvalue=$gl_rozsah\">$gl_as</a> ma mit @gl_rozsah a nalezeno: "; |
|
print "<a href=\"http://ripe.czfree.net/index.php?action=object.search¶mvalue=$gl_rozsah\">$gl_as</a> (historie "; |
| |
|
print "<a href=\"http://sitelka.jablonka.cz/hotsanic/bgp/$gl_bgp.html\">bgp</a> "; |
| |
|
print "<a href=\"http://sitelka.jablonka.cz/hotsanic/ping/$gl_ping.html\">pingu</a>) ma mit $gl_rozsah a nalezeno: "; |
|
|
|
foreach $gl_routa (@gl_rozsah) |
|
foreach $gl_routa (@gl_rozsah) |
{ |
|
{ |
foreach $gl_iprouta (@gl_routy) |
|
foreach $gl_iprouta (@gl_routy) |
{ |
|
{ |
