Subversion Repositories camp_sysinfo_client_3

Rev

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

Rev 224 Rev 225
Line 16... Line 16...
16
 
16
 
17
use Cwd qw(abs_path);
17
use Cwd qw(abs_path);
18
use sysinfosetup;
18
use sysinfosetup;
19
 
19
 
20
my $scriptDir = abs_path(File::Spec->catdir($FindBin::Bin) );
20
my $scriptDir = abs_path(File::Spec->catdir($FindBin::Bin) );
21
 
-
 
-
 
21
my $binDir = abs_path("$scriptDir/../");
22
use Digest::MD5 qw(md5_hex);
22
use Digest::MD5 qw(md5_hex);
23
use File::Copy;
23
use File::Copy;
24
 
24
 
25
# define the version number
25
# define the version number
26
# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod
26
# see https://metacpan.org/pod/release/JPEACOCK/version-0.97/lib/version.pod
Line 78... Line 78...
78
            ) or die "Error parsing command line\n";
78
            ) or die "Error parsing command line\n";
79
                  
79
                  
80
if ( $help ) { &help() ; exit; }
80
if ( $help ) { &help() ; exit; }
81
if ( $version ) { use File::Basename; print basename($0) . " $VERSION\n"; exit; }
81
if ( $version ) { use File::Basename; print basename($0) . " $VERSION\n"; exit; }
82
 
82
 
-
 
83
# find OS if they did not tell us what it was
-
 
84
$os = `$scriptDir/determineOS` unless $os;
-
 
85
print "Installing Conf and Cron for $os\n" unless $quiet;
-
 
86
 
83
my $returnValue = 0;
87
my $returnValue = 0;
-
 
88
my $command;
84
 
89
 
85
# load the definitions from installer_config.pl
90
# load the definitions from installer_config.pl
86
do "$scriptDir/installer_config.pl";
91
do "$scriptDir/installer_config.pl";
87
 
92
 
88
our %libraries;
93
our %libraries;
89
our %install;
94
our %install;
90
our %binaries;
95
our %binaries;
91
 
96
 
-
 
97
if ( $seedFileName =~ m'^((http)|(ftp))s?://' ) { # the seed file is a URL
-
 
98
   $command = "wget -O /tmp/seedfile --no-check-certificate $seedFileName";
-
 
99
   print "Downloading from $seedFileName\n\t$command\n" unless $quiet;
-
 
100
   `$command` unless $dryRun;
-
 
101
   $seedFileName = '/tmp/seedfile';
-
 
102
}
-
 
103
 
92
# Check for configuration file
104
# Check for configuration file
93
my $configDir = $operatingSystems{ $os }{'confdir'};
105
my $configDir = $operatingSystems{ $os }{'confdir'};
94
unless ( -d $configDir ) {
106
unless ( -d $configDir ) {
95
   print "Creating $configDir\n";
107
   $command = "mkdir -p $configDir";
-
 
108
   print "Creating $configDir\n\t$command\n" unless $quiet;
96
   `mkdir -p $configDir` unless $dryRun;
109
   `$command` unless $dryRun;
97
}
110
}
98
 
111
 
99
my $configFile = $operatingSystems{'configuration file'};
112
my $configFile = $operatingSystems{'configuration file'};
100
$configFile =~ s/<confdir>/$configDir/;
113
$configFile =~ s/<confdir>/$configDir/;
101
unless ( -f $configFile ) {
114
unless ( -f $configFile ) {
102
   print "Creating $configFile\n";
-
 
103
   $seedFileName = "$scriptDir/sysinfo-client.conf.template.yaml" unless $seedFileName;
115
   $seedFileName = "$scriptDir/sysinfo-client.conf.template.yaml" unless $seedFileName;
-
 
116
   $command = "cp $seedFileName $configFile";
-
 
117
   print "Creating $configFile\n\t$command\n" unless $quiet;
104
   `cp $seedFileName $configFile` unless $dryRun;
118
   `cp $seedFileName $configFile` unless $dryRun;
105
}
119
}
106
 
120
 
107
# check for cron file(s)
121
# check for cron file(s)
-
 
122
if ( defined( $operatingSystems{$os}{'crontab'} ) ) {
-
 
123
   my $command = $operatingSystems{$os}{'crontab'};
-
 
124
   $command =~ s/<bindir>/$binDir/;
-
 
125
   $command =~ s/<scriptdir>/$scriptDir/g;
-
 
126
   print "Setting up cron\n\t$command\n" unless $quiet;
-
 
127
   `$command` unless $dryRun;
-
 
128
}