#!/usr/bin/perl -w

open COPYOLD, "< index.html";
  @copyold = <COPYOLD>;
close COPYOLD;
open OLDCOPY, "> index.html.old";
  foreach $oldline (@copyold) {
    print OLDCOPY $oldline;
  }
close OLDCOPY;

open DISCLAIMER, "< disclaimer";
  @disclaimer = <DISCLAIMER>;
close DISCLAIMER;

print "Opening ham-links.html\n";

open HAMLINKS, "< ham-links.html";
  @hamlinks = <HAMLINKS>;
close HAMLINKS;

print "Opening new index.html file\n";

open INDEX, "> index.html";

print "Merging custom info to new index.html file\n";

foreach $hamlinks (@hamlinks) {
  if ($hamlinks =~ "<H1>Ham Radio Links</H1>") {
    foreach $disclaimer (@disclaimer) {
      print INDEX $disclaimer;
    }
  }
  elsif ($hamlinks =~ "</BODY>") {
print INDEX "<center>\n";
print INDEX "<font size=-2>\n";
print INDEX "<a href=\"http://www.nobarc.com\">Home</a>\&nbsp\;\&nbsp\;\n";
print INDEX "<a href=\"../activities\">Activities</a>\&nbsp\;\&nbsp\;\n";
print INDEX "<a href=\"../links\">UserLinks</a>\&nbsp\;\&nbsp\;\n";
print INDEX "<a href=\"../swap\">Swap</a>\&nbsp\;\&nbsp\;\n";
print INDEX "<a href=\"../biglinks\">BigList</a>\&nbsp\;\&nbsp\;\n";
print INDEX "<a href=\"../members\">Members</a>\&nbsp\;\&nbsp\;\n";
print INDEX "<a href=\"../weather\">Weather</a>\n";
print INDEX "</center>\n";

    print INDEX "\n<p>\n<font size=+2><a href=\"http://www.nobarc.com\">";
    print INDEX "Back Home</a>\n<p>\n</BODY>\n";
  }
  else {
    print INDEX $hamlinks;
  }
}


close INDEX;

print "New index.html file completed.\n";