#!/usr/bin/perl

$fecha = `date +%m%d%Y`;
$fecha =~s/\n//gi;
$esco = '<HTML>
<HEAD>
	<meta http-equiv="Refresh" content="0; url=/archivo/'.$fecha.'/escolar.html" />
	<title></title>
</HEAD>
<BODY>
</BODY>
</HTML>'; 

print $esco;

$crec = '<HTML>
<HEAD>
	<meta http-equiv="Refresh" content="0; url=/archivo/'.$fecha.'/creciendo.html" />
	<title></title>
</HEAD>
<BODY>
</BODY>
</HTML>';


if (-e "/home/diaadia/public_html/archivo/".$fecha."/escolar.html"){
	open (ESCOLA, ">/home/diaadia/public_html/archivo/actualizar/escolar.html");
	print ESCOLA $esco;
	close (ESCOLA);
};

if (-e "/home/diaadia/public_html/archivo/".$fecha."/creciendo.html"){
	open (CRECI, ">/home/diaadia/public_html/archivo/actualizar/creciendo.html");	
	print CRECI $crec;
	close (CRECI);
};

