Mirrors/dolibarr
1
0
Fork 0
mirror of https://github.com/Dolibarr/dolibarr.git synced 2025-02-20 13:46:52 +01:00
Code Issues 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
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);