The cisco part is starting to work.

diff --git a/clients/ciscong.pl b/clients/ciscong.pl
index 8b657f1043d8e287608b2d78b66ec6474d2151ce..80d67ddc1d8918f6ec81ed7f98c851eadda5096c 100644 (file)
--- a/clients/ciscong.pl
+++ b/clients/ciscong.pl
@@ -8,6 +8,7 @@ use strict;
 use lib '../include';
 
 use Net::Telnet::Cisco;
+use Net::Ping;
 
 use Data::Dumper;
 
@@ -35,7 +36,7 @@ my $vlannumber = 16;
 
 my $ios = Net::Telnet::Cisco->new(Host => $ios_server,
                                   Errmode => 'return',
-                                  Prompt => '/[^\s]+(\([^\(]\)){0,1}[#>]/');
+                                  Prompt => '/[^\s\(]+(\([^\(]\)){0,1}[#>]/');
 $ios->login($nms::config::ios_user, $nms::config::ios_pass);
 $ios->enable;
 
@@ -51,7 +52,7 @@ $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);
+die "Already routed up 192.168.1.0/24" if (ios_getroute($ios, "192.168.1.0") == 1);
 
 
 
@@ -61,12 +62,31 @@ $ios->cmd("ip add 192.168.1.254 255.255.255.0 secondary");
 $ios->cmd("exit");
 $ios->cmd("exit");
 
+my $zyxeloldip = "192.168.1.1";
+
 ### Do things
+## ZyxelNG connect
+
+
+my $p = Net::Ping->new();
+printf "Waiting for zyxel to come up...\n";
+while (1) {
+       last if $p->ping($zyxeloldip);
+       print "pinging...\n";
+       sleep 1;
+}
+print "Zyxel is alive..\n";
+$p->close();
+
+system("perl ./zyxelng.pl 192.168.1.1 192.168.2.1");
+
+####
 
 $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->cmd("exit");
+$ios->cmd("exit");
 
 $ios->close();