X-Git-Url: https://git.distorted.org.uk/~mdw/odin-cgi/blobdiff_plain/969db1ef94e92c88afaa35b683918b2bf33b87f0..b16468fbeaddea235a0ef105997b701e24eccefd:/mason/pastebin/%show diff --git a/mason/pastebin/%show b/mason/pastebin/%show index 9e6afab..cfa0f26 100644 --- a/mason/pastebin/%show +++ b/mason/pastebin/%show @@ -25,21 +25,8 @@ % } elsif ($lang =~ /^hl:(.*)$/) {
-<%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> +% filter "highlight", $m, $content, +% "highlight", "-Ohtml", "-f", "-t8", "-S$1";% } else {