Subversion Repositories camp_sysinfo_client_3

Rev

Rev 229 | Rev 242 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 229 Rev 230
Line 36... Line 36...
36
   #die "dirs is " . join("\n", @dirs ) . "\n";
36
   #die "dirs is " . join("\n", @dirs ) . "\n";
37
   while ( my $script = shift(@dirs) ) {
37
   while ( my $script = shift(@dirs) ) {
38
      next if $script =~ /\..+$/; # ignore anything with a period in it
38
      next if $script =~ /\..+$/; # ignore anything with a period in it
39
      next if $script =~ /README/; # ignore readme
39
      next if $script =~ /README/; # ignore readme
40
      print "Checking $directory/$script\n";
40
      print "Checking $directory/$script\n";
-
 
41
      &runCommand( "chmod 755 $directory/$script" );
41
      my $output = `$directory/$script $directory`;
42
      my $output = `$directory/$script $directory`;
42
      my $mod = $output ? '700' : '600';
43
      my $mod = $output ? '700' : '600';
43
      &runCommand( "chmod $mod $directory/$script" );
44
      &runCommand( "chmod $mod $directory/$script" );
44
   }
45
   }
45
}
46
}