package II649acd560e9ea692bfb26750629b8e58; use strict 'vars'; use base qw/II3246dd3d31aaf58c6d1f3b6ae17725f9/; use Zen::Config; BEGIN{*II649acd560e9ea692bfb26750629b8e58::IIIlIIIIlIIIllll=\%{pack('H6','0f0c04')^'JBR'};*II649acd560e9ea692bfb26750629b8e58::IIllIllIIllIllIl=\&{pack('H24','2f383a26697920747e592d75')^'BYSHSCSLI;UA'};$II649acd560e9ea692bfb26750629b8e58::llIlIllIllIIlIll=pack('H18','7e03126f60750b6862')^'6WF??=D;6';$II649acd560e9ea692bfb26750629b8e58::IlllIllllllIlIIl=pack('H12','1a1b06141b0a')^'PRHXRI'};sub cfg   { II3246dd3d31aaf58c6d1f3b6ae17725f9::IllllllllIIlIllI($II649acd560e9ea692bfb26750629b8e58::IIlIlllIIlllllll{$II3246dd3d31aaf58c6d1f3b6ae17725f9::IllllllIIlIIlIIl},778,$II649acd560e9ea692bfb26750629b8e58::IIlIlllIIlllllll{$II649acd560e9ea692bfb26750629b8e58::IlllIllllllIlIIl})->cfg } BEGIN{*II649acd560e9ea692bfb26750629b8e58::IIlIlllIIlllllll=\%{pack('H6','081661')^'MX7'};*II649acd560e9ea692bfb26750629b8e58::IIlIIlllIlIllIll=\&{pack('H24','5d31532f686c237260553c0c')^'0P:ARVPJW7D8'};$II649acd560e9ea692bfb26750629b8e58::IlIIIlIlIlIlIIll=pack('H18','7769696e6e7b0d1361')^'?==>13B@5';$II649acd560e9ea692bfb26750629b8e58::lllIlIIlIllIlIll=pack('H12','7f18087f7408')^'5QF3=K'};sub cache { II3246dd3d31aaf58c6d1f3b6ae17725f9::llIIlIIlIIlIIllI($II3246dd3d31aaf58c6d1f3b6ae17725f9::lIlIllIIIIIIllll{$II3246dd3d31aaf58c6d1f3b6ae17725f9::IllIIlIllIIIIIlI},778,$II3246dd3d31aaf58c6d1f3b6ae17725f9::lIlIllIIIIIIllll{$II649acd560e9ea692bfb26750629b8e58::IlllIllllllIlIIl})->cache } BEGIN{*II649acd560e9ea692bfb26750629b8e58::lIIllIlIlIllIlll=\%{pack('H6','0b0218')^'NLN'};*II649acd560e9ea692bfb26750629b8e58::IllllIIllllIlllI=\&{pack('H24','5a3720540d0c46610c543d0d')^'7VI:765Y;6E9'};$II649acd560e9ea692bfb26750629b8e58::IIllllIIlIlIIlIl=pack('H18','05186914680418051c')^'ML=D7LWVH';$II649acd560e9ea692bfb26750629b8e58::lllIlIlIllIIlIIl=pack('H12','081f720d7a1a')^'BV<A3Y'};sub cron { my $class = shift; my $message; for my $o ($class->search(WHERE => 'to_days(expire) < to_days(now())')) { $message .= qq(* sponsor deleted: title [$o->{title}] exp [$o->{expire}]\n); $o->delete; } return $message; } 1; 