[Cascavel-pm] chmod no cgi

[Joenio Costa]

Se nao tiver acesso ao CPAN para instalar o File::Find::Rule, pode
usar o modulo padrao File::Find.

<code>
use strict;
use warnings;

use File::Find;

find(\&wanted, '/var/www/cgi-bin/');
sub wanted {
    chmod 0755, $_ if m/\.cgi$/io;
}
</code>

http://perldoc.perl.org/File/Find.html

Att,

Em 17/04/07, Igor Sutton Lopes<igor.sutton em gmail.com> escreveu:
> <code>
> use strict;
> use warnings;
>
> use File::Find::Rule;
>
> my @files =
> File::Find::Rule->file()->name('*.cgi')->in('/var/www/cgi-bin');
> chmod 0755, @files;
> </code>
>
>
> On Apr 18, 2007, at 3:04 AM, Lorn wrote:
>
> find /raiz/do/seu/site -name "*.cgi" -exec chmod 755 '{}' \;
>
> On 4/17/07, Gabriel <ghpnet em gmail.com > wrote:
> > Fala pessoal
> > alguem ai tem uma ideia de como faezr um sistema que quando eu coloque ele
> > na raiz do meu site e o execute
> > ele vah varrendo minhas pastas e meus sarquivos e aplicando o chmod 755
> nos
> > arquivos com extenção.cgi?
> >
> > fico no aguardo!
> >
> > _______________________________________________
> > Cascavel-pm mailing list
> > Cascavel-pm em pm.org
> > http://mail.pm.org/mailman/listinfo/cascavel-pm
> >
>
>
>
> --
> Lindolfo "Lorn" Rodrigues
> - www.slackwarezine.com.br
> - http://lornlab.org
> - http://sao-paulo.pm.org
> use Catalyst;
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
> --
> Igor Sutton
> igor.sutton em gmail.com
>
>
>
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>


-- 
Joenio Costa
- Salvador Perl Mongers - Grupo de Usuário Perl de Salvador
- Colibre - Cooperativa de Tecnologias Livres
- PSL-BA - Projeto Software Livre Bahia