version 1.18, 2002/09/19 02:02:59
|
version 1.20, 2005/03/26 20:40:18
|
Line 4
|
Line 4
|
# lcpasswd - LON-CAPA setuid script to synchronously change all |
# lcpasswd - LON-CAPA setuid script to synchronously change all |
# filesystem-related passwords (samba, unix, etc) |
# filesystem-related passwords (samba, unix, etc) |
# |
# |
# YEAR=2000 |
|
# 10/27,10/28,10/29,10/30 Scott Harrison |
|
# |
|
# YEAR=2001 |
|
# 10/22,10/23,11/13,11/15 Scott Harrison |
|
# |
|
# YEAR=2002 |
# YEAR=2002 |
# 02/19 Matthew Hall |
# 02/19 Matthew Hall |
# |
# |
Line 165 open OUT,"|pwchange $safeusername";
|
Line 159 open OUT,"|pwchange $safeusername";
|
print OUT $password1; |
print OUT $password1; |
print OUT "\n"; |
print OUT "\n"; |
close OUT; |
close OUT; |
($>,$<)=(0,500); |
($>,$<)=(0,$wwwid); |
|
|
print "pwchange done, back to uid 500" unless $noprint; |
print "pwchange done, back to uid $wwwid" unless $noprint; |
|
|
if ($?) { |
if ($?) { |
exit 8; |
exit 8; |