<?
## Script criado por Pedro Paulo ,html@uai.com.br www.htmlbr.cjb.net #
## Captura as �ltimas not�cias do Yahoo ##
## Envie Sugestoes ##
// Configuracoes
$tamanho_fonte = \"2\";
$fonte = \"arial\";
$cor_tabela = \"f5f5f5\";
$endereco = \"http://w1.br.yahoo.com/noticias/\";
$target = \"_blank\";
// Termina Configuracoes
$abrirurl = fopen(\"$endereco\", \"r\");
$ler= fread($abrirurl, 20000);
fclose($abrirurl);
$corta = ereg(\"<!--news index begin-->(.*)<p><center><table border=0 cellspacing=0>\", $ler, $substituicao);
$substituicao[1] = ereg_replace(\"href=\\\"\", \" target=$target href=\\\"\", $substituicao[1]);
$substituicao[1] = ereg_replace(\"href=\", \" target=$target href=\", $substituicao[1]);
$substituicao[1] = ereg_replace(\"dcdcdc\", \"$cor_tabela\", $substituicao[1]);
$substituicao[1] = ereg_replace(\"<ul>\", \"<font face=$fonte size=$tamanho_fonte>\", $substituicao[1]);
$substituicao[1] = ereg_replace(\"</ul>\", \"</font>\", $substituicao[1]);
$substituicao[1] = ereg_replace(\"<li>\", \"\", $substituicao[1]);
if ($substituicao[1] == \"\") {
echo \" <b><font size=\\\"2\\\" color=\\\"#FF0000\\\">Erro ocorrido, .</font></b>\";
} else {
$conteudo = $substituicao[1];
}
?>
<html>
<head>
<title>Yahoo Not�cias</title>
<? echo \"<base href=$endereco>\"; ?>
</head>
<body bgcolor=\"#ffffff\" link=\"#000080\">
<font face=\"arial\" size=\"4\"> �ltimas Not�cias do Yahoo Brasil (beta)</font><br>
><br><br>
<table width=\"600\"><tr><td>
<? echo $conteudo; ?>
</font>
</td></tr></table>
</body>
</html>