package IIc4465d99e56b7bc627a7b42ab7169f3a::Suppl; use strict; use base qw /II720d6e18aa34327713eb014408fc9144/; use II8dae0e141ee45f5daba6a74e4a7c3b6f; use IIc4465d99e56b7bc627a7b42ab7169f3a::MIME; sub process { my $class = shift; my ($controller, $request, $file) = @_; my $data = II8dae0e141ee45f5daba6a74e4a7c3b6f::lllIllIIIllIllII($II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II720d6e18aa34327713eb014408fc9144::IlllllIlIIIIlIll},985,$II8dae0e141ee45f5daba6a74e4a7c3b6f::lIlllIlIlIlIlIll{$II720d6e18aa34327713eb014408fc9144::lIIlllIllIlIllll})->engineFileContent("suppl/$file"); if (defined $data) { my ($ext) = $file =~ /\.(\w+)$/; die "unknown extension [$ext]" unless $MIME{$ext}; my $This = $ENV{SCRIPT_NAME} . "/suppl/$file"; $This =~ s|/[^/]+$||; $data =~ s/\#\{THIS\}/$This/gs; print "Cache-Control: max-age=259200\n"; print "Content-type: $MIME{$ext}\n\n"; binmode STDOUT; print $data; } else { $request->bluescreen('url'); } } 1; 