#!/usr/bin/perl

$| = 1;

print "Generate filelist...";
open(FL, "find . -name '*.htm*' -print|" ) or die "Find error: $!\n";
@list = <FL>;
close FL;
print @list . "items\n";

while( $f = shift @list ){
	chomp $f;
	$cont = '';
	print "Process $f... read... ";
	open( IN, $f ) or die "Input file error '$f': $!\n";
	while($l = <IN>){
		#if( $l =~ /^><\/BODY/ ){
		if( $l =~ /^<!-- My banner code START -->/ ){
			#$user = "3790";
			#$rnd = int(rand(255));
			#$pid = int(rand(10000000-1));
			$cont .= "<!-- My banner code START -->
<br>
<!--#include virtual=\"/banner.php\" -->
<br>
<!-- My banner code START -->

</body>
</html>
";
			last ;
		} else { $cont .= $l; }
	}
	close IN;
	print " write ....";
	open( OUT, ">$f" ) or die "Output file error '$f': $!\n";
	print OUT $cont;
	close OUT;
	print "Done.\n";
}