<span style="font-family: courier new,monospace;">Isto se a infra deixar por que não está facil baixar nada da firefox hoje :) !!!<br><br>Solli M. Honório<br></span><br><div class="gmail_quote">2008/6/17 breno <<a href="mailto:breno@rio.pm.org">breno@rio.pm.org</a>>:<br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Pessoal,<br>
<br>
como vcs talvez saibam, hoje saiu o Firefox 3!!! E a Mozilla<br>
Foundation está fazendo um estardalhaço com o evento, querendo entrar<br>
para o Guinness ("Livro dos Recordes") como o maior número de<br>
downloads de um único software em 24h.<br>
<br>
Para quem quiser dar "uma maozinha" a eles, segue abaixo um pequeno<br>
programa que fica baixando o arquivo ad-eternun (leia-se até que vcs<br>
deliberadamente interrompam o programa com ctrl-c ou coisa que o<br>
valha):<br>
<br>
-------------------------8<-------------------------<br>
#!/usr/bin/perl<br>
use LWP::Simple;<br>
<br>
while (1) {<br>
if (defined<br>
(get('<a href="http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR%27%29" target="_blank">http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR')</a>))<br>
{<br>
print "sucesso!\n";<br>
}<br>
else {<br>
print "erro :(\n";<br>
}<br>
}<br>
-------------------------8<-------------------------<br>
<br>
Abaixo, versão para golfe, sem mensagens de sucesso ou falha (usando<br>
LWP::Simples. Alguém se habilita a fazer sem módulos?):<br>
<br>
-------------------------8<-------------------------<br>
use LWP::Simple;<br>
while (1) {get('<a href="http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR%27" target="_blank">http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR'</a>)}<br>
-------------------------8<-------------------------<br>
<br>
Note que ambas as versões acima do programa ficam baixando o programa<br>
eternamente mas descartam todo o conteúdo baixado. Se vcs quiserem de<br>
fato ter uma cópia do firefox 3 em disco, é preciso escrever o<br>
conteúdo baixado no sistema. Segue modificação em cima do código acima<br>
que continua baixando ad-eternum, mas se vc interromper o programa<br>
haverá um arquivo "ff3.exe" no diretório em que o programa foi<br>
executado, pronto para instalação!<br>
<br>
-------------------------8<-------------------------<br>
#!/usr/bin/perl<br>
use LWP::Simple;<br>
<br>
while (1) {<br>
if (defined (my $arq =<br>
get('<a href="http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR%27%29" target="_blank">http://download.mozilla.org/?product=firefox-3.0&os=win&lang=pt-BR')</a>))<br>
{<br>
print "sucesso!\n";<br>
open my $fh, '>', 'ff3.exe' or die "erro abrindo arquivo: $!\n";<br>
binmode ($fh);<br>
print $fh $arq;<br>
close $fh;<br>
}<br>
else {<br>
print "erro :(\n";<br>
}<br>
}<br>
-------------------------8<-------------------------<br>
<br>
Bom, pessoal, é isso. O programa pode ser separado em<br>
threads/processos ou simplesmente executado várias vezes caso vcs<br>
estejam com vontade de ajudar mesmo (ou não fazer mais nada na<br>
Internet, pq sua banda será bastante consumida nesse caso).<br>
<br>
De qq forma, e mesmo que vc não esteja absolutamente interessado em<br>
ajudá-los com o "download day" (que vai até amanhã à tarde para nós),<br>
o Firefox continua sendo um excelente navegador Web e a versão 3<br>
possui uma série de melhorias e avanços interessantes, valendo a<br>
olhada - mesmo que vcs decidam baixar só outro dia :-)<br>
<br>
[]s<br>
<br>
-b<br>
_______________________________________________<br>
Rio-pm mailing list<br>
<a href="mailto:Rio-pm@pm.org">Rio-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rio-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rio-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>"o animal satisfeito dorme". - Guimarães Rosa