#!/usr/bin/perl
#

$date_cmd2 =`/bin/date '+%d/%m/%Y'`;
$date2 = $date_cmd2;

$prog = substr ($0, rindex ($0, '/') + 1);
if ($#ARGV < 0) {             # imprimo usage si lo paso sin args
 print "usage: $prog nomarch(s)\n";
 print "  use: Saca los ^M de nomarch(s)\n";
 exit;
 }

foreach $nomarch (@ARGV) {
 if (! -e "$nomarch") {print "ERROR: no existe $nomarch inexistant\n";next;}
 open (FILEIN,"$nomarch") || die "ERROR: no puedo leer $nomarch: $!\n";

 $fileout = $nomarch;
 print $fileout if ($fileout =~ s/\?//);
 print $fileout if ($fileout =~ s/\&//);

 open (FILEOUT,">$fileout.html") || die "ERROR: no puedo crear $fileout.html: $!\n";

# Header fondos.com.ar 
 $print=0;

# while (<FILEIN>) {

     while (<FILEIN>) {

	 $_ =~ s/\"value\": (.*)/\"value\": \"$1\"/gi;

	 print FILEOUT $_;
     
}


# footer noticiasdot.com



 close (FILEIN);
 close (FILEOUT);

print "$nomarch\n";
 unlink ($nomarch) || die "ERROR: no puedo borrar archivo original $nomarch: $!\n";
 rename("$fileout.html",$nomarch) || die "ERROR: no puedo renombrar $fileout.html a $nomarch: $!\n";

}

