#!/usr/bin/perl
use strict;
use warnings;
use CGI::Carp qw/fatalsToBrowser/;
use lib qw[/home/wakaba/work/manakai2/lib];
use Message::CGI::Util qw/htescape/;
require Message::CGI::HTTP;
my $cgi = Message::CGI::HTTP->new;
$cgi->{decoder}->{'#default'} = sub {
return Encode::decode ('utf-8', $_[1]);
};
my $input = my $input_orig = $cgi->get_parameter ('s');
my $charset = $cgi->get_parameter ('c') || 'utf-8';
$input = Encode::encode ($charset, $input);
$input =~ s/\x0D\x0A/\x0A/g;
$input =~ tr/\x0D/\x0A/;
print "Content-Type: text/html; charset=utf-8\n\n";
my $output = '';
if (length $input) {
require Template;
my $template = Template->new ({
INCLUDE_PATH => '/tmp/no-such-directory/',
});
$template->process (\$input, {}, \$output) or $output = $template->error;
}
print qq[
TT Viewer
Result
];