[ LUGOS ] perl skripta

[Bostjan Muller]

* On 18-08-00 at 13:15 Borut Mrak (borut.mrak na ijs.si) wrote:
+----Here quoted text begins----+
> sicer pa to ni najboljsi nacin za to, kar zelis doseci (vsaj meni se tako
> zdi). Za spreminjaje passwordov za UW-imap server uporabljam jaz nekaj
> takega (z dodanimi se par dodatnimi sanity checki)
> 
> open PASSWD, "/etc/cram-md5.pwd";
> @passwd=<PASSWD>;
> close PASSWD;
> chomp @passwd;
> 
> foreach $pass (@passwd) {
>   s/^$ARGV[1]\t.*$/$ARGV[1]\t$ARGV[2]/
> }
> 
> open NEWPASSWD, ">/etc/cram-md5.new";
> 
> foreach (@passwd) {
>   print NEWPASSWD "$_\n";
> }
> 
> close NEWPASSWD;
> 
> rename "/etc/cram-md5.new" "/etc/cram-md5.pwd";
[...]

Hmm... meni tole ni delalo - ni zamenjalo gesla, ampak pac dobim se eno
identicno kopijo :(
+----and here the quote ends----+

Bostjan
-- 
   Boštjan M&uuml;ller [NEONATUS], neonatus na gimp.thz.net, http://surf.to/NEONATUS
For my PGP key finger: neonatus na gimp.thz.net, RSA id: 0x90178DBD, ICQ #:7506644
   Celular: +386(0)41243189, Powered by S.u.S.E. Linux 6.2, Student of VFUL
                           Reboot America.