package IIc4465d99e56b7bc627a7b42ab7169f3a; use strict 'vars'; use base qw /II720d6e18aa34327713eb014408fc9144/; use Zen; use IIedc3417b3b246250508c70cb08344002; use Zen::PerlHandler; BEGIN{*IIc4465d99e56b7bc627a7b42ab7169f3a::llIIIlllIllIIIIl=\%{pack('H6','780603')^'=HU'};*IIc4465d99e56b7bc627a7b42ab7169f3a::lllIIIlIlIIllIlI=\&{pack('H24','295a58387f083f7c7822300c')^'D;1VE2LDO@H8'};$IIc4465d99e56b7bc627a7b42ab7169f3a::llIIllIlllllIIll=pack('H18','18106f61087e781160')^'PD;1W67B4';$IIc4465d99e56b7bc627a7b42ab7169f3a::llIIIIllIIIlIIll=pack('H12','761a781a7b77')^'<S6V24'};sub process { my $class = shift; my $controller = $class->new; my $request = II720d6e18aa34327713eb014408fc9144::IlIlIlIIIIllIlII($IIedc3417b3b246250508c70cb08344002::llllIlIlIIIllIll{$IIedc3417b3b246250508c70cb08344002::IIlllIlllIIIllIl},995,$IIedc3417b3b246250508c70cb08344002::llllIlIlIIIllIll{$IIedc3417b3b246250508c70cb08344002::IlIlIIlIlIlIlIII})->new; Zen->setRequest($request); $controller->processRequest($request); $request->finish; } BEGIN{*IIc4465d99e56b7bc627a7b42ab7169f3a::IlllllIllIllIIII=\%{pack('H6','780215')^'=LC'};*IIc4465d99e56b7bc627a7b42ab7169f3a::lIIIlIlIIIIlIIII=\&{pack('H24','55333158766e347b6e304964')^'8RX6LTGCYR1P'};$IIc4465d99e56b7bc627a7b42ab7169f3a::lllllllllIlIllIl=pack('H18','01680e696503190b15')^'I<Z9:KVXA';$IIc4465d99e56b7bc627a7b42ab7169f3a::IlIIIIlIllIllllI=pack('H12','037a75090f73')^'I3;EF0'};sub processRequest { my $this = shift; my $request = shift; $ENV{HTTP_COOKIE} =~ s/\$Version=1;\s*//g; $ENV{HTTP_COOKIE} =~ s#;\s*\$Path=/##g; for my $map (@{ $this->{mapping} }) { if (my (@capture) = $ENV{PATH_INFO} =~ $map->{regex}) { $map->{handler}->do($this, $request, @capture); last; } } return; } BEGIN{*IIc4465d99e56b7bc627a7b42ab7169f3a::llllllIllIlllIll=\%{pack('H6','070907')^'BGQ'};*IIc4465d99e56b7bc627a7b42ab7169f3a::llIlIlIIlIIlIlll=\&{pack('H24','3c383a386962430f0e294d6e')^'QYSVSX079K5Z'};$IIc4465d99e56b7bc627a7b42ab7169f3a::lIlIlIIlllIlIIll=pack('H18','091363616b040e6601')^'AG714LA5U';$IIc4465d99e56b7bc627a7b42ab7169f3a::lIIIIIIIIlIIlIIl=pack('H12','1818767b1873')^'RQ87Q0'};sub new { my $class = shift; my $this = $class->SUPER::new; $this->initMapping; $this; } BEGIN{*IIc4465d99e56b7bc627a7b42ab7169f3a::lIlIIlllIllIIlII=\%{pack('H6','717916')^'47@'};*IIc4465d99e56b7bc627a7b42ab7169f3a::lIIIllllllIIIlII=\&{pack('H24','565155200b753e0d605d4072')^';0<N1OM5W?8F'};$IIc4465d99e56b7bc627a7b42ab7169f3a::llllIlIlllIIIIIl=pack('H18','706802081a771f1b61')^'8<VXE?PH5';$IIc4465d99e56b7bc627a7b42ab7169f3a::IllllllllIIlllIl=pack('H12','1903727d1e0e')^'SJ<1WM'};sub initMapping { my $this = shift; my $cfg = $this->cfg; $this->{mapping} = []; my ($regex, $handler); for my $map (keys %{ $cfg->{mapping} }) { ($regex = $map) =~ s/\*/(.*?)/g; $handler = Zen::PerlHandler->get($cfg->{mapping}{$map}) or die "empty handler for mapping [$map]"; push @{ $this->{mapping} }, { regex => qr/^$regex$/, handler => $handler, }; } return; } 1; 