-);
-
-warn "# row = ",dump $row;
-
-return $row;
-
-} # sub
-
-
-sub logout {
- my ($ip) = @_;
- my $t = $telnet->{$ip} || die "no $ip telnet in ",dump($telnet);
-
- warn "logout $ip";
- $t->print('logout');
- $t->waitfor('/:/');
- $t->print('y');
-
-}
-
-sub DESTROY {
- warn "# telnet = ",dump($telnet);
- logout($_) foreach keys %$telnet;
-}