Automating user interaction

[dwij2u]

Hi All,

Can someone guide me on how we can modify the below script so that no user interaction is required to feed the password when the script is run, current scenario is like if I try to login to a different user from a user other than root it needs user interaction for that, but it should not ask for the user interaction and it should get the password from the script itself.

This is the script to modify;and it prompts me for the password as below;

$ ./ora1.pl
Data base is down
Password:

#!/usr/bin/perl
 
use Log;
use testDMC;
 
my $logFH;
my $testDMCRef;
my %parameterHash;
my $oracle_passwd;
 
$logFH = Log->new(1,"log/masterDMCTest.log");
$testDMCRef = testDMC->new($logFH);
 
my $var = " ps -ef | grep ora_smon_dmc| grep -v \"grep\" ";
my $execcommand = qx/$var/;
if ($execcommand) {
    print "Database is up\n";
} else {
    print "Data base is down\n";
    #system("su - oracle");
 
    %parameterHash = $testDMCRef->ReadTestDmcConfig();
    $oracle_passwd = $parameterHash{ORACLEUSRPWD};
    system("su - oracle");
    #print "\n$oracle_passwd\n";
    #print "\nhello\n";
    #system("sqlplus /nolog");
}
 

[miller]

To automate user interation you will need to use the Expect module instead of the system command.

cpan Expect.

- Miller