Your browser doesn't appear to be accepting my cookies.
Don't share the link to this page with other people. If you do, they'll be able to edit this paste just as you can, using the Edit link at the top of the page.
Instead, share this link: "><% "$Odin::PASTEBIN/$tag" |h %>
% if ($lang eq 'txt') {
<% $content |h %>\
% } else {
<%perl>
my $kid = open my $fh, "-|" // die "fork: $!";
if ($kid == 0) {
open my $hl, "|-", "highlight", "-Ohtml", "-f", "-t8", "-S$lang"
or die "open highlight: $!";
syswrite $hl, $content // die "highlight write: $!";
close $hl or die "highlight kid: $!, $?";
exit 0;
} else {
while (sysread $fh, my $buf, 8192) { $m->print($buf); }
close $fh and waitpid $kid, 0
or die "highlight parent: $!, $?";
}
% }
%#
<%args>
$content
$title
$lang
$tag
$honc
$edit
%#
<%init>
my $db = Odin::open_db;
%#
<%once>
use utf8;