#!/usr/bin/perl 

##################################################################  
# This script probes the /opt/iir/iirserver/etc/config.iir file  #
# and finds the probe where the RAID Configuration Services were #
# started. Then it invokes either netscape or lynx               #
##################################################################

$CONFIG_FILE = "/opt/iir/iirserver/etc/config.iir";
$PROGRAM = "/opt/iir/bin/irconsole.sh";

open(CONF,$CONFIG_FILE) or die "Can't open config file : $!\n";


while($line = <CONF>) {
chomp($line);
($PARAMETER, $VALUE) = split("=",$line);

if($PARAMETER eq "PORT")
{

print "hello";
print $PROGRAM;
print $VALUE;
exec($PROGRAM , $VALUE); 
#`$PROGRAM  $VALUE &`; 


} #end of if

} # end of while

