From c87b3d4956d0c04a3eb61aa7343974e62d5fe60f Mon Sep 17 00:00:00 2001 From: "Eirik A. Nygaard" Date: Tue, 3 Apr 2007 14:41:24 +0200 Subject: [PATCH] The start of the cisco part of zyxelNG. --- clients/ciscong.pl | 73 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 clients/ciscong.pl diff --git a/clients/ciscong.pl b/clients/ciscong.pl new file mode 100644 index 0000000..8b657f1 --- /dev/null +++ b/clients/ciscong.pl @@ -0,0 +1,73 @@ +#!/usr/bin/perl +# +# + +use warnings; +use strict; + +use lib '../include'; + +use Net::Telnet::Cisco; + +use Data::Dumper; + + +BEGIN { + require "../include/config.pm"; + eval { + require "../include/config.local.pm"; + }; +} + +sub ios_getroute { + my ($t, $net) = @_; + + $t->cmd("show ip route".($net ? " $net" : '')) or return 0;; + + return 1; +} + +my $ios_server = "noc-gw.net.tg07.gathering.org"; +my $vlannumber = 16; + +#my $ios = nms::ios_connect($ios_server, $nms::config::ios_user, $nms::config::ios_pass) +# or die "Unable to connect to cisco"; + +my $ios = Net::Telnet::Cisco->new(Host => $ios_server, + Errmode => 'return', + Prompt => '/[^\s]+(\([^\(]\)){0,1}[#>]/'); +$ios->login($nms::config::ios_user, $nms::config::ios_pass); +$ios->enable; + +#nms::ios_enable($ios); +#$ios->cmd(); +#nms::ios_getroute($ios, "192.168.1.0"); +#$ios->cmd(""); + +#nms::ios_close($ios); + +# Disable paging +$ios->cmd("terminal length 0"); + +#my @routes = $ios->cmd("show ip route"); + +die "Already routed up 192.168.1.0/24" if (ios_getroute($ios, "192.168.1.0") == 0); + + + +$ios->cmd("conf t"); +$ios->cmd("int vlan $vlannumber"); +$ios->cmd("ip add 192.168.1.254 255.255.255.0 secondary"); +$ios->cmd("exit"); +$ios->cmd("exit"); + +### Do things + +$ios->cmd("conf t"); +$ios->cmd("int vlan $vlannumber"); +$ios->cmd("ip add 192.168.1.254 255.255.255.0 secondary"); +$ios->cmd("no ip add 192.168.1.254 255.255.255.0 secondary"); + +$ios->close(); + + -- 2.39.2