From d4e8b71bee17b7329eeee1e50bcb9fb7e2b3e5bb Mon Sep 17 00:00:00 2001
From: "Bradley M. Kuhn" <bkuhn@ebb.org>
Date: Fri, 2 Dec 2016 14:51:10 -0800
Subject: [PATCH] First draft of fulfill-request script.

It seems to work, just used it.
---
 scripts/fulfill-request.plx | 52 +++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 scripts/fulfill-request.plx

diff --git a/scripts/fulfill-request.plx b/scripts/fulfill-request.plx
new file mode 100644
index 0000000..694e765
--- /dev/null
+++ b/scripts/fulfill-request.plx
@@ -0,0 +1,52 @@
+#!/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;
+
+my $sp = new Supporters($dbh, [ "none" ]);
+
+print "Supporter Id: ";
+my $supporterId = <STDIN>;
+chomp $supporterId;
+
+my @requestTypes = $sp->getRequestType();
+my %requestTypes;
+@requestTypes{@requestTypes} = @requestTypes;
+my $requestType = "";
+while (not defined $requestTypes{$requestType}) {
+  print "Request Type (", join(", ", @requestTypes), "): ";
+  $requestType = <STDIN>;
+  chomp $requestType;
+}
+print "How Request filled: ";
+my $how = <STDIN>;
+chomp $how;
+print "Who fulfilled: ";
+my $who = <STDIN>;
+chomp $who;
+
+my $req = $sp->getRequest({ donorId => $supporterId,
+                             requestType => $requestType, ignoreFulfilledRequests => 1});
+
+if (defined $req) {
+  $sp->fulfillRequest({donorId => $supporterId, requestType => $requestType,
+                       who => $who, how => $how});
+} else {
+  print "Unable to find an open request of that type for $supporterId.  No action taken.\n";
+}