Return to lcnfson CVS log | Up to [LON-CAPA] / loncom |
version 1.2, 2000/11/02 22:05:02 | version 1.4, 2003/02/03 18:03:52 |
---|---|
Line 1 | Line 1 |
#!/usr/bin/perl | #!/usr/bin/perl |
# Scott Harrison | |
# SH: November 2, 2000 | |
use strict; | use strict; |
# 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; |