#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
use LWP::Simple;
use Template;
my $cgi = CGI->new;
print $cgi->header;
my $source;
if ($cgi->param('fetch')) {
$source = LWP::Simple::get($cgi->param('url'));
}
my $template = Template->new({
INCLUDE_PATH => '/usr/local/tt2/templates'
});
$template->process(\*DATA, {cgi => $cgi, source => $source});
__DATA__
[% WRAPPER html/page html.head.title = 'view source' %]
[% IF source %]
[% FILTER html %][% source %][% END %]
[% END %]
[% END %]
####
#!/usr/bin/perl -T
use strict;
use warnings;
use CGI;
use LWP::Simple;
use HTML::Template;
my $cgi = CGI->new;
my $template = HTML::Template->new(
filehandle => \*DATA,
associate => $cgi,
);
if ($cgi->param('fetch')) {
$template->param(source => LWP::Simple::get($cgi->param('url')));
}
print $cgi->header, $template->output;
__DATA__
view source