Conservancy/supporters
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Changes for our groups in mailing 3 FY 2019.

Browse source
This commit is contained in:
Bradley M. Kuhn 2019-12-24 09:23:33 -08:00
parent 8985765760
commit 5cc57f451e
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
scripts/send-supporter-emails-by-category.plx
View file

@ -27,6 +27,7 @@ my $ONE_AND_HALF_YEARS_AGO = UnixDate(ParseDate("18 months ago"), '%Y-%m-%d');
my $NINE_MONTHS_AGO = UnixDate(ParseDate("9 months ago"), '%Y-%m-%d'); my $NINE_MONTHS_AGO = UnixDate(ParseDate("9 months ago"), '%Y-%m-%d');
my $FIFTEEN_MONTHS_AGO = UnixDate(ParseDate("15 months ago"), '%Y-%m-%d'); my $FIFTEEN_MONTHS_AGO = UnixDate(ParseDate("15 months ago"), '%Y-%m-%d');
my $THREE_TWENTY_DAYS_AGO = UnixDate(ParseDate("320 days ago"), '%Y-%m-%d'); my $THREE_TWENTY_DAYS_AGO = UnixDate(ParseDate("320 days ago"), '%Y-%m-%d');
my $FY_2019_FUNDRAISER_START = UnixDate(ParseDate("2019-11-26 08:00"), '%Y-%m-%d');
my $END_LAST_YEAR = '2017-12-31'; my $END_LAST_YEAR = '2017-12-31';
if (@ARGV < 5) { if (@ARGV < 5) {
@ -45,7 +46,7 @@ my $dbh = DBI->connect("dbi:SQLite:dbname=$SUPPORTERS_SQLITE_DB_FILE", "", "",
my $sp = new Supporters($dbh, \@LEDGER_CMD_LINE, { monthly => $MONTHLY_SEARCH_REGEX, annual => $ANNUAL_SEARCH_REGEX}); my $sp = new Supporters($dbh, \@LEDGER_CMD_LINE, { monthly => $MONTHLY_SEARCH_REGEX, annual => $ANNUAL_SEARCH_REGEX});
my %groupLines; my %groupLines;
foreach my $group (1 .. 3) { foreach my $group (1 .. 2) {
$groupLines{$group} = []; $groupLines{$group} = [];
open(my $emailFH, "<", "group-${group}" . $EMAIL_TEMPLATE_SUFFIX); open(my $emailFH, "<", "group-${group}" . $EMAIL_TEMPLATE_SUFFIX);
@{$groupLines{$group}} = <$emailFH>; @{$groupLines{$group}} = <$emailFH>;
@ -98,14 +99,13 @@ foreach my $id (@supporterIds) {
# ($donorType eq 'annual' and $lastGaveDate lt $THREE_TWENTY_DAYS_AGO) ) # ($donorType eq 'annual' and $lastGaveDate lt $THREE_TWENTY_DAYS_AGO) )
# { # {
# $group = 1; # $group = 1;
if ($donorType eq 'monthly' and $lastGaveDate ge $NINETY_DAYS_AGO) { if ($lastGaveDate le $FY_2019_FUNDRAISER_START) {
$group = 1; $group = 1;
} elsif ( ($donorType eq 'monthly' and $lastGaveDate ge $NINETY_DAYS_AGO) or } elsif ($lastGaveDate gt $FY_2019_FUNDRAISER_START) {
$donorType eq 'annual' and $lastGaveDate ge $FIFTEEN_MONTHS_AGO) {
$group = 2; $group = 2;
} elsif ( ($donorType eq 'monthly' and $lastGaveDate lt $NINETY_DAYS_AGO) or # } elsif ( ($donorType eq 'monthly' and $lastGaveDate lt $NINETY_DAYS_AGO) or
$donorType eq 'annual' and $lastGaveDate lt $FIFTEEN_MONTHS_AGO) { # $donorType eq 'annual' and $lastGaveDate lt $FIFTEEN_MONTHS_AGO) {
$group = 3; # $group = 3;
# } elsif ($donorType eq 'annual' and $lastGaveDate ge $THREE_TWENTY_DAYS_AGO) { # } elsif ($donorType eq 'annual' and $lastGaveDate ge $THREE_TWENTY_DAYS_AGO) {
# $group = 3; # $group = 3;
# } elsif ( ($donorType eq 'annual' and $lastGaveDate le $ONE_AND_HALF_YEARS_AGO) or # } elsif ( ($donorType eq 'annual' and $lastGaveDate le $ONE_AND_HALF_YEARS_AGO) or