[ljcom] r10753: OPSC-334 appbill_delivery worker added, ...

U   trunk/bin/maint/pay.pl
U   trunk/bin/maint/taskinfo-local.txt

Modified: trunk/bin/maint/pay.pl
===================================================================
--- trunk/bin/maint/pay.pl	2011-07-11 07:53:38 UTC (rev 10752)
+++ trunk/bin/maint/pay.pl	2011-07-12 03:31:07 UTC (rev 10753)
@@ -6,7 +6,18 @@
 use lib "$ENV{'LJHOME'}/cgi-bin";
 use LJ::Pay;
 use LJ::TimeUtil;
+use LJ::API::Payments;
 
+$maint{'appbill_delivery'} = sub
+{
+    require "$ENV{'LJHOME'}/cgi-bin/ljlang.pl";
+    my $dbh = LJ::get_db_writer()
+        or die "Could not contact global database master";
+
+    print "Deliver application payments and refund non delivered payments...\n\n";
+    LJ::API::Payments::AppPayment->deliver_payments(); # fix all payments
+};
+
 $maint{'pay_mail'} = sub
 {
     require "$ENV{'LJHOME'}/cgi-bin/ljlang.pl";

Modified: trunk/bin/maint/taskinfo-local.txt
===================================================================
--- trunk/bin/maint/taskinfo-local.txt	2011-07-11 07:53:38 UTC (rev 10752)
+++ trunk/bin/maint/taskinfo-local.txt	2011-07-12 03:31:07 UTC (rev 10753)
@@ -31,6 +31,8 @@
   makemoodindexes - Generate the index.html files in all the mood directories.
 
 pay.pl:
+  appbill_delivery - Deliver application goods or refund then in case of
+errors
   pay_mail - Sends out the email thanking people for their payment
   deliver - Sets people's accounts to 'paid' if it's not already.
   pay_lookupstates - Looks up and sets country/state info based on userprops