[staf-users] Help Needed for STAF / PERl with Red Hat Linux9

[Neeraja J. <nee...@mi...>]

Hello,

Currently , I using Red Hat Linux 9, OS, STAF support language perl v =
5.6.
When I execute the below code , I am getting the following  Error

" Error starting the NetServer process, RC: 10
Error starting the NetPerf process, RC: 10"

Actually my main program NetMain.pl calls netserver.pl and netclient.pl =
(sub
modules). If , I run this below command, it fails

[root@Akash bin]# staf local process start command perl -I
//home//neeraja//staf//bin //home//neeraja//staf/bin//netserver.pl -P
//home//neeraja//NetPerf  (This is what I am doing in my program. =
Finally it
will  form this command and execute )
=20
I am unable to find out why , when I add STAF it fails. Can you please =
help
me out.

Below is the code------------------------------------------------------

for($i =3D 0;$i<$n;$i++)
        {
                for($j=3D0;$j<$n;$j++)
                {
                        $netclientcmd=3D"netclient.pl -s =
@sendSize[$i]$Unit[1]
-S @receiveSize[$j]$Unit[1]";
                        if ($options{U})
                        {
                                $netclientcmd=3D$netclientcmd." -T =
$test";
                        }
                        if ($options{l})
                        {
                                $netclientcmd=3D$netclientcmd." -l
$options{l}";
                        }
                        if ($options{S})
                        {
                                $netservercmd =3D"netserver.pl -P =
@RemNetPath";
                                $PerlCmd=3D"perl =
-I//home//neeraja//staf//bin
//home//neeraja//staf//bin//".$netservercmd;
                                #print ("$PerlCmd\n");
                                $result =3D
$handleNetServer->submit("@RemoteHostAddr","PROCESS","start command
".$PerlCmd);
                                if ($result->{rc} !=3D $STAF::kOk)
                                {
                                        print "Error starting the =
NetServer
process, RC: $result->{rc}\n";
                                }
                                $netclientcmd=3D$netclientcmd." -P =
@LocNetPath
-A @RemoteHostAddr";
                                $PerlCmd=3D"perl =
-I//home//neeraja//staf//bin
//home//neeraja//staf//bin//".$netclientcmd;
                                $result =3D
$handleNetClient->submit("@LocalHostAddr","PROCESS","start command
".$PerlCmd." STDOUTAPPEND ".$logpath." wait");
                                 if ($result->{rc} !=3D $STAF::kOk)
                                 {
                                        print "Error starting the =
NetPerf
process, RC: $result->{rc}\n";
                                 }
-------------------------------------------------------------------------=
----
-------------------------------

Thanks a lot in advance.

Regards,
Neeraja