[Cascavel-pm] sistema de Chmod

[Gabriel]

Bom pessoal, ja que nao consegui o sistema em CGI, fiz em php mesmo, fui
juntando codigos, e funcionou perfeitamente
segue abaixo o code a quem entereçar:

<code>
<title>Chmod 755 Express</title>
<h4>Chmod 755 Express</h4>
Aguarde....<br>Aplicando os chmod(s) 0755 no(s) arquivo(s) com extenção
*.CGI.<hr>
<?
function aplicachmod($dir) {
         $abreDir = opendir($dir);

         while (false !== ($file = readdir($abreDir))) {
               if ($file==".." || $file =="."){ continue; }
               if (is_dir($cFile=($dir."/".$file))){ aplicachmod($cFile);
               }elseif(is_file($cFile)){

  $nomedaarray = explode(".",$file);
  $nome = $nomedaarray[0];
  $ext = $nomedaarray[1];
  $extx = $nomedaarray[2];
  if($ext=="cgi"){
  chmod($cFile,0755);
  echo "$cFile<br>";
  $ext="";
  }elseif($ext==""){}
 }
         }
         closedir($abreDir);
}
?>

<?
aplicachmod(".");
?>
<hr>Concluido!
</code>

eu tava fazendo o mesmo esquema no cgi, mais nao funfou, vejam
<code>
#!/usr/bin/perl
print "Content-type: text/html\n\n";
print "<title>Aplica chmod 755 rápido</title>";
print "Aguarde...<br>Aplicando os chmod(s).<hr>";

$inicial = "scrips/";
pasta("$inicial");
#########
sub pasta{
local($pasta) = @_;

opendir(DIR,"$pasta");
@dir=readdir(DIR);
closedir(DIR);
    foreach $arq(@dir){
   ($nome,$ext) = split(/\./,$arq);
     if($arq eq "."){ next; }
     if($arq eq ".."){ next; }

         if(!$ext){ &pasta("$pasta/$arq"); print "$pasta/$arq<br>";
         }elsif($ext eq "cgi"){ chmod 0755, $dir; print "$pasta/$arq chomd
755<br>";
         }
   }
}
</code>

um abraço a todos...