1*41fbaed0Stron#!/bin/sh 2*41fbaed0Stron 3*41fbaed0Stron# Usage: hchangered oldfile newfile 4*41fbaed0Stron 5*41fbaed0Stron# hchangered - crude tool to red-color changes in HTML text. Text is 6*41fbaed0Stron# also underlined so it shows on monochrome printers. 7*41fbaed0Stron 8*41fbaed0Stron# Bugs: does not red-color text inside tables. Fascist software may 9*41fbaed0Stron# complain about tags being out of order. 10*41fbaed0Stron 11*41fbaed0Strondiff -e $1 $2 | (sed -n -e ' 12*41fbaed0Stron/[ac]$/{ 13*41fbaed0Stron p 14*41fbaed0Stron a\ 15*41fbaed0Stron<font color="red"><u> 16*41fbaed0Stron: loop 17*41fbaed0Stron n 18*41fbaed0Stron /^\.$/b done1 19*41fbaed0Stron p 20*41fbaed0Stron b loop 21*41fbaed0Stron: done1 22*41fbaed0Stron a\ 23*41fbaed0Stron</u></font>\ 24*41fbaed0Stron. 25*41fbaed0Stron b 26*41fbaed0Stron} 27*41fbaed0Stron/d$/{ 28*41fbaed0Stron a\ 29*41fbaed0Stron i\ 30*41fbaed0Stron<font color="red"><u>[DELETED]</u></font>\ 31*41fbaed0Stron. 32*41fbaed0Stron p 33*41fbaed0Stron b 34*41fbaed0Stron} 35*41fbaed0Stron'; echo '1,$p') | ed - $1 | perl -e ' 36*41fbaed0Stron$buf = join("", <STDIN>); 37*41fbaed0Stron$buf =~ s/pre>\s+<font/pre><font/g; 38*41fbaed0Stron$buf =~ s/font>\s+<\/pre/font><\/pre/g; 39*41fbaed0Stronprint $buf; 40*41fbaed0Stron' 41