#!/usr/bin/perl -w

$ENV{'RTSERVERS'} = 'tcp:dspmon03.tdc.cingular.net:2059,tcp:dspmon01.tdc.cingular.net:2059';

use Expect;
use strict;

$Expect::Log_Stdout=1;
$Expect::Debug=3;
$Expect::Exp_Internal=1;


my $cmd = "/opt/app/bmcprod/common/bmc/bin/solaris-2-10-sparc/pslv -a "-id DSPMON03" ./cs_get_agent_info.asm";

new Expect();

(my $rtcloud = Expect->spawn("$cmd")) || die "Couldn't spawn $cmd, $!";

unless ($rtcloud->expect(30,"Enter a user name for the service 'PATROL_CSERVER_DSPMON03' :")) {
  die "Never got username prompt from $cmd, ".$rtcloud->exp_error()."\n";
}

print $rtcloud "b1patrol\r";

unless ($rtcloud->expect(30,"Password: ")) {
  die "Never got Password prompt from $cmd, ".$rtcloud->exp_error()."\n";
}

print $rtcloud "xxxxxxxx\r";