![[BACK]](/icons/back.gif){kind=icon}
Return to lcpasswd CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
Return to lcpasswd CVS log | Up to [LON-CAPA] / loncom |
| version 1.19, 2003/02/03 18:03:52 | version 1.20, 2005/03/26 20:40:18 |
|---|---|
| Line 159 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; |