<? /* 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); } ?>