The start of the cisco part of zyxelNG.

diff --git a/clients/ciscong.pl b/clients/ciscong.pl
new file mode 100644 (file)
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();
+
+