98 lines
2.2 KiB
Perl
Executable file
98 lines
2.2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use DBI;
|
|
use Encode qw(encode decode);
|
|
use Supporters;
|
|
binmode STDIN, ":utf8";
|
|
binmode STDOUT, ":utf8";
|
|
|
|
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 "Ledger Entity Id: ";
|
|
my $entityId = <STDIN>;
|
|
chomp $entityId;
|
|
|
|
print "Display Name: ";
|
|
my $displayName = <STDIN>;
|
|
chomp $displayName;
|
|
|
|
my $publicAck = 7;
|
|
while ($publicAck != 0 and $publicAck != 1 and $publicAck !~ /^\s*$/) {
|
|
print "Public Ack (0 or 1, or return to leave undef): ";
|
|
$publicAck = <STDIN>;
|
|
chomp $publicAck;
|
|
}
|
|
$publicAck = undef if (defined $publicAck and $publicAck =~ /^\s*$/);
|
|
|
|
|
|
print "Email Address: ";
|
|
my $email = <STDIN>;
|
|
chomp $email;
|
|
|
|
print "Email Address Type: ";
|
|
my $emailType = <STDIN>;
|
|
chomp $emailType;
|
|
|
|
|
|
print "Want T-Shirt: ";
|
|
my $tshirt = <STDIN>;
|
|
chomp $tshirt;
|
|
|
|
my $tshirtSize;
|
|
|
|
if ($tshirt) {
|
|
print "T-Shirt Size: ";
|
|
$tshirtSize = <STDIN>;
|
|
chomp $tshirtSize;
|
|
}
|
|
|
|
print "Want announcemailing list: ";
|
|
my $wantList = <STDIN>;
|
|
chomp $wantList;
|
|
|
|
print "postal Address (. to end):\n";
|
|
my $postal = "";
|
|
while (my $line = <STDIN>) {
|
|
last if $line =~ /^\s*\.\s*$/;
|
|
$postal .= $line;
|
|
}
|
|
|
|
my $sp = new Supporters($dbh, [ "none" ]);
|
|
|
|
my $args = {};
|
|
$args->{ledger_entity_id} = $entityId;
|
|
$args->{display_name} = $displayName;
|
|
$args->{public_ack} = $publicAck;
|
|
if (defined $email and $email !~ /^\s*$/) {
|
|
$args->{email_address} = $email;
|
|
$args->{email_address_type} = $emailType;
|
|
}
|
|
|
|
my $donorId = $sp->addSupporter($args);
|
|
if ($tshirt) {
|
|
my $requestParamaters = { donorId => $donorId, requestConfiguration => $tshirtSize, requestType => 't-shirt-0' };
|
|
$sp->addRequest($requestParamaters);
|
|
}
|
|
if ($wantList) {
|
|
my $requestParamaters = { donorId => $donorId, requestType => 'join-announce-email-list' };
|
|
$sp->addRequest($requestParamaters);
|
|
}
|
|
if ($postal and $postal !~ /^\s*$/) {
|
|
print "postal type: ";
|
|
my $postalType = <STDIN>;
|
|
chomp $postalType;
|
|
$sp->addPostalAddress($donorId, $postal, $postalType);
|
|
}
|