package II0ca1c75bccf393d22f289761608343ed; use strict 'vars'; use base qw/II3290c14020c45aae926b7696807f26c2/; use Zen::Config; use IIef11385558db207cf8b1321ea6156940; BEGIN{*II0ca1c75bccf393d22f289761608343ed::lIIIIllIlIIIlIIl=\%{pack('H6','0f030c')^'JMZ'};*II0ca1c75bccf393d22f289761608343ed::IlIllIlIIlllllIl=\&{pack('H24','3c5f59297f044f6a7a2d4e63')^'Q>0GE><RMO6W'};$II0ca1c75bccf393d22f289761608343ed::IlllIlIlIIIllIlI=pack('H18','03651d0a06110d0502')^'K1IZYYBVV';$II0ca1c75bccf393d22f289761608343ed::llIIIlIlIlIIIIll=pack('H12','040f79000b7d')^'NF7LB>'};sub cfg   { II0ca1c75bccf393d22f289761608343ed::IlIllIlIIlllllIl($II3290c14020c45aae926b7696807f26c2::IlllIllllIlIIlII{$II3290c14020c45aae926b7696807f26c2::IllllIlllIIIlllI},319,$II3290c14020c45aae926b7696807f26c2::IlllIllllIlIIlII{$IIef11385558db207cf8b1321ea6156940::IllIlIIlIIIIIllI})->cfg } BEGIN{*II0ca1c75bccf393d22f289761608343ed::lIlIIIlIlIIllIll=\%{pack('H6','0c7615')^'I8C'};*II0ca1c75bccf393d22f289761608343ed::IIIIIIlIlIlllIlI=\&{pack('H24','292e5d2d7572317d615a3373')^'DO4COHBEV8KG'};$II0ca1c75bccf393d22f289761608343ed::lIlIllIIIlIllIlI=pack('H18','0c076f101402721469')^'DS;@KJ=G=';$II0ca1c75bccf393d22f289761608343ed::IIlIIIIlIlllllIl=pack('H12','1a04741d777d')^'PM:Q>>'};sub cache { II0ca1c75bccf393d22f289761608343ed::IlIllIlIIlllllIl($IIef11385558db207cf8b1321ea6156940::IIlIllllllllIIlI{$II0ca1c75bccf393d22f289761608343ed::lIIlIIIlllIIIIll},319,$IIef11385558db207cf8b1321ea6156940::IIlIllllllllIIlI{$II3290c14020c45aae926b7696807f26c2::lIlIllllllIIlllI})->cache } BEGIN{*II0ca1c75bccf393d22f289761608343ed::IllllIlIIlllllIl=\%{pack('H6','0e0467')^'KJ1'};*II0ca1c75bccf393d22f289761608343ed::lIIlIlIllllIIIIl=\&{pack('H24','2354302a79763d71632d227a')^'N5YDCLNITOZN'};$II0ca1c75bccf393d22f289761608343ed::IlIIIIIlIIlllIIl=pack('H18','1f0c1a120972091a66')^'WXNBV:FI2';$II0ca1c75bccf393d22f289761608343ed::IlIIlIIIIIlIIlll=pack('H12','0d1808191c0d')^'GQFUUN'};sub checkIP { my $class = shift; return unless II0ca1c75bccf393d22f289761608343ed::IIIIIIlIlIlllIlI($II3290c14020c45aae926b7696807f26c2::IIllllIIlIIlIIlI{$II0ca1c75bccf393d22f289761608343ed::IlllIlIlIIIllIlI},47,$II3290c14020c45aae926b7696807f26c2::IIllllIIlIIlIIlI{$IIef11385558db207cf8b1321ea6156940::IllIlIIlIIIIIllI})->getAdmin->getPrivs->{master_tools_bans}; for my $regex (keys %{ Zen::Config->get('banlist')->{ip} }) { Zen->getRequest->bluescreen('banned') if $ENV{REMOTE_ADDR} =~ /^$regex$/i } return; } BEGIN{*II0ca1c75bccf393d22f289761608343ed::IIIlIllIlIlIlIIl=\%{pack('H6','171b06')^'RUP'};*II0ca1c75bccf393d22f289761608343ed::IIllllIIIIlIIIlI=\&{pack('H24','23373b5e7077470e05303579')^'NVR0JM462RMM'};$II0ca1c75bccf393d22f289761608343ed::lIIlIIIlllIIIIll=pack('H18','1a1112090f707c6964')^'REFYP83:0';$II0ca1c75bccf393d22f289761608343ed::IllllIllIIllllIl=pack('H12','12720671787e')^'X;H=1='};sub checkEmail { my $class = shift; my $email = shift; return unless IIef11385558db207cf8b1321ea6156940::IIlllIIlllIIIIII($IIef11385558db207cf8b1321ea6156940::IIlIllllllllIIlI{$II0ca1c75bccf393d22f289761608343ed::lIlIllIIIlIllIlI},47,$IIef11385558db207cf8b1321ea6156940::IIlIllllllllIIlI{$II0ca1c75bccf393d22f289761608343ed::IllllIllIIllllIl})->getAdmin->getPrivs->{master_tools_bans}; for my $regex (keys %{ Zen::Config->get('banlist')->{email} }) { Zen->getRequest->bluescreen('banned') if $email =~ /^$regex$/i } return; } 1; 