loncom/lcnfson - diff

Return to lcnfson CVS log

Up to [LON-CAPA] / loncom

version 1.2, 2000/11/02 22:05:02	version 1.6, 2010/10/12 10:26:50
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).
	# 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	# Usage within code
#	#
# $exitcode=system("/home/httpd/perl/lcuseradd","NAME","IPADDRESS")/256;	# $exitcode=system("/home/httpd/perl/lcuseradd","NAME","IPADDRESS")/256;
Line 34 if ($wwwid!=$<) {	Line 38 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")) {