--- loncom/lcnfson	2000/11/02 22:05:02	1.2
+++ loncom/lcnfson	2010/10/12 10:26:50	1.6
@@ -1,10 +1,14 @@
 #!/usr/bin/perl
 
-# Scott Harrison
-# SH: November 2, 2000
-
 use strict;
 
+# $Id: lcnfson,v 1.6 2010/10/12 10:26:50 foxr Exp $
+
+# This script is a setuid script (chmod 6755; chown root:root).
+# It enables nfs/portmap services for a specific user at
+# a specific ip address.
+
+# Exit codes.  0=ok.  Higher than 0 means something went wrong.
 # Usage within code
 #
 # $exitcode=system("/home/httpd/perl/lcuseradd","NAME","IPADDRESS")/256;
@@ -34,7 +38,7 @@ if ($wwwid!=$<) {
     print("User ID mismatch.  This program must be run as user 'www'\n") unless $noprint;
     exit 1;
 }
-&disable_root_capability;
+
 
 # Handle case of another lcnfs process
 unless (&try_to_lock("/tmp/lock_lcnfs")) {