10 use Net::Telnet::Cisco;
17 require "../include/config.pm";
19 require "../include/config.local.pm";
26 $t->cmd("show ip route".($net ? " $net" : '')) or return 0;;
31 my $ios_server = "noc-gw.net.tg07.gathering.org";
34 #my $ios = nms::ios_connect($ios_server, $nms::config::ios_user, $nms::config::ios_pass)
35 # or die "Unable to connect to cisco";
37 my $ios = Net::Telnet::Cisco->new(Host => $ios_server,
39 Prompt => '/[^\s\(]+(\([^\(]\)){0,1}[#>]/');
40 $ios->login($nms::config::ios_user, $nms::config::ios_pass);
43 #nms::ios_enable($ios);
45 #nms::ios_getroute($ios, "192.168.1.0");
48 #nms::ios_close($ios);
51 $ios->cmd("terminal length 0");
53 #my @routes = $ios->cmd("show ip route");
55 die "Already routed up 192.168.1.0/24" if (ios_getroute($ios, "192.168.1.0") == 1);
60 $ios->cmd("int vlan $vlannumber");
61 $ios->cmd("ip add 192.168.1.254 255.255.255.0 secondary");
65 my $zyxeloldip = "192.168.1.1";
71 my $p = Net::Ping->new();
72 printf "Waiting for zyxel to come up...\n";
74 last if $p->ping($zyxeloldip);
78 print "Zyxel is alive..\n";
81 system("perl ./zyxelng.pl 192.168.1.1 192.168.2.1");
86 $ios->cmd("int vlan $vlannumber");
87 $ios->cmd("no ip add 192.168.1.254 255.255.255.0 secondary");