("$gConfig{$option}" eq "listen"){
deletePIDFile();
createPIDFile();
listenPorts(); -> creates the socket.
Okay. Checketed deletePIDFILE and createPIDFile function, these function are not related.
The problem is in listenPorts.
Possible causes:
fork may have failed.
ports may be busy .(isAnyPortsBusy)
-->
createSocket:
#create socket object
$socket = new IO::Socket::INET (
LocalHost => $server ,
LocalPort => $port,
Proto => 'tcp',
Listen => 5,
Reuse => 1
) ;
if(! defined $socket){
open (FILE, ">> $PIDFILE") or errorOnOpen("ERROR: Could not open $PIDFILE to write");
print FILE "$server:$port:PORTBUSY\n";
close (FILE
if (scalar(@lines) > 0){
foreach my $templine (@lines){
my @temp = split(':',$templine);
my $tempPort = $temp[1];
my $tempPid = $temp[2];
chomp($tempPid);
if ("$tempPid" eq "PORTBUSY"){
logMessage ("\nERROR : port $tempPort is BUSY\n");
$isAnyPortBusy = "true";
So, the decision is made using the txkCloneAcquirePort.txt file.
In this file, there are lines like hostname:port:pid
Please open that file and check that if there are any lines written as busy hostname:port:PORTBUSY for the ports that tried to be open.
So , if there are lines for the ports that adop tries to open / listen,
check that port using netstat -anp |grep <portnumber> and find the process holding that port.
Write me then.
Locked
