From: Eirik Nygaard <eirikn@space>
Date: Tue, 3 Apr 2007 13:37:08 +0000 (+0200)
Subject: The cisco part is starting to work.
X-Git-Url: https://git.sesse.net/?p=nms;a=commitdiff_plain;h=34ee98114994726fc0fc778df8b00126d937100f

The cisco part is starting to work.
---

diff --git a/clients/ciscong.pl b/clients/ciscong.pl
index 8b657f1..80d67dd 100644
--- 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();