[Rio-pm] ajude o "firefox download day" com Perl!

[breno]

Ué, achei que o recorde era "software mais baixado em 24h", e não
"software mais baixado *por humanos* em 24h"... só estava tentando
ajudar :-/

Além disso, eu uso o firefox! Não estou forjando o destinatário ou
baixando para não usar. Só estou baixando mais vezes do que o
necessário :-)

[]s

-b

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