#!/usr/bin/perl

@ls = `ls -w10 *.html`;
foreach $line(@ls){
chop $line;

open(DATA,"$line");
@LINES=<DATA>;
close(DATA);
$SIZE=@LINES;


open (DEST,">$line");

for ($i=0;$i<=$SIZE;$i++) {
   $_=$LINES[$i];

   if (/<TITLE/) {
	print DEST $_;
	print DEST <<EOF;
<!--\#include virtual="/DACafe/includes/top_\${Directory}.html"-->
EOF
;
		}
	else {
	print DEST $_;
		}
	}
print DEST <<EOF;
<!--\#include virtual="/DACafe/includes/footer_\${Directory}.html"-->
EOF
;
close(DEST);
	}

exit;