From lechamps em terra.com.br Fri Feb 6 14:15:25 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] [Administrativia]: Virus solto no Cascavel.pm Message-ID: <4023F5DD.6050500@terra.com.br> Colegas Monges Como moderador desta lista, eu tenho notado o excessivo movimento de emails retornados (possivelmente forjados) para esta lista, de locais sem qualquer relação com os Cascavel Perl Mongers. Solicito aos participantes desta lista que verifiquem suas máquinas e procurem determinar a possibilidade de contaminações por vírus de email (em especial nos sistemas Micro$hit). Em caso de constatação de contaminação, por favor informem aos administradores da lista, de forma que nós possamos tomar providências para defender esta lista e todos os usuários desta comunidade contra estas infantilidades computacionais (também conhecidas como vírus de computador). Contando com a ajuda de todos, e esperando poder ajudar a quem tiver dificuldades, me despeço. May: Gods->bless( $you ); -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From glasswalk3r em yahoo.com.br Fri Feb 6 15:06:19 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] [Administrativia]: Virus solto no Cascavel.pm In-Reply-To: <4023F5DD.6050500@terra.com.br> References: <4023F5DD.6050500@terra.com.br> Message-ID: <20040206190619.24cec930@valhalla.localdomain> Olá, Acredito esse ser um problema em relação ao vírus MyDom (alguém me corrija se estiver errado em relação ao nome): ele envia emails "retornados" com remetentes forjados... e é claro com um arquivo em anexo para providenciar a eventual infecção. Para sistemas Microsoft, não é preciso sequer abrir o anexo, basta visualizar o email. Acredito que a forma de envio de emails com o endereço forjado deva funcionar de maneira semelhante como spammers recolhem endereços pela Internet. Eu tenho recebido mensagens assim aos montes... recentemente passei a usar o Bogofilter para minizar essas chatices. []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- I hope the ``Eurythmics'' practice birth control ... Some historians believe that on Fri, 06 Feb 2004 18:15:25 -0200 Luis Campos de Carvalho wrote: > Colegas Monges > > Como moderador desta lista, eu tenho notado o excessivo movimento de > emails retornados (possivelmente forjados) para esta lista, de locais > sem qualquer relação com os Cascavel Perl Mongers. > > Solicito aos participantes desta lista que verifiquem suas máquinas e > procurem determinar a possibilidade de contaminações por vírus de email > (em especial nos sistemas Micro$hit). > > Em caso de constatação de contaminação, por favor informem aos > administradores da lista, de forma que nós possamos tomar providências > para defender esta lista e todos os usuários desta comunidade contra > estas infantilidades computacionais (também conhecidas como vírus de > computador). > > Contando com a ajuda de todos, e esperando poder ajudar a quem tiver > dificuldades, me despeço. > > May: Gods->bless( $you ); > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm From lechamps em terra.com.br Mon Feb 9 05:51:43 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] [Administrativia]: Virus solto no Cascavel.pm In-Reply-To: <20040206190619.24cec930@valhalla.localdomain> References: <4023F5DD.6050500@terra.com.br> <20040206190619.24cec930@valhalla.localdomain> Message-ID: <4027744F.6010808@terra.com.br> Alceu Rodrigues de Freitas Junior wrote: > Olá, > > Acredito esse ser um problema em relação ao vírus MyDom (alguém > me corrija se estiver errado em relação ao nome): ele envia > emails "retornados" com remetentes forjados... e é claro com > um arquivo em anexo para providenciar a eventual infecção. Para > sistemas Microsoft, não é preciso sequer abrir o anexo, > basta visualizar o email. Obrigado pelas informações úteis, Alceu. E obrigado ao "Tio Bill" por todas as "facilidades" que permitiram aos sistemas Micro$hit chegarem a este "nível de evolução"... (: > Acredito que a forma de envio de emails com o endereço forjado > deva funcionar de maneira semelhante como spammers recolhem > endereços pela Internet. Não entendi isso aqui. (: Explica, por favor? > Eu tenho recebido mensagens assim aos montes... recentemente > passei a usar o Bogofilter para minizar essas chatices. Hey! Boa pedida! Que tal um link? Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From glasswalk3r em yahoo.com.br Sun Feb 8 20:11:39 2004 From: glasswalk3r em yahoo.com.br (Alceu Rodrigues de Freitas Junior) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] [Administrativia]: Virus solto no Cascavel.pm In-Reply-To: <4027744F.6010808@terra.com.br> References: <4023F5DD.6050500@terra.com.br> <20040206190619.24cec930@valhalla.localdomain> <4027744F.6010808@terra.com.br> Message-ID: <20040209001139.33a35d7a@valhalla.localdomain> Olá monges, Some historians believe that on Mon, 09 Feb 2004 09:51:43 -0200 Luis Campos de Carvalho wrote: > > Acredito esse ser um problema em relação ao vírus MyDom (alguém > > me corrija se estiver errado em relação ao nome): ele envia > > emails "retornados" com remetentes forjados... e é claro com > > um arquivo em anexo para providenciar a eventual infecção. Para > > sistemas Microsoft, não é preciso sequer abrir o anexo, > > basta visualizar o email. > > Obrigado pelas informações úteis, Alceu. > E obrigado ao "Tio Bill" por todas as "facilidades" que permitiram > aos sistemas Micro$hit chegarem a este "nível de evolução"... (: Gostou? Então vai aí mais algumas informações úteis relacionadas... A própria Micro$oft recomenda que se desabilite a função de "auto-visualização" para evitar problemas como este. Por que oferecer um recurso que compromete o sistema? A Micro$oft também vai descontinuar o Outlook Express... o software é tão ruim que eles desistiram de criar tantos patches para ele. Para usar o Outlook em versões novas, será necessário adquirir versões novas do pacote Office (não gratuíto, obviamente)... que provavelmente será incompatível com Windows NT e 98, que aliás também não são mais suportados. O vírus foi criado no intuito de criar uma rede de computadores "zumbis" para executar um ataque de DDOS nos sites da SCO e Microsoft. O site da SCO já está fora do ar por algum tempo (não sei se já voltou). As duas companhias botaram uma recompensa para quem entregar os meliantes... parece uma história do Velho Oeste. > > Acredito que a forma de envio de emails com o endereço forjado > > deva funcionar de maneira semelhante como spammers recolhem > > endereços pela Internet. > > Não entendi isso aqui. (: > Explica, por favor? Bem, o método de recolhimento de emails pela net acredito que os monges conheçam... os famosos robôs que ficam caçando emails em páginas html... existem outros métodos também, como comprar um cdrom com milhres de endereços de email na Sta Efigênia, mas não acho que seja esse o caso. O que o vírus faz é enviar um email, contendo seu endereço, como se você tivesse enviado uma mensagem à o endereço forjado, e a mensagem não pode ser entregue. Aí ele retorna seu email "enviado" a um destinatário XYZ, dizendo que não pode entregar a mensagem. Claro que com o vírus em anexo. O vírus deve também ler o livro de endereços do programa e enviar para os destinatários lá cadastrados. > > Eu tenho recebido mensagens assim aos montes... recentemente > > passei a usar o Bogofilter para minizar essas chatices. > > Hey! Boa pedida! > Que tal um link? Sem o intuito de fazer propagandas, mas a Revista do Linux, edição 45 dá um tutorial de como configurar o Sylpheed-Claws para utilizar o bogofilter. Sylpheed-Claws (clawss.sylpheed.org) é um cliente de email baseado no Sylpheed, mas com mais recursos que o original (muitos mais) e possui versão para Windows (eu recomendo como substituto ao Outlook, a interface inclusive é muito parecida). O Sylpheed é mais estável que o Sylpheed-Claws no entanto, eu já tive alguns crashes com ele. Bogofilter (http://bogofilter.sourceforge.net) é um filtro para emails baseado em algorítmo "Bayesian", que através de estatísticas, classifica emails como sendo SPAM ou HAM (emails "bons"). Em miúdos, você instala o bogofilter na estação de trabalho, e cria filtros no Sylpheed-Claws para classificar a mensagem utilizando o Bogofilter. O Bogofilter deve ser "treinado" dizendo o que é spam ou não, e para isso o tutorial ensina a criar botões para executar o bogofilter fazer isso. No entanto, a única utilidade que encontrei para o Bogofilter é não ter que ler as mensagens e descobrir que são SPAM: como a maioria dos provedores não oferece acesso IMAP, as mensagens são baixadas de qualquer maneira, e classificadas na própria máquina, o que não proporcia que se economize banda rejeitando o email ou deixando ele no servidor. O ideal é ter um filtro desse no servidor, e você o treinar classificando as mensagens manualmente. O Bogofilter funciona em linha de comando, e pode ser utilizado em conjunto com um servidor de email, mas nesse caso creio que seria melhor utilizar o SpamAssassin ou outro filtro de email para servidores. Não me recordo do nome agora, mas existe um filtro baseado em estatísticas como o Bogofilter, feito em Python, que classifica, após treinado, as mensagens em "SPAM", "HAM" e "Não tenho certeza". []'s -- Alceu Rodrigues de Freitas Junior -- glasswalk3r@yahoo.com.br PGP public key at http://www.imortais.cjb.net/addgb.html --------------------------------------------------------------- This file will self-destruct in five minutes. From nferraz em gnubis.com.br Wed Feb 18 16:45:15 2004 From: nferraz em gnubis.com.br (Nelson Ferraz) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] [Fwd: Vaga na FGV-EAESP] Message-ID: <4033EAFB.5070405@gnubis.com.br> Para informação... -------- Original Message -------- From: Andre Saito Estamos precisando de uma pessoa aqui na FGV para administrar o ambiente instrucional da Escola. Lembrei-me de nossa conversa e pensei que talvez você conheça alguém que possa indicar. A pessoa precisa ter capacidade técnica para assimilar o ambiente (conhecer Microsoft SQL Server, integração de dados com Oracle, PERL desejável, etc.), e também capacidade de gestão e sistematização (rever processos, redesenhar a arquitetura de informação, interagir com demais áreas e usuários finais, etc.). Algum conhecimento de design instrucional e de desenvolvimento e produção de conteúdo é desejável. Se você souber de alguém que tenha interesse, encaminha para mim. O início é imediato. From gabriel em webclube.com Thu Feb 26 09:11:03 2004 From: gabriel em webclube.com (Gabriel Vieira) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] OFF-TOPIC: Problema com SMTP + SASL Message-ID: <001301c3fc7a$c764fd80$ad57a8c0@fortalnet.com.br> Olá All, meio off topic, mas é que não consegui ajuda no google :~). E como de costume, recorro aos experientes desta lista quando tenho problemas que nem google resolve pra mim. :) É o seguinte, estou instalando num fbsd 4.7 sendmail 8.12 com smtp+sasl e esta tudo instalado certinhu soh que qndo tento mandar msg aparece isso -> "AUTH failure (CRAM-MD5): authentication failure (-13) incorrect digest response" dai ele nao pede por identificacao e usa o relay. Alguém sabe oq há?! :) Peço desculpas pelo abuso! Grato, Gabriel Vieira -------------- Próxima Parte ---------- Um anexo em HTML foi limpo... URL: http://mail.pm.org/pipermail/cascavel-pm/attachments/20040226/761b2c6b/attachment.htm From lscosta em uninet.com.br Thu Feb 26 16:31:29 2004 From: lscosta em uninet.com.br (Leandro Costa) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. Message-ID: <000401c3fcb8$ac9b8080$0500a8c0@deskcaf> PessoALL Estou querendo fazer uma Homepage utilizando o T2T, Mais nao entendo nada de perl.... entao estou precisando de uma ajudinha de vcs... Preciso de um comando (ou script) do linux que ao executar faca o seguinte: que varre o diretório e converte para .html todos os .t2t cuja data da última alteração seja mais recente que o seu respectivo .html Exemplo: /var/www/t2t/arq1.t2t data 22/12/2003 8:12 /var/www/t2t/arq2.t2t data 23/12/2003 8:13 /var/www/t2t/arq3.t2t data 24/12/2003 8:14 /var/www/t2t/arq4.t2t data 25/12/2003 8:15 /var/www/t2t/arq5.t2t data 01/01/2004 8:20 /var/www/t2t/arq6.t2t data 27/12/2003 9:18 /var/www/html/arq1.html data 22/12/2003 8:12 /var/www/html/arq2.html data 23/12/2003 8:13 /var/www/html/arq3.html data 24/12/2003 8:14 /var/www/html/arq4.html data 25/12/2003 8:15 /var/www/html/arq5.html data 26/12/2003 8:16 /var/www/html/arq6.html data 27/12/2003 8:17 Comparacao t2t html arq1 <-> arq1 = [ok] arq2 <-> arq2 = [ok] arq3 <-> arq3 = [ok] arq4 <-> arq4 = [ok] arq5 <-> arq5 = [diferente] 26/12/2003 8:16 <=> 01/01/2004 8:20 arq6 <-> arq6 = [diferente] 27/12/2003 8:17 <=> 27/12/2003 9:18 E tbem os arquivos que estiverem [diferente] leio o conteudo do arquivo e traga primeira linha do arquivo para uma variavel $titulo grato Leandro From lechamps em terra.com.br Fri Feb 27 07:46:45 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. In-Reply-To: <000401c3fcb8$ac9b8080$0500a8c0@deskcaf> References: <000401c3fcb8$ac9b8080$0500a8c0@deskcaf> Message-ID: <403F4A45.9070301@terra.com.br> Leandro Costa wrote: > PessoALL Oies, Leandro. 'Zuzu' legal? (: > Estou querendo fazer uma Homepage utilizando o T2T, > Mais nao entendo nada de perl.... entao estou precisando de uma > ajudinha de vcs... :-o Ohh!!! Vai começar justamente com um dos módulos mais legais de mexer? Benvindo ao mundo perl. > Preciso de um comando (ou script) do linux que ao executar faca > o seguinte: > > que varre o diretório e converte para .html todos os .t2t > cuja data da última alteração seja mais recente que o seu > respectivo .html > [silly example here] > Leandro, eu não sei quanto da documentação do Template::Toolkit você leu, mas para converter templates "*.t2t" para arquivos HTML "*.html" é preciso haver um contexto. Onde está o contexto que vai fornecer as informações necessárias para preencher as lacunas do template? > E tbem os arquivos que estiverem [diferente] > leio o conteudo do arquivo e traga primeira linha do arquivo para uma > variavel $titulo E você provavelmente vai tentar fazer (talvez manualmente) mais alguma coisa com eles... (: Que tal você fornecer um pouco mais de informação, e quem sabe alguém da lista não tem algo pronto, que resolve seu problema inteiro, e que você pode depois ainda usar para estudar? (: De qualquer forma, eu acho que a biblioteca do File::Stat e do File::Find tem parte da solução do seu problema... ambas são padrão da distribuição, e você deve ter na sua. Para ler documentação: no linux: perldoc File::Stat perldoc File::Find no windows, eu desconheço, mas alguém da lista deve ser capaz de completar. Estou no aguardo das suas informações. Putamplexos! -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= From lscosta em uninet.com.br Fri Feb 27 08:55:01 2004 From: lscosta em uninet.com.br (Leandro Costa) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. References: <000401c3fcb8$ac9b8080$0500a8c0@deskcaf> <403F4A45.9070301@terra.com.br> Message-ID: <003401c3fd41$add0a6e0$0500a8c0@deskcaf> Sorry, Esqueci de mencionar A conversao para o padrao a html e feito atraves de um script python http://txt2tags.sourceforge.net/pt - entao eu so preciso executar o comando: $ txt2tags -t html file.t2t Entao o script que preciso desenvolver: Seria o seguinte: - primeiro ele verifica se jah existe o arquivo html -arquivo html existe ? Sim - verifca a data do arquivo .t2t data maior ? "executa $ txt2tags -t html nomedoarquivo.t2t" - data menor nao faz nada. Nao - $ txt2tags -t html nomedoarquivo.t2t Entende meu amigo ? grato Leandro ----- Original Message ----- From: "Luis Campos de Carvalho" To: "Cascavel Perl Mongers" Sent: Friday, February 27, 2004 10:46 AM Subject: Re: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. > Leandro Costa wrote: > > PessoALL > > Oies, Leandro. > 'Zuzu' legal? (: > > > Estou querendo fazer uma Homepage utilizando o T2T, > > Mais nao entendo nada de perl.... entao estou precisando de uma > > ajudinha de vcs... > > :-o Ohh!!! > Vai começar justamente com um dos módulos mais legais de mexer? > Benvindo ao mundo perl. > > > Preciso de um comando (ou script) do linux que ao executar faca > > o seguinte: > > > > que varre o diretório e converte para .html todos os .t2t > > cuja data da última alteração seja mais recente que o seu > > respectivo .html > > > [silly example here] > > > > Leandro, eu não sei quanto da documentação do Template::Toolkit você > leu, mas para converter templates "*.t2t" para arquivos HTML "*.html" é > preciso haver um contexto. Onde está o contexto que vai fornecer as > informações necessárias para preencher as lacunas do template? > > > E tbem os arquivos que estiverem [diferente] > > leio o conteudo do arquivo e traga primeira linha do arquivo para uma > > variavel $titulo > > E você provavelmente vai tentar fazer (talvez manualmente) mais > alguma coisa com eles... (: Que tal você fornecer um pouco mais de > informação, e quem sabe alguém da lista não tem algo pronto, que resolve > seu problema inteiro, e que você pode depois ainda usar para estudar? (: > > De qualquer forma, eu acho que a biblioteca do File::Stat e do > File::Find tem parte da solução do seu problema... ambas são padrão da > distribuição, e você deve ter na sua. Para ler documentação: > > no linux: > > perldoc File::Stat > perldoc File::Find > > no windows, eu desconheço, mas alguém da lista deve ser capaz de > completar. > > Estou no aguardo das suas informações. > Putamplexos! > -- > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > Luis Campos de Carvalho is BSc in Comp Science, > PerlMonk [SiteDocClan], Cascavel-pm Moderator, > Unix Sys Admin && Certified Oracle DBA > http://br.geocities.com/monsieur_champs/ > =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > > From nferraz em phperl.com Fri Feb 27 10:40:47 2004 From: nferraz em phperl.com (Nelson Ferraz) Date: Mon Aug 2 21:26:52 2004 Subject: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. In-Reply-To: <003401c3fd41$add0a6e0$0500a8c0@deskcaf> References: <000401c3fcb8$ac9b8080$0500a8c0@deskcaf> <403F4A45.9070301@terra.com.br> <003401c3fd41$add0a6e0$0500a8c0@deskcaf> Message-ID: <403F730F.5070800@phperl.com> Leandro Costa wrote: > Entao o script que preciso desenvolver: > > Seria o seguinte: foreach my $tt2 (@ARGV) { my ($html) = $tt2 =~ s/\.tt2/\.html/i; my $tt2_mtime = (stat($tt2))[9]; my $html_mtime = (stat($html))[9]; > - primeiro ele verifica se jah existe o arquivo html > -arquivo html existe ? if (-f $html) { > Sim - verifca a data do arquivo .t2t data maior ? "executa $ > txt2tags -t html nomedoarquivo.t2t" - data menor nao faz nada. if ($tt2_mtime > $html_mtime) { system("txt2tags -t html $tt2"); } > Nao - $ txt2tags -t html nomedoarquivo.t2t } else { system("txt2tags -t html $tt2"); } } Para executar o script acima, você deve passar os nomes de arquivo através da linha de comando. Exemplo: ./script.pl *.tt2 Talvez você prefira reescrever todos os ifs/elses da seguinte forma: if (!-f $html or $tt2_mtime > $html_mtime) { system("txt2tags -t html $tt2"); } Em outras palavras: execute o comando se o arquivo html não existe, OU se a data do arquivo tt2 for maior que a do arquivo html. OBS - eu não testei nenhuma parte deste código. -- []s Nelson ________________________________________________________________ Nelson Ferraz GNU BIS: http://www.gnubis.com.br PhPerl: http://www.phperl.com From lechamps em terra.com.br Fri Feb 27 12:30:35 2004 From: lechamps em terra.com.br (Luis Campos de Carvalho) Date: Mon Aug 2 21:26:53 2004 Subject: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. In-Reply-To: <403F730F.5070800@phperl.com> References: <000401c3fcb8$ac9b8080$0500a8c0@deskcaf> <403F4A45.9070301@terra.com.br> <003401c3fd41$add0a6e0$0500a8c0@deskcaf> <403F730F.5070800@phperl.com> Message-ID: <403F8CCB.4010002@terra.com.br> Boa tentativa, Nelson. Mas tenho quase certeza de que o problema do Leandro já foi resolvido trilhões de vezes. :) Leandro, você precisa do GNU Make, o construtor de sistemas da GNU, e de um Makefile suficientemente bom. Acho que se você puder me oferecer informações sobre a localização dos arquivos, e sobre o caminho em disco para seus programas, posso fazer o Makefile que você precisa daqui. Depois, basta dizer $ make t2t e deixar o Make determinar quais arquivos mudaram, quais precisam ser gerados novamente, e em quais não se precisa mexer... (: Ah! Eu acho que o makefile anexo deve resolver seu problema, ou quase isso. É texto ASCII, e acho que você precisa mudar algumas coisas. Estou confiando que você usa Linux ou outro *nix, se esse não for seu caso precisamos fazer pequenas alterações. Não testei o script, mas deve funcionar sem maiores problemas. Se eu puder ajudar mais, é só falar! Putamplexos! Nelson Ferraz wrote: > Leandro Costa wrote: > >> Entao o script que preciso desenvolver: >> >> Seria o seguinte: > > > foreach my $tt2 (@ARGV) { > my ($html) = $tt2 =~ s/\.tt2/\.html/i; > > my $tt2_mtime = (stat($tt2))[9]; > my $html_mtime = (stat($html))[9]; > >> - primeiro ele verifica se jah existe o arquivo html >> -arquivo html existe ? > > if (-f $html) { > >> Sim - verifca a data do arquivo .t2t data maior ? "executa $ >> txt2tags -t html nomedoarquivo.t2t" - data menor nao faz nada. > > if ($tt2_mtime > $html_mtime) { > system("txt2tags -t html $tt2"); > } > >> Nao - $ txt2tags -t html nomedoarquivo.t2t > > } else { > system("txt2tags -t html $tt2"); > } > } > > Para executar o script acima, você deve passar os nomes de arquivo > através da linha de comando. Exemplo: ./script.pl *.tt2 > > Talvez você prefira reescrever todos os ifs/elses da seguinte forma: > > if (!-f $html or $tt2_mtime > $html_mtime) { > system("txt2tags -t html $tt2"); > } > > Em outras palavras: execute o comando se o arquivo html não existe, OU > se a data do arquivo tt2 for maior que a do arquivo html. > > OBS - eu não testei nenhuma parte deste código. > -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= -------------- Próxima Parte ---------- # Makefile para resolver o problema do Leandro Costa, da lista # dos Cascavel Perl Mongers. # # Por Luis 'Champs' de Carvalho, # # Este programa é Open-Source, e deve ser distribuído de acordo # com os Termos da GPL. # # # Primeiro, configuracao # TXT2TAGS=/caminho/para/o/txt2tags T2TARGS="-parametros -para -o -txt2tags" HTML_DIR=/caminho/para/os/arquivos.html HTML_EXT=".html" T2T_DIR=/caminho/para/os/arquivos.t2t T2T_EXT=".t2t" FIND=/usr/bin/find # Nao mexa daqui para baixo, por favor. ARTIFACTS=$(shell $(FIND) $(HTML_DIR) -type f -name $(HTML_EXT) -print) .DEFAULT: t2t t2t: $(ARTIFACTS) $(ARTIFACTS): %$(HTML_EXT): %$(T2T_EXT) $(TXT2TAGS) -t html $< # EOF From lscosta em uninet.com.br Fri Feb 27 15:43:05 2004 From: lscosta em uninet.com.br (Leandro Costa) Date: Mon Aug 2 21:26:53 2004 Subject: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. References: <000401c3fcb8$ac9b8080$0500a8c0@deskcaf> <403F4A45.9070301@terra.com.br> <003401c3fd41$add0a6e0$0500a8c0@deskcaf><403F730F.5070800@phperl.com> <403F8CCB.4010002@terra.com.br> Message-ID: <008001c3fd7a$b714b190$0500a8c0@deskcaf> Como estou desenvolvendo na minha intranet Nao tem como dar acesso a voce ... Mais estou enviando um teste.tar.gz onde contem minha plataforma de teste ok ! obs.: tbem queria explicacao do codigo. Grato Leandro ----- Original Message ----- From: "Luis Campos de Carvalho" To: "Cascavel Perl Mongers" Sent: Friday, February 27, 2004 3:30 PM Subject: Re: [Cascavel-pm] Comparacao de diretorios e manipulacao de arquivos. Boa tentativa, Nelson. Mas tenho quase certeza de que o problema do Leandro já foi resolvido trilhões de vezes. :) Leandro, você precisa do GNU Make, o construtor de sistemas da GNU, e de um Makefile suficientemente bom. Acho que se você puder me oferecer informações sobre a localização dos arquivos, e sobre o caminho em disco para seus programas, posso fazer o Makefile que você precisa daqui. Depois, basta dizer $ make t2t e deixar o Make determinar quais arquivos mudaram, quais precisam ser gerados novamente, e em quais não se precisa mexer... (: Ah! Eu acho que o makefile anexo deve resolver seu problema, ou quase isso. É texto ASCII, e acho que você precisa mudar algumas coisas. Estou confiando que você usa Linux ou outro *nix, se esse não for seu caso precisamos fazer pequenas alterações. Não testei o script, mas deve funcionar sem maiores problemas. Se eu puder ajudar mais, é só falar! Putamplexos! Nelson Ferraz wrote: > Leandro Costa wrote: > >> Entao o script que preciso desenvolver: >> >> Seria o seguinte: > > > foreach my $tt2 (@ARGV) { > my ($html) = $tt2 =~ s/\.tt2/\.html/i; > > my $tt2_mtime = (stat($tt2))[9]; > my $html_mtime = (stat($html))[9]; > >> - primeiro ele verifica se jah existe o arquivo html >> -arquivo html existe ? > > if (-f $html) { > >> Sim - verifca a data do arquivo .t2t data maior ? "executa $ >> txt2tags -t html nomedoarquivo.t2t" - data menor nao faz nada. > > if ($tt2_mtime > $html_mtime) { > system("txt2tags -t html $tt2"); > } > >> Nao - $ txt2tags -t html nomedoarquivo.t2t > > } else { > system("txt2tags -t html $tt2"); > } > } > > Para executar o script acima, você deve passar os nomes de arquivo > através da linha de comando. Exemplo: ./script.pl *.tt2 > > Talvez você prefira reescrever todos os ifs/elses da seguinte forma: > > if (!-f $html or $tt2_mtime > $html_mtime) { > system("txt2tags -t html $tt2"); > } > > Em outras palavras: execute o comando se o arquivo html não existe, OU > se a data do arquivo tt2 for maior que a do arquivo html. > > OBS - eu não testei nenhuma parte deste código. > -- =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Luis Campos de Carvalho is BSc in Comp Science, PerlMonk [SiteDocClan], Cascavel-pm Moderator, Unix Sys Admin && Certified Oracle DBA http://br.geocities.com/monsieur_champs/ =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= ---------------------------------------------------------------------------- ---- # Makefile para resolver o problema do Leandro Costa, da lista # dos Cascavel Perl Mongers. # # Por Luis 'Champs' de Carvalho, # # Este programa é Open-Source, e deve ser distribuído de acordo # com os Termos da GPL. # # # Primeiro, configuracao # TXT2TAGS=/caminho/para/o/txt2tags T2TARGS="-parametros -para -o -txt2tags" HTML_DIR=/caminho/para/os/arquivos.html HTML_EXT=".html" T2T_DIR=/caminho/para/os/arquivos.t2t T2T_EXT=".t2t" FIND=/usr/bin/find # Nao mexa daqui para baixo, por favor. ARTIFACTS=$(shell $(FIND) $(HTML_DIR) -type f -name $(HTML_EXT) -print) .DEFAULT: t2t t2t: $(ARTIFACTS) $(ARTIFACTS): %$(HTML_EXT): %$(T2T_EXT) $(TXT2TAGS) -t html $< # EOF ---------------------------------------------------------------------------- ---- _______________________________________________ Cascavel-pm mailing list Cascavel-pm@mail.pm.org http://cascavel.pm.org/mailman/listinfo/cascavel-pm -------------- Próxima Parte ---------- Um anexo não texto foi limpo... Nome : teste.tar.gz Tipo : application/x-gzip Tam : 36014 bytes Descr.: não disponível Url : http://mail.pm.org/pipermail/cascavel-pm/attachments/20040227/343553e7/teste.tar.bin From gmpowers em terra.com.br Fri Feb 27 17:35:08 2004 From: gmpowers em terra.com.br (Graciliano M. P.) Date: Mon Aug 2 21:26:53 2004 Subject: [Cascavel-pm] Re: Comparacao de diretorios e manipulacao de References: <200402271800.i1RI0Ol14113@mail.pm.org> Message-ID: <001001c3fd8a$56460750$098cb0c8@main> Bom, cá está uma solução pure Perl. GMP #!/usr/bin/perl my @files = catdir('/foo/somedir' , 0 , 1 , 1) ; foreach my $files_i ( @files ) { if ( $files_i =~ /(.*?)\.t2t$/) { my $file_html = "$1.html" ; my $t2t_time = (stats($files_i))[9] ; my $html_time = (stats($file_html))[9] ; if (!-e $file_html || $t2t_time > $html_time) { print "$files_i\n" ; call("txt2tags -t html $files_i") ; } } } ######## # CALL # ######## sub call { my ( $cmd ) = @_ ; open (my $ipc,"| $cmd") ; my $log_read = join("", <$ipc>) ; close ($ipc) ; $log_read =~ s/\r\n?/\n/gs ; return($log_read) ; } ########## # CATDIR # (DIR , CUT_BASE , RECURSIVE , ONLY_FILES) ########## sub catdir { my ( $dir , $cut , $r , $f ) = @_ ; my @files ; my @DIR = $dir ; foreach my $DIR ( @DIR ) { my $DH ; opendir ($DH, $DIR); while (my $filename = readdir $DH) { if ($filename ne "\." && $filename ne "\.\.") { my $file = "$DIR/$filename" ; if ($r && -d $file) { push(@DIR , $file) ;} else { if (!$f || !-d $file) { $file =~ s/^\Q$dir\E\/?//s if $cut ; push(@files , $file) ; } } } } closedir ($DH) ; } return( @files ) ; } From lscosta em uninet.com.br Sat Feb 28 08:30:03 2004 From: lscosta em uninet.com.br (Leandro Costa) Date: Mon Aug 2 21:26:53 2004 Subject: [Cascavel-pm] Re: Comparacao de diretorios e manipulacao de References: <200402271800.i1RI0Ol14113@mail.pm.org> <001001c3fd8a$56460750$098cb0c8@main> Message-ID: <003a01c3fe07$5b895960$0100000a@deskcaf> Muito obrigado Graciliano, Mais onde configuraco o programa com meus diretorios :))) grato Leandro ----- Original Message ----- From: "Graciliano M. P." To: Sent: Friday, February 27, 2004 8:35 PM Subject: [Cascavel-pm] Re: Comparacao de diretorios e manipulacao de > Bom, cá está uma solução pure Perl. > > GMP > > #!/usr/bin/perl > > my @files = catdir('/foo/somedir' , 0 , 1 , 1) ; > > foreach my $files_i ( @files ) { > if ( $files_i =~ /(.*?)\.t2t$/) { > my $file_html = "$1.html" ; > > my $t2t_time = (stats($files_i))[9] ; > my $html_time = (stats($file_html))[9] ; > > if (!-e $file_html || $t2t_time > $html_time) { > print "$files_i\n" ; > call("txt2tags -t html $files_i") ; > } > } > } > > ######## > # CALL # > ######## > > sub call { > my ( $cmd ) = @_ ; > > open (my $ipc,"| $cmd") ; > my $log_read = join("", <$ipc>) ; > close ($ipc) ; > > $log_read =~ s/\r\n?/\n/gs ; > > return($log_read) ; > } > > ########## > # CATDIR # (DIR , CUT_BASE , RECURSIVE , ONLY_FILES) > ########## > > sub catdir { > my ( $dir , $cut , $r , $f ) = @_ ; > > my @files ; > > my @DIR = $dir ; > foreach my $DIR ( @DIR ) { > my $DH ; > opendir ($DH, $DIR); > > while (my $filename = readdir $DH) { > if ($filename ne "\." && $filename ne "\.\.") { > my $file = "$DIR/$filename" ; > if ($r && -d $file) { push(@DIR , $file) ;} > else { > if (!$f || !-d $file) { > $file =~ s/^\Q$dir\E\/?//s if $cut ; > push(@files , $file) ; > } > } > } > } > > closedir ($DH) ; > } > > return( @files ) ; > } > > > > _______________________________________________ > Cascavel-pm mailing list > Cascavel-pm@mail.pm.org > http://cascavel.pm.org/mailman/listinfo/cascavel-pm > >