[Cascavel-pm] sistema de Chmod

[João Gabriel]

Se não tiver como instalar o módulo, você pode baixa-lo no cpan.org e usar:
use lib ('.');
use modulo;

com a pasta do módulo dentro do diretório em que a aplicação irá chama-lo.

-- 
Um abraço,
João Gabriel
Página pessoal - www.JGCL.pt.to
CGiClube.net - www.CGiClube.net
Vitória Perl Mongers - Vitoria.pm.org




Em 07/06/07, Luis Motta Campos<luismottacampos em yahoo.co.uk> escreveu:
> On Jun 7, 2007, at 5:53 AM, Gabriel wrote:
> > Olá pessoal, minha duvida é a seguinte
> > a um tempo atras, perguntei se alguem sabia um code que revirasse
> > minhas
> > pastas do ftp, e aplisse chomod 755 nos arquivos com extenção.cgi
> > e me foi passado o seguinte code
> > <code>
> > #!/usr/bin/perl
> > #####
> > # aplica chmnod em todos arquivos .cgi
> > ####
> > use strict;
> > use warnings;
> >
> > my $path = "/home/wmclube/public_html";
> >
> > use File::Find::Rule;
> >
> >
> > #my @files =
> > File::Find::Rule->file()->name('*.cgi')->in('/var/www/cgi-bin');
> > my @files = File::Find::Rule->file()->name('*.cgi')->in("$path");
> > chmod 0755, @files;
> >
> > print "Content-type: text/html\n\n";
> > print "Aplicado";
> > </code>
> >
> > mais este code nao esta funcionando, o memso da erro 500, gostaria
> > de uma
> > ajuda de todos, pois em meu site (www.wmclube.com.br) é todo feito em
> > cgi/perl, onde tenho mais de 400 arquivos .cgio separados em mais
> > de 100
> > pastas, e fica meio trabalho aplicar chmod arquivo por arquivos,
> > visitando
> > todas as pastas
> >
> > aguardo um ajuda da ocmunidade
>
>    Você deveria tentar encontrar ajuda na Associação dos Adivinhos.
> Sem mensagem de erro, sem um trecho de log, sem uma pista que seja, a
> única coisa que eu consegui pensar foi:
>
> Can't locate File/Find/Rule.pm in @INC (@INC contains: /System/
> Library/Perl/5.8.6/darwin-thread-multi-2level /System/Library/Perl/
> 5.8.6 /Library/Perl/5.8.6/darwin-thread-multi-2level /Library/Perl/
> 5.8.6 /Library/Perl /Network/Library/Perl/5.8.6/darwin-thread-
> multi-2level /Network/Library/Perl/5.8.6 /Network/Library/Perl /
> System/Library/Perl/Extras/5.8.6/darwin-thread-multi-2level /System/
> Library/Perl/Extras/5.8.6 /Library/Perl/5.8.1 .) at t.pl line 10.
> BEGIN failed--compilation aborted at t.pl line 10.
>
>    Se o seu erro parece com isso, então você precisa instalar o
> File::Find::Rule.
>
>    Agora, sinceramente, você deveria mesmo é trocar de provedor...
>
>    Eu não sei quanto você paga, mas eu estou pagando US$90 por
> trimestre, e tenho um Debian Linux só para mim, onde eu posso
> instalar o que eu quiser, inclusive Catalyst, Template Toolkit, Emacs
> e todas as extensões Lisp que eu conseguir escrever. Isto facilita
> muito a minha vida, já que eu não preciso fazer acrobacias como esta
> para gerenciar meus arquivos.
>
>    Putamplexos!
> --
> Luis Motta Campos (a.k.a. Monsieur Champs) is a software engineer,
> Perl fanatic evangelist, and amateur {cook, photographer}
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>