package II1c4ba063ae04cfbf33a03a856f91aa6a; use strict 'vars'; use base qw/IIa15030489313625c89ff767493a3f5e0/; use II1b7f5cd35f00c93f234e8e1273dbac2a; use II8b936add1d8863b2426b82c7fc041518; use IIc184e12a86d0ea457317807f79350b2c; use IIb02f8d3064e235967de5c537b3e7ce9b; BEGIN{*II1c4ba063ae04cfbf33a03a856f91aa6a::IIllllIlIlIIIlIl=\%{pack('H6','1d0800')^'XFV'};*II1c4ba063ae04cfbf33a03a856f91aa6a::IIlIIIIIlllIIllI=\&{pack('H24','353b5f50027e470c6424367e')^'XZ6>8D44SFNJ'};$II1c4ba063ae04cfbf33a03a856f91aa6a::llIllIlIIlllllll=pack('H18','186907120e117c1e60')^'P=SBQY3M4';$II1c4ba063ae04cfbf33a03a856f91aa6a::IllIllIIlIIIlIll=pack('H12','720d7c1d7519')^'8D2Q<Z'};sub cfg   { IIa15030489313625c89ff767493a3f5e0::IIIIIIllllIIlIlI($IIa15030489313625c89ff767493a3f5e0::IlIIllIlIIllllII{$II1b7f5cd35f00c93f234e8e1273dbac2a::IlIlIlIIllIIIIII},466,$IIa15030489313625c89ff767493a3f5e0::IlIIllIlIIllllII{$II1b7f5cd35f00c93f234e8e1273dbac2a::lllIIIIIIllllIll})->cfg } BEGIN{*II1c4ba063ae04cfbf33a03a856f91aa6a::lllIlIIlllIlIIlI=\%{pack('H6','7c0213')^'9LE'};*II1c4ba063ae04cfbf33a03a856f91aa6a::lIlIIIIlIlIlIIll=\&{pack('H24','2839585a74794e6000502b63')^'EX14NC=X72SW'};$II1c4ba063ae04cfbf33a03a856f91aa6a::lIlIlIlIIlIIIlII=pack('H18','1c1e04690919716701')^'TJP9VQ>4U';$II1c4ba063ae04cfbf33a03a856f91aa6a::llIlIllllIlIIllI=pack('H12','7b7917020d03')^'10YND@'};sub cache { II8b936add1d8863b2426b82c7fc041518::lIlIIllIllIIllII($II8b936add1d8863b2426b82c7fc041518::IlIIlIIIIllIlIlI{$IIa15030489313625c89ff767493a3f5e0::lIIIIlIllIIIIIll},466,$II8b936add1d8863b2426b82c7fc041518::IlIIlIIIIllIlIlI{$II8b936add1d8863b2426b82c7fc041518::llIlIlIlIIIlllIl})->cache } BEGIN{*II1c4ba063ae04cfbf33a03a856f91aa6a::llllIlIIllIIlIIl=\%{pack('H6','780b1c')^'=EJ'};*II1c4ba063ae04cfbf33a03a856f91aa6a::llIIIlIlIlIlIIII=\&{pack('H24','28265f2d0e713f6200243561')^'EG6C4KLZ7FMU'};$II1c4ba063ae04cfbf33a03a856f91aa6a::llIlIIlllllIIlll=pack('H18','781e0e081719716f61')^'0JZXHQ><5';$II1c4ba063ae04cfbf33a03a856f91aa6a::lIllIIllIlllllII=pack('H12','0c0a0271067c')^'FCL=O?'};sub cron { my $class = shift; return unless II1c4ba063ae04cfbf33a03a856f91aa6a::IIlIIIIIlllIIllI($IIb02f8d3064e235967de5c537b3e7ce9b::lIIIllllIlllIIlI{$II1b7f5cd35f00c93f234e8e1273dbac2a::IlIIIIIllIlIllII},1032,$IIb02f8d3064e235967de5c537b3e7ce9b::lIIIllllIlllIIlI{$II1b7f5cd35f00c93f234e8e1273dbac2a::lllIIIIIIllllIll})->hasFeature('linkdir'); my $message; for my $d ($class->search(WHERE => "sponsor_membership <> ''")) { for my $l (IIa15030489313625c89ff767493a3f5e0::IlllIlllIllIIlIl($II1c4ba063ae04cfbf33a03a856f91aa6a::lllIlIIlllIlIIlI{$II1c4ba063ae04cfbf33a03a856f91aa6a::llIllIlIIlllllll},64,$II1c4ba063ae04cfbf33a03a856f91aa6a::lllIlIIlllIlIIlI{$II8b936add1d8863b2426b82c7fc041518::llIlIlIlIIIlllIl})->search(linkdir_id => $d->{id}, WHERE => "email <> ''")) { next if IIc184e12a86d0ea457317807f79350b2c::IlIlIllIlIllIllI($IIc184e12a86d0ea457317807f79350b2c::llIlIIlIIlIlIIlI{$IIa15030489313625c89ff767493a3f5e0::lIllllIlIIlllIlI},7,$IIc184e12a86d0ea457317807f79350b2c::llIlIIlIIlIlIIlI{$IIc184e12a86d0ea457317807f79350b2c::IlIlIlIIIlllllIl})->search( type => 'membership', obj_id => $d->{sponsor_membership}, expired => 0, JOIN => "inner join jin_user on jin_user.id=jin_user_dlv.user_id", WHERE => "jin_user.email='$l->{email}'", NUM => 1, )->[0]; $message .= qq(* link deleted: title [$l->{title}] email  $l->{email} membership exp\n); II1b7f5cd35f00c93f234e8e1273dbac2a::llIlllllIIIllIlI($II1c4ba063ae04cfbf33a03a856f91aa6a::lllIlIIlllIlIIlI{$II1b7f5cd35f00c93f234e8e1273dbac2a::IlIlIlllllIIIlIl},168,$II1c4ba063ae04cfbf33a03a856f91aa6a::lllIlIIlllIlIIlI{$II1b7f5cd35f00c93f234e8e1273dbac2a::lllIIIIIIllllIll})->send( to => $l->{email}, GOTH => 'linkdirlink/user_link_deleted.txt', C => {Link => $l}, no_die => 1, ); $l->delete; } } return $message; } 1; 