#!FOOPERL

#
# Copyright (c) Xerox Corporation 1997, 1998. All rights reserved.
#
# License is granted to copy, to use, and to make and to use derivative
# works, provided that Xerox is acknowledged in all documentation
# pertaining to any such copy or derivative work. Xerox grants no other
# licenses expressed or implied. The Xerox trade name should not be used
# in any advertising without its written permission.
#
# XEROX CORPORATION MAKES NO REPRESENTATIONS CONCERNING EITHER THE
# MERCHANTABILITY OF THIS SOFTWARE OR THE SUITABILITY OF THIS SOFTWARE
# FOR ANY PARTICULAR PURPOSE.  The software is provided "as is" without
# express or implied warranty of any kind.
#
# These notices must be retained in any copies of any part of this software.
#

open(HTMLMAKER,">htmlmaker") || die "can't create htmlmaker file\n";

open(FILE, "preamble") || die "can't open preamble file\n";
while($line = <FILE>) {
    print HTMLMAKER "$line";
}
close(FILE);

foreach $file 
(main,rtemon,stats,update,archive,hour,week,month,as,html,util,error) { 
    open(FILE, "$file") || die "can't open preamble file\n";
    while($line = <FILE>) {
	if ($line =~ /^(\s)*#/) {
	   #skip the comments;
        } else {
	   print HTMLMAKER "$line";
        }
    }
    close(FILE);
}
close(HTMLMAKER);
