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

add-postal address script.

Browse source
This commit is contained in:
Bradley M. Kuhn 2016-12-09 13:48:24 -08:00
parent 5458c0fbc4
commit 07dc1bf515
1 changed files with 49 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

49
scripts/add-postal-address.plx Normal file
View file

@ -0,0 +1,49 @@
#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Encode qw(encode decode);
use Supporters;
if (@ARGV != 1 and @ARGV !=2) {
print STDERR "usage: $0 <SUPPORTERS_SQLITE_DB_FILE> <VERBOSITY_LEVEL>\n";
exit 1;
}
my($SUPPORTERS_SQLITE_DB_FILE, $VERBOSE) = @ARGV;
$VERBOSE = 0 if not defined $VERBOSE;
my $dbh = DBI->connect("dbi:SQLite:dbname=$SUPPORTERS_SQLITE_DB_FILE", "", "",
{ RaiseError => 1, sqlite_unicode => 1 })
or die $DBI::errstr;
print "Supporter Id: ";
my $supporterId = <STDIN>;
chomp $supporterId;
print "postal Address (. to end):\n";
my $postal = "";
while (my $line = <STDIN>) {
last if $line =~ /^\s*\.\s*$/;
$postal .= $line;
}
print "Postal Address Type: ";
my $postalType = <STDIN>;
chomp $postalType;
print "Preferred (0 or 1): ";
my $preferred = <STDIN>;
chomp $preferred;
my $sp = new Supporters($dbh, [ "none" ]);
$sp->addPostalAddress($supporterId, $postal, $postalType);
print "Preferred postal address was: ", $sp->getPreferredPostalAddress($supporterId), "\n";
if ($preferred) {
$sp->setPreferredPostalAddress($supporterId, $postal);
print "Preferred postal address is now: ", $sp->getPreferredPostalAddress($supporterId), "\n";
}