lainwir3d/dolibarr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

rajout de l'option de cryptage

Browse Source
This commit is contained in:
jlb 2003-06-20 11:08:32 +00:00
parent 9be4f116a6
commit c5eccdc2bc
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
scripts/adherents/adh2passwd.pl
View File

@ -28,7 +28,7 @@ use Getopt::Long;
# command line option hash table # command line option hash table
my %optctl=(); my %optctl=();
# get command line options # 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'}){ if (defined $optctl{'help'}){
&usage(); &usage();
} }
@ -54,13 +54,17 @@ $sth->execute;
# get login,pass of each adherents # get login,pass of each adherents
while (my @row = $sth->fetchrow_array ){ 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"; print "$row[0]:$row[1]\n";
}
} }
$dbh->disconnect(); $dbh->disconnect();
sub usage{ 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 " cotis : select only adherents with cotisations up-to-date\n";
print "\n"; print "\n";
exit (1); exit (1);