#!/usr/bin/perl -pi

#
# Add an image. This is better supported in later versions of SGML tools,
# but there were other problems with it, so I've stuck to 0.99.
# Stephen Wynne <stevemw@place.org> June 1998
#

if (/^(<H1> java-linux\@java.blackdown.org FAQ<\/H1>)/) {
    $replace = $1;
    s/$1.*\n//;
    print($replace, "\n");
    print('<A HREF="http://www.blackdown.org/java-linux.html">');
    print('<IMG SRC=javalinux.gif></A><BR>');
}