massage-html

   1 #!/usr/bin/perl -wp
   2 # Books of Pumpkins, etc.  Extensions to Quacks of Quedlinburg
   3 #  SPDX-License-Identifier: GPL-3.0-or-later OR CC-BY-SA-4.0
   4 # Copyright 2020-2021 Ian Jackson
   5
   6 use strict;
   7 our $ttitle;
   8 our $utitle;
   9 BEGIN {
  10   my $md = shift @ARGV // die;
  11   open M, '<', $md or die "$md: $!";
  12   $ttitle = <M>;
  13   chomp $ttitle;
  14   $ttitle =~ s{^\%\s+}{} or die;
  15   $utitle = "$ttitle - Quacks Books of Pumpkins";
  16 }
  17 s{Fm4YNbKyBNiS7TNu}{
  18   my $r = $utitle;
  19   $utitle = uc $ttitle;
  20   $r =~ s{\&}{&amp;};
  21   $r =~ s{\<}{&lt;};
  22   $r =~ s{\>}{&gt;};
  23   $r
  24 }ge;