--- loncom/lcpasswd	2002/09/16 13:27:40	1.17
+++ loncom/lcpasswd	2002/09/19 02:02:59	1.18
@@ -1,5 +1,4 @@
 #!/usr/bin/perl
-
 # The Learning Online Network with CAPA
 #
 # lcpasswd - LON-CAPA setuid script to synchronously change all
@@ -14,7 +13,7 @@
 # YEAR=2002
 # 02/19 Matthew Hall
 #
-# $Id: lcpasswd,v 1.17 2002/09/16 13:27:40 foxr Exp $
+# $Id: lcpasswd,v 1.18 2002/09/19 02:02:59 foxr Exp $
 ###
 
 ###############################################################################
@@ -95,6 +94,8 @@ delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}
 # Do not print error messages
 my $noprint=1;
 
+print "In lcpasswd" unless $noprint;
+
 # ----------------------------- Make sure this process is running from user=www
 my $wwwid=getpwnam('www');
 &disable_root_capability;
@@ -155,10 +156,10 @@ unless(getpwnam($safeusername)) {
     unlink('/tmp/lock_lcpasswd');
     exit 5;
 }
-
 &enable_root_capability;
 ($>,$<)=(0,0);
-print "Now root, -invoking pwchange with $safeusername $password1"
+
+print "Now $> , $< , -invoking pwchange with $safeusername $password1"
     unless $noprint;
 open OUT,"|pwchange $safeusername";
 print OUT $password1;
@@ -202,8 +203,8 @@ exit 0;
 # ---------------------------------------------- have setuid script run as root
 sub enable_root_capability {
     if ($wwwid==$>) {
-	($<,$>)=($>,$<);
-	($(,$))=($),$();
+	($<,$>)=($>,0);
+	($(,$))=($),0);
     }
     else {
 	# root capability is already enabled