2 title => Odin::escapify($m, $title) . " (odin.gg Paste Bin)" &>
3 <h1><tt>odin.gg</tt> Paste Bin: <% $title %></h1>
5 <span class="item"><a href="<% "$Odin::PASTEBIN/$tag?op=raw" %>">Raw</a></span>
7 <span class="item"><a href="<% "$Odin::PASTEBIN/$tag?edit=$edit" %>">Edit</a></span>
11 % if ($lang eq 'txt') {
15 my $kid = open my $fh, "-|" // die "fork: $!";
17 open my $hl, "|-", "highlight", "-Ohtml", "-f", "-t8", "-S$lang"
18 or die "open highlight: $!";
19 syswrite $hl, $content // die "highlight write: $!";
20 close $hl or die "highlight kid: $!, $?";
23 while (sysread $fh, my $buf, 8192) { $m->print($buf); }
24 close $fh and waitpid $kid, 0
25 or die "highlight parent: $!, $?";
41 my $db = Odin::open_db;