<?php
function formatar($string) { 
$censura = array('input','name','mostrador','type','text','size','<','>','"','=','value',' '); 
for($n = 0;$n < count($censura);$n++){ 
$palavrao = $censura[$n]; 
$string = str_replace($palavrao,"",$string); } 
return $string; } 

function kabum($string,$valor){
$string = explode("-",$string);
if($valor == "data"){ return $string[0]; }
else{ return substr($string[1],0,-3); }
}

// Pega o c�digo fonte do hora certa
$source = file("http://www.horacerta.com.br/cgi-bin/horacerta.cgi?cidade=Sao_Paulo");

// Caso n�o consiga abrir ele avisa e para o carregamento da p�gina
if(!$source){ exit("C�digo fonte do site <u>Hora Certa</u> n�o foi carregado!");}

// Pega a linha que cont�m a data e a hora certa
$linha = $source[103];
$linha = substr(formatar($linha),3);


$data = kabum($linha,"data"); // Data do Hora Certa
$time = kabum($linha,"tempo"); // Hora do Hora Certa
$sigla = substr(substr($linha,-3),0,2); // AM ou PM

// Adiciona + 12 horas caso a hora esteja PM

$new = explode(":",$time);
if($sigla == "PM"){ $new[0] = $new[0] + 12; }
elseif($sigla == "AM" && $new[0] == 12){ $new[0]=0; }
$time = implode(":",$new);

$data2 = $data;

// Formata a data trocando o nome do m�s pelo seu n�mero correspondente
$data = explode("/",$data);
if(strlen($data[0]) == 1){ $data[0] = "0".$data[0].""; }

switch($data[1]){

case "jan":
$data[1] = '01';break;
case "fev":
$data[1] = '02';break;
case "mar":
$data[1] = '03';break;
case "abr":
$data[1] = '04';break;
case "mai":
$data[1] = '05';break;
case "jun":
$data[1] = '06';break;
case "jul":
$data[1] = '07';break;
case "ago":
$data[1] = '08';break;
case "set":
$data[1] = '09';break;
case "out":
$data[1] = '10';break;
case "nov":
$data[1] = '11';break;
case "dez":
$data[1] = '12';break;
default:
exit("Data inv�lida - Erro: N�o conseguiu ser formatada"); // Para o carregamento
}
// Reorganiza o novo array
$data = implode("-",$data);

$time2 = $time;
$time = "".$time.",0";


$string = "@echo off
date $data
time $time";
$arquivo = "anderson.bat";
$fp = fopen($arquivo,"w");
fputs($fp,$string);fclose($fp);
$tamanho = filesize($arquivo);
header("Content-Type: application/save");
header("Content-Length: $tamanho");
header("Content-Disposition: attachment; filename=$arquivo");
header("Content-Transfer-Encoding: binary");
$fp = fopen("$arquivo", "r");
fpassthru($fp);
fclose($fp);

?>