--- loncom/lcpasswd	2002/09/19 02:02:59	1.18
+++ loncom/lcpasswd	2005/03/26 20:40:18	1.20
@@ -4,16 +4,10 @@
 # lcpasswd - LON-CAPA setuid script to synchronously change all
 #            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
 # 02/19 Matthew Hall
 #
-# $Id: lcpasswd,v 1.18 2002/09/19 02:02:59 foxr Exp $
+# $Id: lcpasswd,v 1.20 2005/03/26 20:40:18 albertel Exp $
 ###
 
 ###############################################################################
@@ -165,9 +159,9 @@ open OUT,"|pwchange $safeusername";
 print OUT $password1;
 print OUT "\n";
 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 ($?) {
     exit 8;