[LON-CAPA-cvs] cvs: doc /install/linux install.pl

[raeburn]

raeburn		Sun Apr 24 22:44:50 2011 EDT

  Modified files:              
    /doc/install/linux	install.pl 
  Log:
  - Do not shutdown memcached daemon started by loncontrol.
  - Include memcached in list of "unnecessary" services not needng start on boot
    (loncontrol takes care of this).
  
  
Index: doc/install/linux/install.pl
diff -u doc/install/linux/install.pl:1.9 doc/install/linux/install.pl:1.10
--- doc/install/linux/install.pl:1.9	Sun Apr 24 01:25:13 2011
+++ doc/install/linux/install.pl	Sun Apr 24 22:44:50 2011
@@ -72,7 +72,7 @@
           &mt('Stopping execution.')."\n";
     exit;
 } else {
-    print LOG '$Id: install.pl,v 1.9 2011/04/24 01:25:13 raeburn Exp $'."\n";
+    print LOG '$Id: install.pl,v 1.10 2011/04/24 22:44:50 raeburn Exp $'."\n";
 }
 
 #
@@ -678,10 +678,16 @@
             chomp($daemonrunning);
             close(PIPE);
             if ($daemonrunning) {
-                $stopsrvcs{$service} = 1;
+                if ($service eq 'memcached') { 
+                    unless ($daemonrunning =~ m{^www[^/]+\Q/usr/sbin/memcached -m 400 -v\E$}) {
+                        $stopsrvcs{$service} = 1;
+                    }
+                } else {
+                    $stopsrvcs{$service} = 1;
+                }
             }
         }
-    } 
+    }
     return \%stopsrvcs;
 }
 
@@ -1296,7 +1302,7 @@
 if ($callsub{'stopsrvcs'}) {
     &kill_extra_services($distro,$recommended->{'stopsrvcs'});
 } else {
-    &print_and_log(&mt('Skipping stopping unnecessary service ([_1] daemon).',"'cups'")."\n");
+    &print_and_log(&mt('Skipping stopping unnecessary service ([_1] daemons).',"'cups','memcached'")."\n");
 }
 
 my ($have_tarball,$updateshown);