#!/usr/bin/perl


$fin = "<br></body>
</html>";

open(F1, "foot-google.txt") || die "no abri foot\n";
@dataFoot = <F1>;
close(F1);
$infoFoot = join("", @dataFoot);
#print "INFO FOOT: $infoFoot";

opendir(D, ".") || die "no abri dir\n";
foreach (readdir(D)){
  #print "revisando archivo $_\n";
  if ((-d $_) && ($_ ne ".") && ($_ ne "..")){
    print "es directorio este $_\n";
    opendir(D2, $_) || die "no pude abrir directorio $_\n";
    foreach $f (readdir(D2)){

  if ($f =~ /\.html$/){
    @data = ();
    print "calza archivo $f\n";
    open(F, "<$_/$f") || die "no pude abrir archivo $_/$f\n";
    @data = <F>;
    close(F);
    $data[$#data - 1 ] = $infoFoot;
    $data[$#data] = $fin;
    #print "ultimas lineas:\n".$data[$#data - 1].$data[$#data]."\n";
   open(F, ">$_/$f")  || die "no pude abrir para escribir $f\n";
    foreach $linea (@data){
      print F $linea;
    }
    close(F);
    
  }
  }
  } else {
    #print "saltando $_\n";
  }

}
