loncom/lcnfsoff - diff

Return to lcnfsoff CVS log

Up to [LON-CAPA] / loncom

version 1.1, 2000/11/02 22:29:39	version 1.4, 2010/10/12 10:19:18
Line 1	Line 1
#!/usr/bin/perl	#!/usr/bin/perl

# Scott Harrison
# SH: November 2, 2000

use strict;	use strict;

	# $Id$

# This script is a setuid script (chmod 6755; chown root:root).	# This script is a setuid script (chmod 6755; chown root:root).
# It disables nfs/portmap services for a specific user at	# It disables nfs/portmap services for a specific user at
# a specific ip address.	# a specific ip address.
Line 40 if ($wwwid!=$<) {	Line 39 if ($wwwid!=$<) {
print("User ID mismatch. This program must be run as user 'www'\n") unless $noprint;	print("User ID mismatch. This program must be run as user 'www'\n") unless $noprint;
exit 1;	exit 1;
}	}
&disable_root_capability;

# Handle case of another lcnfs process	# Handle case of another lcnfs process
unless (&try_to_lock("/tmp/lock_lcnfs")) {	unless (&try_to_lock("/tmp/lock_lcnfs")) {