-Attempt to lift restrictions on intra-service node that were imposed to mitigate DB handles

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4143 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2009-09-15 20:58:45 +00:00
parent b421ab3302
commit 9076c195d1

View File

@ -1067,9 +1067,9 @@ sub dispatch_request {
foreach $xcatdest (@xcatdests) {
my $dlock;
if ($xcatdest and thishostisnot($xcatdest)) {
mkpath("/var/lock/xcat/"); #For now, limit intra-xCAT requests to one at a time, to mitigate DB handle usage
open($dlock,">","/var/lock/xcat/dispatchto_$xcatdest");
flock($dlock,LOCK_EX);
#mkpath("/var/lock/xcat/"); #For now, limit intra-xCAT requests to one at a time, to mitigate DB handle usage
#open($dlock,">","/var/lock/xcat/dispatchto_$xcatdest");
#flock($dlock,LOCK_EX);
$ENV{XCATHOST} = ($xcatdest =~ /:/ ? $xcatdest : $xcatdest.":3001" );
$$progname.=": connection to ".$ENV{XCATHOST};
my $errstr;
@ -1080,8 +1080,8 @@ sub dispatch_request {
if ($@) {
$errstr=$@;
}
unlink("/var/lock/xcat/dispatchto_$xcatdest");
flock($dlock,LOCK_UN);
#unlink("/var/lock/xcat/dispatchto_$xcatdest");
#flock($dlock,LOCK_UN);
if ($errstr) {
if ($numdests == 1) {
dispatch_callback({error=>["Unable to dispatch command to ".$ENV{XCATHOST}.", command will not make changes to that server ($errstr)"],errorcode=>[1]});