version 1.54, 2008/10/29 18:34:06 |
version 1.56, 2009/07/08 18:16:41 |
|
|
package Net::Telnet::Trango; |
package Net::Telnet::Trango; |
|
|
# $RedRiver: Trango.pm,v 1.53 2008/10/29 17:27:31 andrew Exp $ |
# $RedRiver: Trango.pm,v 1.55 2009/07/08 17:00:55 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
use base 'Net::Telnet'; |
use base 'Net::Telnet'; |
|
|
|
|
=cut |
=cut |
|
|
our $VERSION = '0.01'; |
our $VERSION = '0.02'; |
|
|
my $EMPTY = q{}; |
my $EMPTY = q{}; |
my $SPACE = q{ }; |
my $SPACE = q{ }; |
|
|
} |
} |
|
|
my $new_mac = $mac; |
my $new_mac = $mac; |
$new_mac =~ s/[^0-9A-Fa-f]//; |
$new_mac =~ s/[^0-9A-Fa-f]//g; |
unless ( length $new_mac == 12 ) { |
unless ( length $new_mac == 12 ) { |
$self->last_error("Invalid MAC '$mac'"); |
$self->last_error("Invalid MAC '$mac'"); |
return; |
return; |