Committer: vtroitsky
OPSC-334 appbill_delivery worker added, to update stetuses of appbill cartsU 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