>> Real server 144 -
[download]

#!/usr/bin/perl -w

# Script using Expect to roll  servers in PHX in
# the pop in and out of the VIP

use strict;
use warnings;
use Expect;

# Setup our reusable varibles here ( host password etc )

my $telnet  = '/bin/telnet';
my $host    = "myhost.net";
my $passwd  = "mypass";
my $timeout = '10';
my $infocmd = '/info/slb/dump';
my $rcmd    = '/cfg/slb/real';
my $apply   = 'apply';
my $save    = 'save';
my $yes     = 'y';
my $no      = 'n';
my $exit    = 'exit';
my $serverL = '/var/tmp/server_list_vip';

# interact a bit till I get the CGI wrapper figured out

print "Welcome to the PHX vip roll-in/out script\n
       I will show you a list of servers you can roll in and out of th
+e vip\n
       choose the correct number for the given server\n
       EXAMPLE: If you want to roll newsfe01 in/out in the list you wi
+ll see\n
       144: newsfe01, so the correct number is 144\n";

open(IN,"$serverL");
chomp(my @list = <IN>);
close(IN);

foreach my $line(@list) {
   print "$line\n";
}

print "Choose the server number now:\n";
chomp(my $number = <STDIN>);


print "What action do you want to take?\n
       Roll server into production = ena\n
       Roll server out of production = dis\n";

chomp(my $action = <STDIN>);



my $exp = Expect->spawn("$telnet $host")
          or die "Cannot spawn telnet to $host: $!\n";;

my $spawn_ok;

if($action =~ m/dis/) {
my $func = 'dis';
$exp->expect($timeout,
               [qr'Enter password: $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$passwd\r";
                   #$fh->send("$passwd\n");
                   exp_continue;}
               ],
               [qr'>> Main- $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$rcmd $number/$func\r";
                   sleep 2;
                   exp_continue;
                 }],
[download]

               [qr'>> Real server $number - $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$apply\r";
                   sleep 2;
                   exp_continue;
                 }],
               [qr'>> Real server $number - $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$save\r";
                   sleep 2;
                   exp_continue;
                 }],
               [qr'Confirm saving to FLASH [y/n]: $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$yes\r";
                   sleep 2;
                   exp_continue;
                 }],
               [qr'>> Real server $number - $',
                 sub{
                   $spawn_ok = 1;
                   my $fh = shift;
                   print $fh "$exit\r";
                   exp_continue;
                 }]
                 );
}
[download]