NAME

Net::Telnet::Brcd - Contact BROCADE switch with TELNET

SYNOPSIS

use Net::Telnet::Brcd;

my $sw = new Net::Telnet::Brcd;

$sw->connect($sw_name,$user,$pass) or die "\n";

%wwn_port = $sw->switchShow(-bywwn=>1);
my @lines = $sw->cmd("configShow");

DESCRIPTION

This library part is the implementation of BROCADE command with TELNET. The general DOCUMENTATION could be read in Net::Brcd(3) module.

How to implement interface for a specific network PROTOCOL

Youre parent module is Net::Brcd.

use base qw(Net::Brcd Exporter ...);

You have to code the methods :

$obj = Net::<Proto>::Brcd->new();

sub new {
    my ($class)=shift;

    my $self  = $class->SUPER::new();
    bless $self, $class;
    return $self;
}

This method is a relay to the new function of Net::Brcd.

$ok_no_ok = $obj->proto_connect($ip_switch, $user, $pass);

This method is used in the connect function of Net::Brcd. You could store youre specific parameter in object $obj->{PROTO}.

@res = $obj->cmd($cmd);

Execute $cmd and return res as ARRAY without \r\n. The command have to send automatically the command continue (space character) and answer yes for question to be silent as possible.

$obj->sendcmd($cmd);

Execute $cmd without wait for response.

$obj->sendeof();

Stop current command.

$obj->readline();

Read line by line the answer. Return undef for the last line.

SEE ALSO

Brocade Documentation, BrcdAPI, Net::Telnet(3), Net::Brcd(3).

BUGS

...

AUTHOR

Laurent Bendavid, <lbendavid@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2005 by Laurent Bendavid

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.

Version

1.10

History

Created 6/27/2005, Modified 8/17/07 11:10:43