package II066fafed14347689e9856b08cd5f275f; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use II85c65ba7e286d29307cdb0d3ce685d3c; BEGIN{*II066fafed14347689e9856b08cd5f275f::IIIIIIllIlllIlll=\%{pack('H6','0c0d14')^'ICB'};*II066fafed14347689e9856b08cd5f275f::IllllIlIlIIlIlll=\&{pack('H24','2d285f3e6a6e2a7c70263565')^'@I6PPTYDGDMQ'};$II066fafed14347689e9856b08cd5f275f::IIlllIIIIIlIIIlI=pack('H18','1068111d651f776e07')^'X<EM:W8=S';$II066fafed14347689e9856b08cd5f275f::llIlllIlIIllIllI=pack('H12','1d7f7d781010')^'W634YS'};sub act_list_jvmsubs { my $class = shift; my ($in) = Zen->getRequest->getInput; my $ses = IIc5527ba3c4b7aae6d2a7141dc11c0d37::Browser->get; my $file = "JvmsubStat.$in->{sign}.$in->{type}"; my @jvmsub_ids; if ($ses->exists($file)) { my $sql = $ses->readBulk($file); $sql =~ s/^select\s.+?\r?\n/select distinct j.subscr_id /; $sql =~ s/where 1/where p.id='$in->{id}'/; $sql =~ s/group by \S+//; my $dbc = II066fafed14347689e9856b08cd5f275f::IllllIlIlIIlIlll($II720d6e18aa34327713eb014408fc9144::IIlllIIllllIlIll{$II066fafed14347689e9856b08cd5f275f::IIlllIIIIIlIIIlI},182,$II720d6e18aa34327713eb014408fc9144::IIlllIIllllIlIll{$II720d6e18aa34327713eb014408fc9144::lIllllIIllIlIIll})->dbc; @jvmsub_ids = grep { $_ } map { /^jvmsub(\d+)/; $1 } $dbc->getColumn($sql); } Zen->getRequest->redirectPOST(II720d6e18aa34327713eb014408fc9144::IIllIIIlIIllllII($II85c65ba7e286d29307cdb0d3ce685d3c::llIIIIllIlllIllI{$II85c65ba7e286d29307cdb0d3ce685d3c::IlIIlIIIllIIIlIl},47,$II85c65ba7e286d29307cdb0d3ce685d3c::llIIIIllIlllIllI{$II720d6e18aa34327713eb014408fc9144::IIIIIlllIllIIlII})->getURL . "/master/customers/jvmsubs.html", { sea_ids => join(',', @jvmsub_ids) }); } 1; 