diff --git a/scripts/adherents/adh2passwd.pl b/scripts/adherents/adh2passwd.pl index 1d3c6e5660c87f3f4723a6a96391abf7d8bb6d29..0e3bf15a1d0d6caa73cb93a885992bb40ab662de 100755 --- a/scripts/adherents/adh2passwd.pl +++ b/scripts/adherents/adh2passwd.pl @@ -28,7 +28,7 @@ use Getopt::Long; # command line option hash table my %optctl=(); # get command line options -GetOptions(\%optctl,"help!","host=s","db=s","user=s","pass=s","type=s","cotis!"); +GetOptions(\%optctl,"help!","host=s","db=s","user=s","pass=s","type=s","cotis!","crypt!"); if (defined $optctl{'help'}){ &usage(); } @@ -54,13 +54,17 @@ $sth->execute; # get login,pass of each adherents while (my @row = $sth->fetchrow_array ){ + if (defined $optctl{'crypt'}){ + print "$row[0]:",crypt($row[1],join '', ('.', '/', 0..9,'A'..'Z', 'a'..'z')[rand 64, rand 64]),"\n"; + }else{ print "$row[0]:$row[1]\n"; + } } $dbh->disconnect(); sub usage{ - print "$0 [--help] [--host] [--db] [--user] [--pass] [--cotis]\n"; + print "$0 [--help] [--host] [--db] [--user] [--pass] [--cotis] [--crypt]\n"; print " cotis : select only adherents with cotisations up-to-date\n"; print "\n"; exit (1);