Subversion Repositories camp_sysinfo_client_3

Rev

Rev 229 | 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 
}