package IIc4465d99e56b7bc627a7b42ab7169f3a::Template; use strict; use base qw /II720d6e18aa34327713eb014408fc9144/; use II982446f8950cc3dc59e487adba22df54; use IIc4465d99e56b7bc627a7b42ab7169f3a::MIME; sub process { my $class = shift; my ($controller, $request, $tmpl) = @_; if ($^O =~ /win/i) { binmode STDOUT; } if (my $G = IIb39071a48a82a07eeb9256f406abebc5::IIllIIllIllIlIII($II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$II720d6e18aa34327713eb014408fc9144::IIIllIIlIlllIIll},987,$II8dae0e141ee45f5daba6a74e4a7c3b6f::IIllllIllllllIll{$II8dae0e141ee45f5daba6a74e4a7c3b6f::IlIlllllIllIIlIl})->get($tmpl)) { if (my $out = $G->execute($request->getCtx)) { unless ($request->{F_NO_HEADERS}) { my ($ext) = $tmpl =~ /\.(\w+)$/; my $mime = $MIME{$ext}; $request->printHeader($mime); } print @$out; } } else { $request->bluescreen('url', $tmpl); } } 1; 