bin/populate-lang-table, mason/pastebin/%show: Segregate `highlight' languages.

[odin-cgi] / mason / pastebin / %show

<&| SELF:wrapper,
	title => Odin::escapify($m, $title) . " (odin.gg Paste Bin)" &>
<h1><tt>odin.gg</tt> Paste Bin: <% $title %></h1>
<div class="menu">
  <span class="item"><a href="<% "$Odin::PASTEBIN/$tag?op=raw" |h %>">Raw</a></span>
% if (defined $edit) {
  <span class="item"><a href="<% "$Odin::PASTEBIN/$tag?edit=$edit" |h %>">Edit</a></span>
% }
  <span class="item"><a href="<% "$Odin::PASTEBIN/" |h %>">New</a></span>
</div>
% if (defined $honc) {
<div class="note">
<p>Your browser doesn't appear to be accepting my cookies.
<p>Don't share the link to this page with other people.  <b>If you do,
  they'll be able to edit this paste just as you can</b>, using the
  <b>Edit</b> link at the top of the page.
<p>Instead, share this link:
  <a href="<% "$Odin::PASTEBIN/$tag" |h %>"><%
    "$Odin::PASTEBIN/$tag" |h %></a>
</div>
% }
% if ($lang eq 'txt') {
<pre class="paste">
<% $content |h %>\
</pre>
% } elsif ($lang =~ /^hl:(.*)$/) {
<pre class="paste">
<%perl>
	my $hl_lang = $1;
	my $kid = open my $fh, "-|" // die "fork: $!";
	if ($kid == 0) {
	  open my $hl, "|-", "highlight", "-Ohtml", "-f", "-t8", "-S$hl_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: $!, $?";
	}
</%perl>
</pre>
% } else {
<div class="note">
<p>I don't know how to display content with language
  &lsquo;<% $lang |h %>&rsquo;.  This is a bug in the Pastebin program.
  Here's the raw text, in case that's useful.
</div>
<pre class="paste">
<% $content |h %>\
</pre>
% }
</&>
%#
<%args>
	$content
	$title
	$lang
	$tag
	$honc
	$edit
</%args>
%#
<%init>
	my $db = Odin::open_db;
</%init>
%#
<%once>
	use utf8;
</%once>