Net::Telnet::Cisco - Revision history

Heth: /* Eksempel 3 - findMacPort */

2009-10-01T08:31:05Z

‎Eksempel 3 - findMacPort

Heth at 08:23, 1 October 2009

2009-10-01T08:23:30Z

Heth: /* Eksempel 2 */

2009-09-30T11:28:04Z

‎Eksempel 2

Heth at 11:27, 30 September 2009

2009-09-30T11:27:49Z

Heth at 11:27, 30 September 2009

2009-09-30T11:27:30Z

Heth: New page: [http://search.cpan.org/dist/Net-Telnet-Cisco/ '''Net::Telnet::Cisco'''] er et Perl modul som er beregnet til at koble op imod Cisco udstyr. == Eksempel 1 == #!...

2009-09-25T05:10:50Z

New page: [http://search.cpan.org/dist/Net-Telnet-Cisco/ '''Net::Telnet::Cisco'''] er et Perl modul som er beregnet til at koble op imod Cisco udstyr. == Eksempel 1 == <source lang=perl> #!...

New page

[http://search.cpan.org/dist/Net-Telnet-Cisco/ '''Net::Telnet::Cisco'''] er et [[Perl]] modul som er beregnet til at koble op imod Cisco udstyr.

== Eksempel 1 ==

<source lang=perl>
#!/usr/bin/env perl

use Net::Telnet::Cisco;

my $backup_host = "201.1.1.201";
my @devices = ( "H1R1", "H1R2", "H1R3", "H2R1", "H2R2", "H2R3", "H3R1", "H3R2",
"H3R3", "H4R1", "H4R2", "H4R3", "H1S", "H2S", "H3S", "H4S", "BGPS" );

foreach (@devices) {

print "Session oprettes til $_\n";

my $session = Net::Telnet::Cisco->new(Host => $_,
Input_log => "/tmp/input-log.$_",
Timeout => 60);

print "der logges ind paa $_\n";
#Login via Telnet med passwordet cisco
if ( ! $session->login('login', 'cisco') ) {
print ("ADVARSEL: Der kunne ikke skabes kontakt til: $_\n");
} else {
# Enable mode (Password cisco)
if ($session->enable("cisco") ) {
@output = $session->cmd("copy running-config tftp:\n$backup_host\n$_-config\n");
print "@output\n"; # Vis på skærmen hvad der sker
} else {
warn "Can't enable: " . $session->errmsg;
}
$session->close;
}
}
</source>
[[Category:Perl]]

@@ Line 215: / Line 215: @@
-sub findMacPort() {
+sub findMacPort {
    my $IP=shift;
    my $PW=shift;

@@ Line 192: / Line 192: @@
 return sprintf " %02i:%02i:%02i %2i. %s %4i ", $hour, $min, $sec,
 	$mday, $mon_abbr[$mon], $year+1900;
+}
 </source>
 [[Category:Perl]]

@@ Line 40: / Line 40: @@
 </source>
 == Eksempel 2 ==
-<source lang=cli>
+<source lang=perl>
 #!/usr/bin/perl -w
 use strict;

← Older revision		Revision as of 11:27, 30 September 2009
Line 1:		Line 1:
		+	__TOC__
	[http://search.cpan.org/dist/Net-Telnet-Cisco/ '''Net::Telnet::Cisco'''] er et [[Perl]] modul som er beregnet til at koble op imod Cisco udstyr.		[http://search.cpan.org/dist/Net-Telnet-Cisco/ '''Net::Telnet::Cisco'''] er et [[Perl]] modul som er beregnet til at koble op imod Cisco udstyr.