#!/usr/bin/perl

while (defined ($_ = <STDIN>)) {
	if (!$notfirst) {
		if (!/doctype/i) {
			$_ = "<!-- start: all -->\n$_";
		} else {
			$_ .= "<!-- start: all -->\n";
		}
		$notfirst = 1;
	}
	if (m,</body\b,i and !$donelink) {
		$_ = qq{<a style="text-decoration: none;" href="/cgi-bin/editpage?Section=all">&nbsp;&nbsp;</a>\n$_};
		$donelink = 1;
	}
	print;
}
print "<!-- end: all -->\n";