Shell Programming and Scripting

ssh ravikus\@server2 /export/home/ravikus/scripts/GetDetailsC2b.sh

#!/usr/local/bin/perl
#DB CONNECTION
use Oraperl;
use DBI;
$ENV{"ORACLE_HOME"} = "/oracle/8.1.7";
$sUsername = "s3\@cdb";
$sPassword = "5e";
$hConnection = &ora_login("", $sUsername, $sPassword)
                               or die "\nCould not Connect DATABASE \n ERROR DETAILS \n *************\n $DBI::errstr";
open (OUTFILE, '>/export/home/ravikus/scripts/in.txt');
$ f1= "/export/home/ravikus/scripts/input.txt";
open(f1) or die("Could not open test file.");
foreach $user (<f1>) {
chop($user);
$hQuery = &ora_open($hConnection, "select name from domain where name='$user' and mail_domain='O' and hostname='www'")
 or die "\nWARNING...Check whether the $user Domain IS EXISTS in C2B DB.\n ERROR DETAILS \n *************\n $DBI::errstr";
@asQueryReturn = &ora_fetch($hQuery);
#if($REFCNT != 1)
#{
if(@asQueryReturn != 0)
{
$nme = $asQueryReturn[0];
#$llg = $asQueryReturn[1];
#$cre = $asQueryReturn[2];
#chop($nme);
#chop($sts);
print OUTFILE "$nme \n";
@asQueryReturn = &ora_fetch($hQuery);
}
#else
#{
#print "The $user USER NAME is not found in C2B Database\n";
#}
#}
&ora_close($hQuery);
} #END FOR LOOP
close(OUTFILE);
close(f1);
&ora_logoff($hConnection);