--- loncom/pwchange	2002/09/16 13:27:40	1.7
+++ loncom/pwchange	2002/09/19 02:02:59	1.8
@@ -10,20 +10,24 @@
 # YEAR=2002
 # 02/19 Matthew Hall
 #
-# $Id: pwchange,v 1.7 2002/09/16 13:27:40 foxr Exp $
+# $Id: pwchange,v 1.8 2002/09/19 02:02:59 foxr Exp $
 ###
 
 use strict;
 my $noprint = 1;
 
+
+
+print "In pwchange\n" unless $noprint;
+print "Real uid = $< effective uid = $> \n" unless $noprint;
 # ------------------------------------------------------------------ Untainting
 $ENV{'PATH'}='/bin:/usr/bin'; # Nullify path information.
 delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; # nullify potential taints
 
 # ---------------------------- Make sure this process is running from user=root
-my $wwwid=getpwnam('www');
-if (0!=$<) {
-    print "Username not www" unless $noprint;
+
+if (0 != $<) {
+    print "Username not root" unless $noprint;
    exit 1;
 }
 # ----------------------------------------------- If not running setuid as root