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

rajout d'une option pour ne selectionne que les adherents a jour de cotisation.

Browse Source
This commit is contained in:
jlb 2003-06-17 08:54:28 +00:00
parent 2007a1a0ff
commit cdc61969f5
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/adherents/mailman/adh2list.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","ml=s","type=s");
GetOptions(\%optctl,"help!","host=s","db=s","user=s","pass=s","ml=s","type=s","cotis!");
if (defined $optctl{'help'}){
&usage();
}
@ -45,6 +45,10 @@ my $dbh = DBI->connect("dbi:$type:dbname=$dbname;host=$host",$user,$pass) || die
my $sql = 'SELECT email FROM llx_adherent WHERE statut=1';
if (defined $optctl{'cotis'}){
$sql.=" AND datefin > now()";
}
my $sth = $dbh->prepare("$sql") || die $dbh->errstr ;
$sth->execute;
@ -85,8 +89,9 @@ foreach my $subs (@ml_adh){
$dbh->disconnect();
sub usage{
print "$0 [--help] [--host] [--db] [--user] [--pass] --ml=mailinglist\n";
print " ml is for mailing-list. others options are for database";
print "";
print "$0 [--help] [--host] [--db] [--user] [--pass] [--cotis] --ml=mailinglist\n";
print " ml is for mailing-list. others options are for database\n";
print " cotis : select only adherents with cotisations up-to-date\n";
print "\n";
exit (1);
}