package II982446f8950cc3dc59e487adba22df54; use strict 'vars'; use base qw/II720d6e18aa34327713eb014408fc9144/; use Zen; use Zen::PerlHandler; use IIb39071a48a82a07eeb9256f406abebc5; use II8dae0e141ee45f5daba6a74e4a7c3b6f; BEGIN{*II982446f8950cc3dc59e487adba22df54::llIIlIllIIIIIIlI=\%{pack('H6','787813')^'=6E'};*II982446f8950cc3dc59e487adba22df54::IIllIIllIIIlllll=\&{pack('H24','2b20262b0f7a306b0c20380d')^'FAOE5@CS;B@9'};$II982446f8950cc3dc59e487adba22df54::IllllIlIIIlIIIII=pack('H18','0d0310096c07750a05')^'EWDY3O:YQ';$II982446f8950cc3dc59e487adba22df54::IlIllIlIlIIlIlll=pack('H12','0c04060b0b08')^'FMHGBK'};sub new { my ($class, $tmpl, $param) = @_; die('call get() instead of new()') unless (caller(1))[3] =~ /::get$/; my $this = $class->SUPER::new; $tmpl =~ s!//+!/!g; $this->{param} = $param; $this->{tmpl} = $tmpl; $this->{code} = II982446f8950cc3dc59e487adba22df54::IlIlllIlIIlIllll($IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIllIllIllI{$II720d6e18aa34327713eb014408fc9144::IlllllIlIIIIlIll},985,$IIb39071a48a82a07eeb9256f406abebc5::lIIlIlIllIllIllI{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllllIIIIIlIllIl})->getResult("goth$tmpl", $class->compilerCallback($param)); return unless defined $this->{code}; die "not code: tmpl [$tmpl]" unless ref $this->{code} eq 'CODE'; $this; } BEGIN{*II982446f8950cc3dc59e487adba22df54::lIlIllIlIlIIlIll=\%{pack('H6','147e62')^'Q04'};*II982446f8950cc3dc59e487adba22df54::IIllllIlIIllIIII=\&{pack('H24','5724255660693a080953327f')^':EL8ZSI0>1JK'};$II982446f8950cc3dc59e487adba22df54::lIIlIlIIIIIIllII=pack('H18','760c66061578021869')^'>X2VJ0MK=';$II982446f8950cc3dc59e487adba22df54::IlllIIIIllIIlIII=pack('H12','7f04187f0700')^'5MV3NC'};sub compilerCallback { my $class = shift; my $param = shift; my $callback = sub { my $f = shift; require IIa66da94aed9b371a0ee16b72f938ea09; my $compiler = II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIIllIIllIlIIll($II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlllIIIlIIIlIlI{$IIb39071a48a82a07eeb9256f406abebc5::lIlIlIllIlllIIII},1019,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlllIIIlIIIlIlI{$IIb39071a48a82a07eeb9256f406abebc5::llIIllIlIIlIllII})->new($param); return $compiler->compile($f); }; $callback; } BEGIN{*II982446f8950cc3dc59e487adba22df54::IIlIllIIIllllIIl=\%{pack('H6','0f171f')^'JYI'};*II982446f8950cc3dc59e487adba22df54::lllllIllIlIllllI=\&{pack('H24','3e38213b0377356d6d32340c')^'SYHU9MFUZPL8'};$II982446f8950cc3dc59e487adba22df54::lIIlIlIlllIIllIl=pack('H18','021d1769620d0f196f')^'JIC9=E@J;';$II982446f8950cc3dc59e487adba22df54::llllllIlIIIIllII=pack('H12','7005160d7116')^':LXA8U'};sub execute { my ($this, $C) = @_; die("empty code to execute for tmpl [$this->{tmpl}]") unless $this->{code}; $this->{C} = $C || {}; $this->ctxGlobal; my $output = []; $this->{Output} = $output; no strict 'subs'; &{$this->{code}}($this); $output; } BEGIN{*II982446f8950cc3dc59e487adba22df54::lIlIIlIIllIlIIIl=\%{pack('H6','7e7000')^';>V'};*II982446f8950cc3dc59e487adba22df54::IlIlllIlIIlIllll=\&{pack('H24','3f23305b6b0d44026d574765')^'RBY5Q77:Z5?Q'};$II982446f8950cc3dc59e487adba22df54::IlIllIIIlllIlIll=pack('H18','1011020115020b0a07')^'XEVQJJDYS';$II982446f8950cc3dc59e487adba22df54::lllIIlIlIIIIlIlI=pack('H12','781b0477090b')^'2RJ;@H'};sub executeCode { my ($class, $C, $code) = @_; die("empty code to execute") unless $code; my $this = $class->SUPER::new; $this->{code} = eval "$code"; die($@) if $@; $this->execute($C); } BEGIN{*II982446f8950cc3dc59e487adba22df54::lllllllIIlllIIIl=\%{pack('H6','0f7500')^'J;V'};*II982446f8950cc3dc59e487adba22df54::lllIllIIIlllIIIl=\&{pack('H24','3f2f335b6802376b742b4473')^'RNZ5R8DSCI<G'};$II982446f8950cc3dc59e487adba22df54::llIIIllIlllIllII=pack('H18','77696d191c1f03681f')^'?=9ICWL;K';$II982446f8950cc3dc59e487adba22df54::lIIlllIlIllllIIl=pack('H12','1c00711d7f77')^'VI?Q64'};sub mkfile { my ($class, $file, $tmpl, $C) = @_;
warn "MKFILE [$file] [$tmpl]\n";
my $G = II720d6e18aa34327713eb014408fc9144::llllIlIlIIIIIIlI($II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$IIb39071a48a82a07eeb9256f406abebc5::IllIlIIllIlIIIll},987,$II720d6e18aa34327713eb014408fc9144::lIIIlIlIlllIIIll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IllllIIIIIlIllIl})->get($tmpl) or die "template not found [$tmpl]"; my $out = $G->execute($C); II8dae0e141ee45f5daba6a74e4a7c3b6f::IIlIlIlIIIlIIlll($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II982446f8950cc3dc59e487adba22df54::llIlIIlllIlIlIlI},1004,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II982446f8950cc3dc59e487adba22df54::IllIIIlIllllIlll})->new('/')->writeLines($file, $out); return; } BEGIN{*II982446f8950cc3dc59e487adba22df54::lIlllIlllIIIIllI=\%{pack('H6','770c14')^'2BB'};*II982446f8950cc3dc59e487adba22df54::lIlIIIlIIllIIlIl=\&{pack('H24','552a3e2c020f430605513865')^'8KWB850>23@Q'};$II982446f8950cc3dc59e487adba22df54::llIllIIIIIIIlIIl=pack('H18','0c18076b1905756f1d')^'DLS;FM:<I';$II982446f8950cc3dc59e487adba22df54::lIlIlllIIIlIlIll=pack('H12','0d7c0b0d0e19')^'G5EAGZ'};sub out { my $this = shift; push @{ $this->{Output} }, @_; } BEGIN{*II982446f8950cc3dc59e487adba22df54::IllIIIlllllIIlll=\%{pack('H6','147567')^'Q;1'};*II982446f8950cc3dc59e487adba22df54::lIIlIIlIlIIlIlIl=\&{pack('H24','293524290a0e3a056e334c75')^'DTMG04I=YQ4A'};$II982446f8950cc3dc59e487adba22df54::llIlIIlllIlIlIlI=pack('H18','0f6010101a7c011a10')^'G4D@E4NID';$II982446f8950cc3dc59e487adba22df54::IllIIIlIllllIlll=pack('H12','740c06071e7f')^'>EHKW<'};sub replaceOutput { my $this = shift; push @{ $this->{OutputStack} ||= [] }, $this->{Output}; $this->{Output} = shift; } BEGIN{*II982446f8950cc3dc59e487adba22df54::IIllllIlIIIIIlll=\%{pack('H6','757d06')^'03P'};*II982446f8950cc3dc59e487adba22df54::IIIlIIlIllIIIlIl=\&{pack('H24','225f5856706032077a502a0c')^'O>18JZA?M2R8'};$II982446f8950cc3dc59e487adba22df54::IIIllIlIlIIIllII=pack('H18','0913001d6a051b1b60')^'AGTM5MTH4';$II982446f8950cc3dc59e487adba22df54::IIIIIIlIIlIlIIlI=pack('H12','10770e001870')^'Z>@LQ3'};sub restoreOutput { my $this = shift; my $output = $this->{Output}; $this->{Output} = pop @{ $this->{OutputStack} }; $output; } BEGIN{*II982446f8950cc3dc59e487adba22df54::lIlllIllIIlIIlll=\%{pack('H6','03001c')^'FNJ'};*II982446f8950cc3dc59e487adba22df54::lIlllIllllIlIIlI=\&{pack('H24','242b5a500768406a03303061')^'IJ3>=R3R4RHU'};$II982446f8950cc3dc59e487adba22df54::IIlIIIIIlIIlIllI=pack('H18','1c6d6003171974650c')^'T94SHQ;6X';$II982446f8950cc3dc59e487adba22df54::lIIlIIIIIlIlIllI=pack('H12','18097f010417')^'R@1MMT'};sub getOutput { my $this = shift; $this->{Output}; } BEGIN{*II982446f8950cc3dc59e487adba22df54::lIIIIIIIIIlIIlIl=\%{pack('H6','031b1f')^'FUI'};*II982446f8950cc3dc59e487adba22df54::lIlIllIlllllIlll=\&{pack('H24','34202e5a7a7f406905253764')^'YAG4@E3Q2GOP'};$II982446f8950cc3dc59e487adba22df54::IlIIlllIIIllIIII=pack('H18','771d1465070201190d')^'?I@5XJNJY';$II982446f8950cc3dc59e487adba22df54::IllIIllIIIIlIIll=pack('H12','1d010d7f0002')^'WHC3IA'};sub getCtx { my $this = shift; $this->{C} or die('no ctx'); } BEGIN{*II982446f8950cc3dc59e487adba22df54::IlllIlIlllIIllIl=\%{pack('H6','02166f')^'GX9'};*II982446f8950cc3dc59e487adba22df54::IIlllIlIIllIIlll=\&{pack('H24','2d52575f6b7c4b0d7b523406')^'@3>1QF85L0L2'};$II982446f8950cc3dc59e487adba22df54::IIlIllllIlIIllIl=pack('H18','1d0367180a050c6f60')^'UW3HUMC<4';$II982446f8950cc3dc59e487adba22df54::llIlIIIIllllIIII=pack('H12','037f7e1f7870')^'I60S13'};sub ctxGlobal { my $this = shift; $this->{C}{ENV} = \%ENV; $this->{C}{SUPER} = Zen->engine; $this->{C}{CONST} = { NBSP => "&nbsp;", }; my $request = Zen->hasRequest; if ($request) { $this->{C}{INPUT} = $request->getInput; $this->{C}{COOKIE} = $request->getCookie; $this->{C}{SELF_URL} = $request->getURL; $this->{C}{SELF_URL_NO_QS} = $request->getURLnoQS; $this->{C}{SELF_URI_NO_QS} = $request->getURInoQS; } $this; } 1; 