use strict;
use lib '../include';
+use Data::Dumper;
+
use nms qw(switch_connect switch_exec);
use ios;
#nms::ios_close($t);
-my $one = 1;
+my $one = 0;
my $switchip;
-$switchip = "87.76.250.226" if $one;
-#$switchip = "192.168.2.150" if $one;
+#$switchip = "87.76.250.226" if $one;
+$switchip = "192.168.2.150" if $one;
$switchip = "192.168.1.1" unless $one;
my $switch = switch_connect($switchip);
print "Sending: '$_'\n";
switch_exec($_, $switch);
}
-$switch->close();
my $cmd;
$cmd = "ip ifconfig swif0 192.168.1.1/24" if $one;
print "Sending '$cmd'\n";
my $pid = fork();
if ($pid == 0) {
+ print "Sending ifconfig.. $cmd\n";
switch_exec($cmd, $switch);
exit 0;
} else {
+ #switch_exec($cmd, $switch, 1);
print "Sleeping...\n";
sleep 1;
}
print "Reconnecting... ";
$switchip = "192.168.1.1" if $one;
$switchip = "192.168.2.150" unless $one;
-do {
- print "Connecting to: $switchip\n";
+autoflush STDOUT 1;
+print "Connecting to: $switchip...\n";
+my $i = 1;
+while(1) {
$switch = switch_connect($switchip);
- print (defined($switch)? $switch : "foo") ." <---- switch\n";
+ #print (defined($switch)? $switch : "foo") ." <---- switch\n";
if (defined($switch) || $switch) {
last;
}
- print ".";
+ printf("Waited $i seconds...\r");
+ $i++;
sleep 1;
-} while (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();