#!/usr/bin/perl
#
use strict;
#use warnings;
#
#
use Net::SSH::Perl;
my $user="bluethundr";
my $pass="secret";
my $dir="$ENV{HOME}/data";
open (LBVSERVERS), '<', "$dir/lb-vserver" or die "Couldn't open file: $!";
open (CSVSERVERS), '<', "$dir/cs-vserver" or die "Couldn't open file: $!";


my $ssh = Net::SSH::Perl->new("10.50.0.1");
$ssh->login("$user", "$pass");

print "\n\n\n\n\n**********LB VSERVERS**********\n\n\n\n\n";  
while (my $line = <LBVSERVERS>) {
      chomp $line;
      my ($number,  $lbvserver) = split(/\s+/, $line);
      print "show lb vserver $lbvserver\n";
      $ssh->cmd("show lb vserver $lbvserver");
      chomp(my $ans = <STDIN>);
      print "Ready for next lb vserver? (y/n): ";
      if ($ans=~/y|Y/) {
        next;
      } else {
         chomp(my $done = <STDIN>);
         print "Quit? (y/n): ";
         if($ans=~/y|Y/) {
           last;
         } else { 
         next;
         }
       }
         
      
      
print "\n\n\n\n\n**********CS VSERVERS**********\n\n\n\n\n";
while (my $line = <CSVSERVERS>) {
      chomp $line;
      my ($f1,  $f2, $f3, $csvserver) = split(/\s+/, $line);
      print "show cs vserver $csvserver";
      $ssh->cmd("show cs vserver $csvserver");
      print "Ready for next cs vserver? (y/n): ";
      if ($ans=~/y|Y/) {
        next;
      } else {
         chomp(my $done = <STDIN>);
         print "Quit? (y/n): ";
         if($ans=~/y|Y/) {
           last;
         } else { 
         next;
         }
       }
 }
}


close   LBVSERVERS;
close   CSVSERVERS;