Skripty - Skript na vypisanie IP smerovanych cez SIX Robert - 15.12.2005 - 00:04 Post subject: Skript na vypisanie IP smerovanych cez SIX
Velmi stary skript, ktory stale funguje, ale vykonanie trva velmo dlho (15-20min).
#!/usr/bin/perl
require 5.004;
use IO::Socket;
sub GetNeighbors {
my $remote_host = "www.six.sk";
my $remote_port = 80;
my $socket = IO::Socket::INET->new(PeerAddr => $remote_host,
PeerPort => $remote_port,
Proto => "tcp",
Type => SOCK_STREAM)
or return -1;
# collect all neighbors
@neighbors = GetNeighbors();
# collect all routes through the neighbors
foreach $neighbor (@neighbors) {
push @groutes, GetRoutes($neighbor);
}
# print out all the routes
foreach $route (@groutes) {
print "$route\n";
}
andyproxis - 17.05.2008 - 10:39 Post subject:
vie mi niekto potvrdit, ci tento skript este bezi ? resp. ma niekto lepsie riesenie ?
potrebujem mat aktualnu databazu ip rozsahov smerovanych do sixu - aby som vedel znackovat packety podla toho ci su SIX resp. zbytok internetu...