package II416a98ae7fa9cea31fb38e835ee5e0dc; use strict 'vars'; use base qw/II3562149e53818b6637b38680e87ba918/; use LWP::UserAgent; use II7cf944b59c9c0fa6696a8c87e361790a; use II67347f1b509697297e655a66b8dedb5a; BEGIN{*II416a98ae7fa9cea31fb38e835ee5e0dc::IIIlIIlIlIlllllI=\%{pack('H6','780465')^'=J3'};*II416a98ae7fa9cea31fb38e835ee5e0dc::IIlIIlIIIIlIllIl=\&{pack('H24','273323287570437a72302b74')^'JRJFOJ0BERS@'};$II416a98ae7fa9cea31fb38e835ee5e0dc::lIllIIIIlIIllIlI=pack('H18','7c1f641b067c0d1e06')^'4K0KY4BMR';$II416a98ae7fa9cea31fb38e835ee5e0dc::llIIlIIIllIIllIl=pack('H12','0c181d1e717a')^'FQSR89'};sub fields    { (II7cf944b59c9c0fa6696a8c87e361790a::IIllIIllllIlIIlI($II67347f1b509697297e655a66b8dedb5a::IIllIlIIIIIIllll{$II67347f1b509697297e655a66b8dedb5a::IlIIIIlllIlIlIII},452,$II67347f1b509697297e655a66b8dedb5a::IIllIlIIIIIIllll{$II416a98ae7fa9cea31fb38e835ee5e0dc::lIlIlllllIllIIll})->dbFields, qw/Stats/) } BEGIN{*II416a98ae7fa9cea31fb38e835ee5e0dc::IllIIlllIlllIllI=\%{pack('H6','051718')^'@YN'};*II416a98ae7fa9cea31fb38e835ee5e0dc::llIlllllIIlIIlII=\&{pack('H24','26295e3d730b2161742d3264')^'KH7SI1RYCOJP'};$II416a98ae7fa9cea31fb38e835ee5e0dc::llIIIlIIIlIlIlII=pack('H18','0562641f0f75730269')^'M60OP=<Q=';$II416a98ae7fa9cea31fb38e835ee5e0dc::lIllIllIIIlllIll=pack('H12','7b75147b7679')^'1<Z7?:'};sub required  { qw/alias url/ } BEGIN{*II416a98ae7fa9cea31fb38e835ee5e0dc::lIlllllIlIlllIIl=\%{pack('H6','107c1c')^'U2J'};*II416a98ae7fa9cea31fb38e835ee5e0dc::lIlIlIIlIIlIIIII=\&{pack('H24','3d2f5a3d600e266d0c502c07')^'PN3SZ4UU;2T3'};$II416a98ae7fa9cea31fb38e835ee5e0dc::IlIIIIIIllIIIIIl=pack('H18','7a111c14670f061f0e')^'2EHD8GILZ';$II416a98ae7fa9cea31fb38e835ee5e0dc::lIIlIIlIlIllllIl=pack('H12','087373767a12')^'B:=:3Q'};sub namesResourcePrefix { 'field.supro' } __PACKAGE__->standardHandler($_, $_ => 'text(10)') for qw/ username password limit_ips limit_ips_user limit_downloads limit_downloads_user /; __PACKAGE__->standardHandler($_, $_ => 'textarea(7,50)') for qw/admin_notes limit_referer/; __PACKAGE__->standardHandler($_, $_ => 'textarea(10,80)') for qw/denied_template/; __PACKAGE__->standardHandler($_, $_ => 'datepopup(,)') for qw/expires/; II7cf944b59c9c0fa6696a8c87e361790a::setStandardHandlers(__PACKAGE__);
BEGIN{*II416a98ae7fa9cea31fb38e835ee5e0dc::IllIIlIIIlIIIIII=\%{pack('H6','107762')^'U94'};*II416a98ae7fa9cea31fb38e835ee5e0dc::IllIlIIIIllIIIll=\&{pack('H24','3f5133527d7f49007c372e7a')^'R0Z<GE:8KUVN'};$II416a98ae7fa9cea31fb38e835ee5e0dc::IlIIlIlIllIIllll=pack('H18','7e1b1d1f6d1e7e0464')^'6OIO2V1W0';$II416a98ae7fa9cea31fb38e835ee5e0dc::llllllIlllllIlII=pack('H12','1f7b76710272')^'U28=K1'};sub setAlias { my ($this, $v) = @_; my $object = $this->getDecorated; $object->{alias} = $v; $this->addError($this->message('supro.form.error.invalid_alias')) unless $v =~ m!^\w[\w\-\./]*$!; return; } BEGIN{*II416a98ae7fa9cea31fb38e835ee5e0dc::IlIlIlIllIllllII=\%{pack('H6','097f12')^'L1D'};*II416a98ae7fa9cea31fb38e835ee5e0dc::IlllIIlIIIllIllI=\&{pack('H24','2e2b3329767d4e0f63232a72')^'CJZGLG=7TARF'};$II416a98ae7fa9cea31fb38e835ee5e0dc::lIIIlIllllIllIIl=pack('H18','736015041a0b746614')^';4ATEC;5@';$II416a98ae7fa9cea31fb38e835ee5e0dc::lIlIlllllIllIIll=pack('H12','071a0a1b0e16')^'MSDWGU'};sub setUrl { my ($this, $v) = @_; my $in = $this->getInput; my $object = $this->getDecorated; $object->{url} = $v; $this->addError($this->message('supro.form.error.invalid_url')) if $v !~ m!^https?://! || $v =~ m![\s\t]!; $this->addError($this->message('supro.form.error.forbidden_url')) if index($v, II416a98ae7fa9cea31fb38e835ee5e0dc::IIlIIllllIIIIIlI($II416a98ae7fa9cea31fb38e835ee5e0dc::IIllllIlIIlIIlIl{$II416a98ae7fa9cea31fb38e835ee5e0dc::lIlIIIlIIIlIllII},47,$II416a98ae7fa9cea31fb38e835ee5e0dc::IIllllIlIIlIIlIl{$II7cf944b59c9c0fa6696a8c87e361790a::IllIlIIllIlIIIIl})->getURI) == 0; if ($v) { my $ua = LinkRequestAgent->new( $in->{username}, $in->{password}, ); $ua->timeout(10); $ua->env_proxy; my $response = $ua->head($v); $this->addError(__PACKAGE__->message('supro.form.error.problem_url', $response->status_line)) if (! $response->is_success); } return; } BEGIN{*II416a98ae7fa9cea31fb38e835ee5e0dc::llllllllIIllIlII=\%{pack('H6','7d1401')^'8ZW'};*II416a98ae7fa9cea31fb38e835ee5e0dc::IlIIllIIIlIIIIll=\&{pack('H24','255e212875723b7704264466')^'H?HFOHHO3D<R'};$II416a98ae7fa9cea31fb38e835ee5e0dc::lIllllllIlIIIIIl=pack('H18','00686e076a0b79666d')^'H<:W5C659';$II416a98ae7fa9cea31fb38e835ee5e0dc::lllllIIIlIIllIIl=pack('H12','13110a7c1810')^'YXD0QS'};sub setLimit_referer { my ($this, $v) = @_; my @refs; for my $l (split(/^/, $v)) { for ($l) { s/^[\s\t\r\n]+//; s/[\s\t\r\n]+$//; } push @refs, $l if $l; } $this->getDecorated->{limit_referer} = join "\n", @refs; return; } BEGIN{*II416a98ae7fa9cea31fb38e835ee5e0dc::IIllllIlIIlIIlIl=\%{pack('H6','747410')^'1:F'};*II416a98ae7fa9cea31fb38e835ee5e0dc::IIlIIllllIIIIIlI=\&{pack('H24','2a2e583a6f7f4e6f60213403')^'GO1TUE=WWCL7'};$II416a98ae7fa9cea31fb38e835ee5e0dc::lIlIIIlIIIlIllII=pack('H18','1113676c6509776b66')^'YG3<:A882';$II416a98ae7fa9cea31fb38e835ee5e0dc::IIIlIIIIIlIIIIII=pack('H12','191e0d1d7e07')^'SWCQ7D'};sub getStats { my $this = shift; my $object = $this->getDecorated; return undef unless $object->stored; my $url = II3562149e53818b6637b38680e87ba918::IlIIllllllIlIIII($II7cf944b59c9c0fa6696a8c87e361790a::lllIlIlIlIIlIIII{$II416a98ae7fa9cea31fb38e835ee5e0dc::lIlIIIlIIIlIllII},47,$II7cf944b59c9c0fa6696a8c87e361790a::lllIlIlIlIIlIIII{$II416a98ae7fa9cea31fb38e835ee5e0dc::lIllIllIIIlllIll})->getURL . "/master/plugins/supros/stats.html?TabCustom2=$object->{id}"; return <<END;
<iframe
width="750" height="400" frameborder="0" name="IFrameSuproStats" id="IFrameSuproStats" src="$url">
</iframe>
END
} 1; 