trinita
IS-IT--Management
- Oct 23, 2006
- 14
Hi all,
I've got a problem with fibre channel switch. I'd like to create a script that get login with a switch, interrogate it, and than archive the information into a file.
It sounds like just a piece of cake but my script doesn't work!
I tried with these module:
Net::Telnet
Net::Telnet::Brcd (for brocade switch)
Anyone of you have never tackeld this problem? Have you got a script as example?
I found these:
#!/usr/bin/perl
use Net::Telnet::Brcd;
%wwn_port=();
my $sw = new Net::Telnet::Brcd ();
my $sw_name='10.64.171.51';
my $user='admin';
my $pass='password';
$sw->connect($sw_name,$user,$pass) or die "\n";
%wwn_port = $sw->switchShow(-bywwn=>1);
my @lines = $sw->cmd("configShow");
print @lines;
---------------------------------
But the switch answers with strange characters
Thanks in advance for any suggestion
Ale
-
I've got a problem with fibre channel switch. I'd like to create a script that get login with a switch, interrogate it, and than archive the information into a file.
It sounds like just a piece of cake but my script doesn't work!
I tried with these module:
Net::Telnet
Net::Telnet::Brcd (for brocade switch)
Anyone of you have never tackeld this problem? Have you got a script as example?
I found these:
#!/usr/bin/perl
use Net::Telnet::Brcd;
%wwn_port=();
my $sw = new Net::Telnet::Brcd ();
my $sw_name='10.64.171.51';
my $user='admin';
my $pass='password';
$sw->connect($sw_name,$user,$pass) or die "\n";
%wwn_port = $sw->switchShow(-bywwn=>1);
my @lines = $sw->cmd("configShow");
print @lines;
---------------------------------
But the switch answers with strange characters
Thanks in advance for any suggestion
Ale
-