From: Eirik Nygaard Date: Tue, 3 Apr 2007 13:37:26 +0000 (+0200) Subject: Fix zyxelng. X-Git-Url: https://git.sesse.net/?p=nms;a=commitdiff_plain;h=e8f023b0cb85cb14c3c68dac55bbeb3b080d9f20 Fix zyxelng. --- diff --git a/clients/zyxelng.pl b/clients/zyxelng.pl index c6a0b1e..c3d08fc 100644 --- a/clients/zyxelng.pl +++ b/clients/zyxelng.pl @@ -8,7 +8,7 @@ use lib '../include'; use Data::Dumper; use nms qw(switch_connect switch_exec); -use ios; +#use ios; #my $t = nms::ios_connect('62.148.36.12', 'c', 'c', 'c'); @@ -16,12 +16,22 @@ use ios; #nms::ios_close($t); +my $oldip; +my $newip; +if ($#ARGV < 1) { + die "Foo $#ARGV"; +} + +$oldip = $ARGV[0]; +$newip = $ARGV[1]; + my $one = 0; my $switchip; #$switchip = "87.76.250.226" if $one; -$switchip = "192.168.2.150" if $one; -$switchip = "192.168.1.1" unless $one; +#$switchip = "192.168.2.150" if $one; +#$switchip = "192.168.1.1" unless $one; +$switchip = $oldip; my $switch = switch_connect($switchip); my $cmds1 = <close(); -print "Reconnecting... "; -$switchip = "192.168.1.1" if $one; -$switchip = "192.168.2.150" unless $one; -autoflush STDOUT 1; -print "Connecting to: $switchip...\n"; -my $i = 1; -while(1) { - $switch = switch_connect($switchip); - - #print (defined($switch)? $switch : "foo") ." <---- switch\n"; - if (defined($switch) || $switch) { - last; - } - printf("Waited $i seconds...\r"); - $i++; - sleep 1; -} -print "\n"; -print $switch."\n"; -$cmd = "sys sw vlan1q svlan cpu 248"; -print "Sending '$cmd'\n"; +#print "Reconnecting... "; +##$switchip = "192.168.1.1" if $one; +##$switchip = "192.168.2.150" unless $one; +#$switchip = $newip; +#autoflush STDOUT 1; +#print "Connecting to: $switchip...\n"; +#my $i = 1; +#while(1) { +# $switch = switch_connect($switchip); +# +# #print (defined($switch)? $switch : "foo") ." <---- switch\n"; +# if (defined($switch) || $switch) { +# last; +# } +# printf("Waited $i seconds...\r"); +# $i++; +# sleep 1; +#} +#print "\n"; + +#print $switch."\n"; +#$cmd = "sys sw vlan1q svlan cpu 248"; +#print "Sending '$cmd'\n"; #print "XXX: No we did not..."; #print Dumper($switch->cmd("ip ifconfig")); #print Dumper($switch->cmd("ip route status")); -switch_exec($cmd, $switch, 1); -$switch->close(); +#switch_exec($cmd, $switch, 1); +