Subversion Repositories camp_sysinfo_client_3

#! /usr/bin/env perl

use warnings;

use strict;  

# find our location and use it for searching for libraries

BEGIN {

   use FindBin;

   use File::Spec;

   # use libraries from the directory this script is in

   use lib File::Spec->catdir($FindBin::Bin);

   # and its parent

   use lib File::Spec->catdir( $FindBin::Bin . '/../' );

   eval( 'use YAML::Tiny' );

}

use Cwd qw(abs_path);

use sysinfosetup;

our $DEBUG;

# $DEBUG = 1;

my $scriptDir = abs_path(File::Spec->catdir($FindBin::Bin) );

my $binDir = abs_path("$scriptDir/../"); # bin directory assumed to be above this one

sub checkDirectory {

   my $directory = shift;

   print "In checkDirectory, looking in $directory\n";

   my @dirs;

   if ( -d $directory ) { # we found a modules directory

      opendir( my $dh, $directory ) || die "Could not read from $scriptDir/modules:$!\n";

      @dirs = grep { -f "$directory/$_" } readdir($dh);

      closedir $dh;

   }

   #die "dirs is " . join("\n", @dirs ) . "\n";

   while ( my $script = shift(@dirs) ) {

      next if $script =~ /\..+$/; # ignore anything with a period in it

      next if $script =~ /README/; # ignore readme

      print "Checking $directory/$script\n";

      &runCommand( "chmod 755 $directory/$script" );

      my $output = `$directory/$script $directory`;

      my $mod = $output ? '700' : '600';

      &runCommand( "chmod $mod $directory/$script" );

   }

}

# setting permissions

&runCommand( "chown -fR root:root $binDir" );

&runCommand( "chmod 700 $binDir/sysinfo-client" );

&runCommand( "chmod 700 $binDir/configure" );

&checkDirectory( "$binDir/modules" );