#!/usr/bin/perl

use strict;
use warnings;

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: $!";

print "\n\n\n\n\n**********LB VSERVERS**********\n\n\n\n\n";
while ( my $line = <DIR> ) {
    chomp $line;
    my ( $number, $dir ) = split( /\s+/, $line );
    print "show lb vserver $lbvserver\n";
    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 = <DIR> ) {
    chomp $line;
    my ( $number, $dir ) = split( /\s+/, $line );
    print "show lb vserver $csvserver\n";
    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;