-Increase db worker queue depth to avoid fatal table access errors

-Increase number of xCAT process slots to 512 from 16
-Increase Listen queue depth of xCAT to 8192 (needs to have proc value for somaxconn upped to actually make a difference)


git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4027 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

perl-xCAT/xCAT/Table.pm

@@ -107,7 +107,7 @@ sub init_dbworker {
         };
         unlink($dbsockpath);
         umask(0077);
-        $dbworkersocket = IO::Socket::UNIX->new(Local => $dbsockpath, Type => SOCK_STREAM, Listen => 3);
+        $dbworkersocket = IO::Socket::UNIX->new(Local => $dbsockpath, Type => SOCK_STREAM, Listen => 8192);
         unless ($dbworkersocket) {
             die $!;
         }

xCAT-server/sbin/xcatd

@@ -28,7 +28,7 @@ use Fcntl ":flock";
 use xCAT::Client qw(submit_request);
 my $clientselect = new IO::Select;
 my $sslclients = 0; #THROTTLE
-my $maxsslclients = 16; #default
+my $maxsslclients = 512; #default
 
 sub xexit {
    while (wait() > 0) {
@@ -175,12 +175,12 @@ if ($inet6support) {
   $socket = IO::Socket::INET6->new(LocalPort=>$sport,
                                      Proto    => 'tcp',
                                      ReuseAddr => 1,
-                                     Listen => 64);
+                                     Listen => 8192);
 } else {
 	 $socket = IO::Socket::INET->new(LocalPort=>$sport,
                                      Proto    => 'tcp',
                                      ReuseAddr => 1,
-                                     Listen => 64);
+                                     Listen => 8192);
 }
 
   unless ($socket) {
@@ -538,13 +538,13 @@ my $listener;
 if ($inet6support) {
     $listener = IO::Socket::INET6->new(
         LocalPort => $port,
-        Listen => 64,
+        Listen => 8192,
         Reuse => 1,
         );
 } else {
     $listener = IO::Socket::INET->new(
         LocalPort => $port,
-        Listen => 64,
+        Listen => 8192,
         Reuse => 1,
         );
 }