#!/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");
      print "Ready for next lb vserver? (y/n): ";
      chomp(my $ans = <STDIN>);
      if ($ans=~/y|Y/) {
        next;
      } else {
           last;
         }
}



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

print "\n\n\nEnd of line.\n\n\n";

close   LBVSERVERS;
close   CSVSERVERS;