version 1.11, 2006/08/23 01:37:20 |
version 1.12, 2006/08/31 22:29:53 |
|
|
package Net::Telnet::Trango;
|
package Net::Telnet::Trango;
|
# $RedRiver: Trango.pm,v 1.10 2006/07/31 22:16:52 andrew Exp $
|
# $RedRiver: Trango.pm,v 1.11 2006/08/23 00:37:20 andrew Exp $
|
use strict;
|
use strict;
|
use warnings;
|
use warnings;
|
use base 'Net::Telnet';
|
use base 'Net::Telnet';
|
|
|
$su . ' ' .
|
$su . ' ' .
|
$new_pass . ' ' .
|
$new_pass . ' ' .
|
$new_pass,
|
$new_pass,
|
|
expect => $success,
|
|
);
|
|
}
|
|
|
|
=pod
|
|
|
|
=item su_ipconfig
|
|
|
|
C<su_ipconfig( 'suid', 'new_ip', 'new_subnet', 'new_gateway' )>
|
|
|
|
=cut
|
|
|
|
sub su_ipconfig
|
|
{
|
|
my $self = shift;
|
|
|
|
my $suid = shift;
|
|
my $new_ip = shift;
|
|
my $new_subnet = shift;
|
|
my $new_gateway = shift;
|
|
|
|
return undef unless $suid =~ /^\d+$/;
|
|
return undef unless $new_ip;
|
|
return undef unless $new_subnet;
|
|
return undef unless $new_gateway;
|
|
|
|
# su ipconfig <suid> <new ip> <new subnet> <new gateway>
|
|
return $self->cmd(String => 'su ipconfig ' .
|
|
$suid . ' ' .
|
|
$new_ip . ' ' .
|
|
$new_subnet . ' ' .
|
|
$new_gateway,
|
expect => $success,
|
expect => $success,
|
);
|
);
|
}
|
}
|