#!perl -w

use CGI;
$c = new CGI();
print $c->header();

$| = 1;

### set up an alarm
	$timeout = 7*60; # apache normally times out after 5 min
	print "<!--\n";  # hide output
	$SIG{ALRM} = sub{ print ".\n"; alarm($timeout); };
	# the timeout will send something to the browser every
	# now and then to keep it from timing out

	alarm($timeout);
	print "Installing Dell Open Manage";
	&install_open_manage();
	alarm(0);
	print "-->\n";  # don't need to hide output anymore

        print $result;
        
        <---- do other stuff here ---->

        exit(); 

sub install_open_manage {
	$host = "hostA";


	print "\n$count: Checking for local RAC configuration.<br>";
		sleep(1);
		$result = `psexec \\\\$host -u location\\admin -p password \\\\host01\\OpenManage\\setup_sibar.bat 2>&1`;
		return $result;
}