[LON-CAPA-cvs] cvs: loncom / lcuseradd

albertel lon-capa-cvs@mail.lon-capa.org
Wed, 28 Mar 2007 20:43:37 -0000


albertel		Wed Mar 28 16:43:37 2007 EDT

  Modified files:              
    /loncom	lcuseradd 
  Log:
  - some cleanups and informational adds
  
  
Index: loncom/lcuseradd
diff -u loncom/lcuseradd:1.40 loncom/lcuseradd:1.41
--- loncom/lcuseradd:1.40	Tue Dec  5 09:46:04 2006
+++ loncom/lcuseradd	Wed Mar 28 16:43:37 2007
@@ -6,7 +6,7 @@
 #             with adding a user with filesystem privileges (e.g. author)
 #
 #
-# $Id: lcuseradd,v 1.40 2006/12/05 14:46:04 raeburn Exp $
+# $Id: lcuseradd,v 1.41 2007/03/28 20:43:37 albertel Exp $
 ###
 
 ###############################################################################
@@ -357,7 +357,7 @@
 
 if ($pidfile) {
     print "lcuseradd Apache restart\n" unless $noprint;
-    open(PID,<$pidfile);
+    open(PID,"<$pidfile");
     my $pid=<PID>;
     close(PID);
     $pid=~ /(\D+)/;
@@ -379,6 +379,11 @@
     } else {
 	# root capability is already enabled
     }
+    if ($wwwid == $>) {
+	print("Failed to become root\n") unless $noprint;
+    } else {
+	print("Became root\n") unless $noprint;
+    }
     return $>;
 }