<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/usr/local/bin/perl
#
# $Date: 2002/12/18 05:55:22 $ 

for ($i=0; $i &lt;= $#ARGV; $i++) {
    $file = $ARGV[$i];
    system("/bin/cp $file $file.$$");
    open(IN, "$file.$$") or die "Unable to open $file\n";
    open(OUT, "&gt;$file") or die "Unable to create $file\n";

    while (&lt;IN&gt;) {
	print OUT $_;
	if (/&lt;!--X-NavButtons-Start--&gt;/) {
	    while (&lt;IN&gt;) {
		last  if /&lt;!--X-NavButtons-End--&gt;/;
	    }
	    print OUT "&lt;table width=\"100%\"&gt;&lt;tr&gt;&lt;td align=\"left\"&gt;&lt;nobr&gt;";
	    if ($i &gt; 0) {
		print OUT qq{[&lt;a href="}, $ARGV[$i-1], qq{"&gt;Prev&lt;/a&gt;]};
	    } else {
		print OUT qq{[Prev]};
	    }
	    print OUT "&lt;/nobr&gt;&lt;/td&gt;&lt;td align=\"center\" width=\"100%\"&gt;";
	    print OUT qq{[&lt;a href="faq.html"&gt;TOC&lt;/a&gt;]};
	    print OUT qq{[&lt;a href="../mhonarc.html"&gt;Manual&lt;/a&gt;]};
	    print OUT qq{[&lt;a href="http://www.mhonarc.org/"&gt;Home&lt;/a&gt;]};

	    print OUT "&lt;/td&gt;&lt;td align=\"right\"&gt;&lt;nobr&gt;";
	    if ($i &lt; $#ARGV) {
		print OUT qq{[&lt;a href="}, $ARGV[$i+1], qq{"&gt;Next&lt;/a&gt;]};
	    } else {
		print OUT qq{[Next]};
	    }
	    print OUT "&lt;/nobr&gt;&lt;/td&gt;&lt;/tr&gt;&lt;/table&gt;";
	    print OUT qq{\n&lt;/p&gt;\n&lt;!--X-NavButtons-End--&gt;\n};
	}
    }

    close IN;
    close OUT;
    unlink "$file.$$";
}

exit 0;
</pre></body></html>