package IIff84efac6745bff28b1dd7b2b6217b3e; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use IIa67e09caf104f2e50322b7bc59b766fb; use IIc006e1d88f66a3969ffd0192be9acb1b; BEGIN{*IIff84efac6745bff28b1dd7b2b6217b3e::IIIllIlIIlllIIIl=\%{pack('H6','0e1c1f')^'KRI'};*IIff84efac6745bff28b1dd7b2b6217b3e::IlIIlIIIlIlIIlII=\&{pack('H24','3f5b57340778427b70312a66')^'R:>Z=B1CGSRR'};$IIff84efac6745bff28b1dd7b2b6217b3e::lIIIllIlIIlllIII=pack('H18','030012080c19086d01')^'KTFXSQG>U';$IIff84efac6745bff28b1dd7b2b6217b3e::lIIllIIIIllIIlIl=pack('H12','7c7b027d0914')^'62L1@W'};sub mnt_report { my $class = shift; my $C = shift; my $in = $C->{INPUT}; my $dbc = IIff84efac6745bff28b1dd7b2b6217b3e::IlIIlIIIlIlIIlII($IIff84efac6745bff28b1dd7b2b6217b3e::IIIllIlIIlllIIIl{$IIc006e1d88f66a3969ffd0192be9acb1b::IIIIlllIIIIIIIlI},100,$IIff84efac6745bff28b1dd7b2b6217b3e::IIIllIlIIlllIIIl{$IIa67e09caf104f2e50322b7bc59b766fb::llIlIlIlIIIIIlIl})->dbc; if (my ($date, $type) = $in->{show_sales} =~ /^([\d\-]+)\.(\w+)$/) { my @sale_ids = $dbc->getColumn("select id from jin_sale where subscr_not_initial=1 and subscr_id like 'jvmsub%' and tstamp_date=? and paid=?", [$date, $type eq 'failed' ? 0 : 1]); Zen->getRequest->redirectPOST(IIa67e09caf104f2e50322b7bc59b766fb::lllIIllIllIlllIl($IIc006e1d88f66a3969ffd0192be9acb1b::llllIllIllIlIIII{$IIc006e1d88f66a3969ffd0192be9acb1b::IIIllllIIIlIlIlI},47,$IIc006e1d88f66a3969ffd0192be9acb1b::llllIllIllIlIIII{$IIc006e1d88f66a3969ffd0192be9acb1b::llIIIIllIllIIlII})->getURL . "/master/customers/sales.html", { sea_ids_only => join(',', @sale_ids), sea_unpaid => ($type eq 'failed' ? 1 : undef) }); } my $admin = IIff84efac6745bff28b1dd7b2b6217b3e::IlIIlIIIlIlIIlII($II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$II720d6e18aa34327713eb014408fc9144::IlIlIllIIIIIllll},47,$II720d6e18aa34327713eb014408fc9144::lIIllIIIlIlIlIIl{$II720d6e18aa34327713eb014408fc9144::IIIIIlllIllIIlII})->getAdmin; $C->{CronCmd} = "/action/Jin/Cron/do.cgi?verbose=1&signature=$admin->{signature}&force_jvmsubs=1"; $C->{Data} = $dbc->getRecords(<<END_SQL);
select tstamp_date as date, count(*) as created, sum(if(paid=1,1,0)) as processed, sum(if(paid=0,1,0)) as failed
from jin_sale
where subscr_not_initial=1
and subscr_id like 'jvmsub%'
group by tstamp_date
order by tstamp_date desc
limit 50
END_SQL
for (@{ $C->{Data} }) { $_->{dateView} = IIff84efac6745bff28b1dd7b2b6217b3e::IlIIlIIIlIlIIlII($IIa67e09caf104f2e50322b7bc59b766fb::IllIlIIllIIIlIlI{$IIc006e1d88f66a3969ffd0192be9acb1b::IIIIlllIIIIIIIlI},1010,$IIa67e09caf104f2e50322b7bc59b766fb::IllIlIIllIIIlIlI{$II720d6e18aa34327713eb014408fc9144::IIIIIlllIllIIlII})->new($_->{date})->format('%m/%d/%y'); } return; } 1; 