loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

-version 1.138, 2003/08/22 16:07:11
+version 1.139, 2003/08/25 15:33:47
  Line 818  sub make_new_child {
  			     my $salt=time;
                               $salt=substr($salt,6,2);
  			     my $ncpass=crypt($npass,$salt);
-                              { my $pf = IO::File->new(">$passfilename");
+                              {
-  	  		       print $pf "internal:$ncpass\n"; }
+ 				 my $pf;
- 			     &logthis("Result of password change for $uname: pwchange_success");
+ 				 if ($pf = IO::File->new(">$passfilename")) {
-                              print $client "ok\n";
+ 				     print $pf "internal:$ncpass\n";
+ 				     &logthis("Result of password change for $uname: pwchange_success");
+ 				     print $client "ok\n";
+ 				 } else {
+ 				     &logthis("Unable to open $uname passwd to change password");
+ 				     print $client "non_authorized\n";
+ 				 }
+ 			     }
                             } else {
                               print $client "non_authorized\n";
                             }