<?
/*
	Previs�o de tempo
	Retirado do cnn.com.br

	autor: Eduardo Scoz 
	email: eduardo@fundacentro.sc.gov.br

	Data: 20/12/2000

	Para utilizar este arquivo, basta cham�-lo
	de dentro de um arquivo php atrav�s do comando:

	include "tempo.php";


	A folha de estilos est� abaixo, e pode ser modificada, 
	contanto que n�o se mude o nome dos estilos
*/


$url = "http://www.cnn.com.br/tempo/cidades/sa/Brazil/AguaBrancaSBAB.html";
// Endere�o da p�gina do yahoo onde se encontra o tempo. 
// Outras cidades podem ser escolhidas. 
// Basta modificar esta vari�vel.

$arquivo = "/tmp/cnntempo.net.cache";   
// Vari�vel onde ser� guardado o arquivo txt. O diret�rio deve ter
// permiss�o de leitura e grava��o

$atualizacao = 43200; 
// N�mero inteiro em segundos. 
// 43200 = 12 em 12 horas



?>

<style><!--
.Bnr2, .Bnr2:link, .Bnr2:visited
{color:#ff6600;}

.Bnr3
{
font-family:arial,helvetica,sans-serif;
font-weight:bold;
font-size:22px;
color:#DD0000;
text-decoration:none;
}

.redtemps
{
font-family:arial,helvetica,sans-serif;
font-weight:bold;
font-size:14px;
color:#DD0000;
text-decoration:none;
}

.greytemps
{
font-family:arial,helvetica,sans-serif;
font-weight:bold;
font-size:14px;
color:#222222;
text-decoration:none;
}

.WHeader
{
font-family:arial,helvetica,sans-serif;
font-weight:bold;
font-size:14px;
color:#ff6600;
text-decoration:none;
}

.FSnPSmLt			
{
font-family:arial,helvetica,sans-serif;
color:#ffcc99;
size:12px;
}

.FSnPSmDk
{
font-family:arial,helvetica,sans-serif;
font-size:12px;
color:#000000;
}	

.FSnBSmDk12
{
font-family:arial,helvetica,sans-serif;
font-size:12px;
font-weight:bold;
color:#000000;
}	

--></style>


<?

$hora = split(" ", microtime());

srand((double)microtime()*1000000);
$atualizacao_rnd = 300 - rand(0, 600);

if ( (!(file_exists($arquivo))) || ((filectime($arquivo) + $atualizacao - $hora[1]) + $atualizacao_rnd < 0) || (!(filesize($arquivo))) ) {

    $arquivo_lei = fopen($url, 'r');
    if(!$arquivo_lei) {
        echo "Erro ao abrir o arquivo para leitura. Verifique se o diret�rio tem permiss�o para leitura e escrita.";
        exit;
    } else {
        $rf = fread($arquivo_lei, 200000);
        $grab = eregi("<TD WIDTH=\"155\" VALIGN=\"TOP\" BGCOLOR=\"#DDDDDD\">(.*)</TD>\n<!-- =========================== ", $rf, $printing);
		if (!$grab) {echo "nao pegou nada.. ";}
        $arquivo_esc = fopen($arquivo, 'w');
        if(!$arquivo_esc) {
            echo "Erro ao abrir o arquivo para escrita. Verifique se o diret�rio tem permiss�o para leitura e escrita.";
            exit;
        } else { 
		    fputs($arquivo_esc, $printing[1]); 
		}
        fclose($arquivo_esc);
    }
    fclose($arquivo_lei);
}


if (file_exists($arquivo)) {
    include($arquivo);
}
?>