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

Print public ack status on find-supporter script.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-03-11 12:11:58 -08:00
parent 32bf9f399c
commit fd6b55e7be
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
scripts/find-supporter.plx
View file

@ -36,6 +36,14 @@ foreach my $id (@supporterIds) {
my $preferredEmail = $sp->getPreferredEmailAddress($id); my $preferredEmail = $sp->getPreferredEmailAddress($id);
my $preferredPostal = undef; # $sp->getPreferredPostalAddress($id); my $preferredPostal = undef; # $sp->getPreferredPostalAddress($id);
print "Found: $id, ", $sp->getLedgerEntityId($id), "\n"; print "Found: $id, ", $sp->getLedgerEntityId($id), "\n";
print " Public Ack: ";
if (not defined $sp->getPublicAck($id)) {
print " unknown\n";
} elsif ($sp->getPublicAck($id)) {
print " yes\n";
} else {
print " no\n";
}
my(%addr) = $sp->getEmailAddresses($id); my(%addr) = $sp->getEmailAddresses($id);
print " Email Addresses: "; print " Email Addresses: ";
my $cnt = 0; my $cnt = 0;