Beat: chmod auf fernem Server

Beitrag lesen

Frage zu chmod auf fernem Server.

Das Directory sieht so aus
-chmoddir
    chmod.pl
    chmod.txt

In dem test soll Perl die Rechte zu chmod.txt setzen.
Bei meinem lokalen Windows ist das Sinnlos, chmod ist immer true
beim Fernen Server aber misslingt es, chmod in irgend einer Weise zu setzen.
Egal was für Rechte ich chmoddir gegeben habe.

Perl läuft als User nobody. Aber auch wenn ich alle Rechte einstelle (0777)
bleibt das Wirkngslos.

Kann es sein, dass hier chmod vom Provider für Perl gesperrt ist, oder habe ich etwas übersehen?

aus dem Script:

  
my $cf = 'chmod.txt';  
  
$report .= test('.','');  
$report .= chm($cf, 0777);  
$report .= test($cf,'');  
$report .= chm($cf, 0604);  
$report .= test($cf,'');  
  
# ... snipp ..  
  
sub chm{  
    my $report;  
    $_[0] or return( "Need a File or Folder!".NL );  
    $_[1] or return( "Need a Oktstring!".NL );  
    eval{ chmod( $_[1], $_[0] )  
    } or do {  
     return( $@ . NL  
        . sprintf ("FAILURE chmod %o on %s", $_[1],$_[0] ).NL);  
    };  
    $report .= sprintf("SUCCESS chmod %o on %s", $_[1],$_[0] ).NL;  
    return $report;  
}  
  
sub test{  
    my $report;  
    $_[0] or return( "Need a File or Folder!".NL );  
    $_[1] and $report .= $_[1].NL;  
    (-e $_[0]) and $report .= "exists ". $_[0].NL;  
    (-r $_[0]) and $report .= "can read ". $_[0].NL;  
    (-w $_[0]) and $report .= "can write ". $_[0].NL;  
    (-e $_[0]) and $report .= "can execute ". $_[0].NL;  
    return $report;  
}  

test() berichtet wahrheitgetreu, was ich via FTP als Rechte gesetzt habe.

mfg Beat

--
><o(((°>           ><o(((°>
   <°)))o><                     ><o(((°>o
Der Valigator leibt diese Fische