--- loncom/lcnfson 2000/11/02 22:29:39 1.3 +++ loncom/lcnfson 2010/10/12 10:26:50 1.6 @@ -1,10 +1,9 @@ #!/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. @@ -39,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")) {