package II5c8bd2eb4e5a6f9d2ff060a9bdb69468; use strict 'vars'; use IIa67e09caf104f2e50322b7bc59b766fb; use IIb02f8d3064e235967de5c537b3e7ce9b; BEGIN{*II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IIIlIlIlIllIIIll=\%{pack('H6','7b051d')^'>KK'};*II5c8bd2eb4e5a6f9d2ff060a9bdb69468::lIIllllIllllllII=\&{pack('H24','56392b2d0802426b7627406c')^';XBC281SAE8X'};$II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IIllllIIIIllllII=pack('H18','0f01116d630c1e6369')^'GUE=<DQ0=';$II5c8bd2eb4e5a6f9d2ff060a9bdb69468::lIlIIlIIIIllIlIl=pack('H12','100d00141310')^'ZDNXZS'};sub act_activate_dlv { my $class = shift; my $in = Zen->getRequest->getInput; Zen->getRequest->printHeader("text/html"); print "OK"; return unless $in->{mem_id} && $in->{user_id}; my $dlv = IIa67e09caf104f2e50322b7bc59b766fb::lllIIllIllIlllIl($IIa67e09caf104f2e50322b7bc59b766fb::IllIlIIllIIIlIlI{$IIa67e09caf104f2e50322b7bc59b766fb::IIlIIllIlIIIIIII},7,$IIa67e09caf104f2e50322b7bc59b766fb::IllIlIIllIIIlIlI{$IIb02f8d3064e235967de5c537b3e7ce9b::IIIllIllIllIlIll})->search( type => $in->{type}, obj_id => $in->{mem_id}, user_id => $in->{user_id}, WHERE => 'not expired' )->[0]; $dlv->activateDlv if $dlv && (! $dlv->{expires} || $dlv->{expires} gt II5c8bd2eb4e5a6f9d2ff060a9bdb69468::lIIllllIllllllII($II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IlIllIIIlllllIII{$IIa67e09caf104f2e50322b7bc59b766fb::llIlIIIlIllIIIll},1010,$II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IlIllIIIlllllIII{$IIa67e09caf104f2e50322b7bc59b766fb::IlIlIllIllIIlIll})->new->date); return; } BEGIN{*II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IlIllIIIlllllIII=\%{pack('H6','1c7c19')^'Y2O'};*II5c8bd2eb4e5a6f9d2ff060a9bdb69468::lllIlIlllIIlIIll=\&{pack('H24','5c23513e7d6e4607795e2d08')^'1B8PGT5?N<U<'};$II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IIIlIlIlllIllIll=pack('H18','0e6107016c071f6212')^'F5SQ3OP1F';$II5c8bd2eb4e5a6f9d2ff060a9bdb69468::lllIIIIlllIIlIll=pack('H12','051974037515')^'OP:O<V'};sub act_deactivate_dlv { my $class = shift; my $in = Zen->getRequest->getInput; Zen->getRequest->printHeader("text/html"); print "OK"; return unless $in->{mem_id} && $in->{user_id}; my $dlv = IIa67e09caf104f2e50322b7bc59b766fb::IIllIlIIllIllIll($II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IIIlIlIlIllIIIll{$II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IIIlIlIlllIllIll},7,$II5c8bd2eb4e5a6f9d2ff060a9bdb69468::IIIlIlIlIllIIIll{$IIa67e09caf104f2e50322b7bc59b766fb::llIlIlIlIIIIIlIl})->search( type => $in->{type}, obj_id => $in->{mem_id}, user_id => $in->{user_id}, expired => 1, )->[0]; $dlv->deactivateDlv if $dlv; return; } 1; 