[Cascavel-pm] sistema de Chmod

Gabriel ghpnet em gmail.com
Quarta Junho 6 20:53:07 PDT 2007


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
abraços e bom feriado



Mais detalhes sobre a lista de discussão Cascavel-pm