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