File: mkhtml

package info (click to toggle)
html2wml 0.4.11%2Bdfsg-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 816 kB
  • sloc: perl: 2,380; ansic: 56; makefile: 34; sh: 4
file content (6 lines) | stat: -rwxr-xr-x 381 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
 
#!/bin/sh

perl -pi -e '/name="__index__"/i .. s|<ul>|<ul id="index"><b>Table of contents</b>|i' *.html
perl -pi -e 's|^<link|<link rel="home" href="http://html2wml.org/">\n<link|i' *.html
perl -pi -e 's|root\@law.uucp|mad\@maddingue.org|' *.html
perl -e 'while($f=shift){open(F,$f)||die$!;$/=undef;$s=<F>;$s=~s|</pre>\n<pre>||gi;open(F,">$f")||die$!;print F $s;close(F);}' *.html