--- loncom/lcnfsoff 2000/11/02 22:29:39 1.1 +++ loncom/lcnfsoff 2010/10/12 10:19:18 1.4 @@ -1,10 +1,9 @@ #!/usr/bin/perl -# Scott Harrison -# SH: November 2, 2000 - use strict; +# $Id: lcnfsoff,v 1.4 2010/10/12 10:19:18 foxr Exp $ + # This script is a setuid script (chmod 6755; chown root:root). # It disables nfs/portmap services for a specific user at # a specific ip address. @@ -40,7 +39,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")) {