<html>
<head>
<style>
P
{
margin:0px;
padding:0px
}
body
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
</style>
</head>
<body>> From: luismottacampos@yahoo.co.uk<br>> Date: Fri, 15 Jun 2007 17:20:26 +0200<br><br>> Esta merda estah cheia de problemas, a comecar pela falta de <br>> documentacao.<br><br>Que boca suja! :-D<br><br>> Alguém pode por favor rodar o perlcritic nisto e mandar o <br>> resultado para a lista?<br>> Eu acho que a gente pode sugerir MUITAS melhorias.<br><br>Vai meus dois centavos. Fiquei com preguiça de fazer mais que isso:<br><br><code><br>#!/usr/bin/perl<br>use warnings;<br>use strict;<br>use CGI qw ( :standard );<br><br>use constant ARQUIVO => '/etc/squid/arquivos/liberados/dl_geral';<br>use constant SERVIDOR =><br> 'http://meuservidor.no-ip.info/arquivos/siteinexist.htm';<br><br>open( LIBERADOS, $arquivo );<br>my @linhas = <LIBERADOS>;<br>close(LIBERADOS);<br><br>my $site = param("site");<br>my $www = param("www");<br><br>open( LIBERADOS, '<', ARQUIVO );<br><br>my $linhas = "@linhas";<br><br>if ( $site eq /^[.]$/ ) {<br> print redirect(SERVIDOR);<br> close(LIBERADOS);<br> exit;<br>}<br><br>open( LIBERADOS, "$arquivo" );<br><br>if ( $linhas =~ /^(?:.)(.{2})+.$site/ ) {<br> print redirect (SERVIDOR);<br><br> close(LIBERADOS);<br> exit;<br>}<br><br>open( LIBERADOS, "$arquivo" );<br><br>if ( $linhas =~ m/^(\d{3}))+(?:.)+$site/ ) {<br> print redirect (SERVIDOR);<br> close(LIBERADOS);<br> exit;<br>}<br>else {<br> open( LIBERADOS, '+>>', ARQUIVO );<br> print LIBERADOS "\n$www$site";<br> close(LIBERADOS);<br><br> # argh! sem verificação se executou ou não isso!<br> # esse script rodar com setuid?<br> system("squid -k reconfigure");<br> print redirect (SERVIDOR);<br>}<br></code><br><br>temp.pl|10 col 1| Two-argument "open" used. See page 207 of PBP (Severity: 5)<br>temp.pl|10 col 1| Bareword file handle opened. See pages 202,204 of PBP (Severity: 5)<br>temp.pl|17 col 1| Bareword file handle opened. See pages 202,204 of PBP (Severity: 5)<br>temp.pl|27 col 1| Two-argument "open" used. See page 207 of PBP (Severity: 5)<br>temp.pl|27 col 1| Bareword file handle opened. See pages 202,204 of PBP (Severity: 5)<br>temp.pl|36 col 1| Two-argument "open" used. See page 207 of PBP (Severity: 5)<br>temp.pl|36 col 1| Bareword file handle opened. See pages 202,204 of PBP (Severity: 5)<br>temp.pl|44 col 5| Bareword file handle opened. See pages 202,204 of PBP (Severity: 5)<br><br>[]'s<br>Alceu<br><br><br /><hr />Make every IM count. Download Windows Live Messenger and join the i'm Initiative now. It's free. <a href='http://im.live.com/messenger/im/home/?source=TAGWL_June07' target='_new'>Make it count!</a></body>
</html>