Subversion Repositories camp_sysinfo_client_3

Rev

Rev 225 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 225 Rev 249
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 
 
83 
# find OS if they did not tell us what it was
 84 
# find OS if they did not tell us what it was
84 
$os = `$scriptDir/determineOS` unless $os;
 85 
$os = `$scriptDir/determineOS` unless $os;
85 
print "Installing Conf and Cron for $os\n" unless $quiet;
 86 
print "Installing Conf and Cron for $os\n" unless $quiet;
86 
 
 87 
 
87 
my $returnValue = 0;
 88 
my $returnValue = 0;
Line 92... Line 93...
92 
 
 93 
 
93 
our %libraries;
 94 
our %libraries;
94 
our %install;
 95 
our %install;
95 
our %binaries;
 96 
our %binaries;
96 
 
 97 
 
97 
if ( $seedFileName =~ m'^((http)|(ftp))s?://' ) { # the seed file is a URL
 98 
if ( $seedFileName =~ m~^(((http)|(ftp))s?://).+$~ ) { # the seed file is a URL
98 
   $command = "wget -O /tmp/seedfile --no-check-certificate $seedFileName";
 99 
   $command = "wget -O /tmp/seedfile --no-check-certificate $seedFileName";
99 
   print "Downloading from $seedFileName\n\t$command\n" unless $quiet;
 100 
   print "Downloading from $seedFileName\n\t$command\n" unless $quiet;
100 
   `$command` unless $dryRun;
 101 
   `$command` unless $dryRun;
101 
   $seedFileName = '/tmp/seedfile';
 102 
   $seedFileName = '/tmp/seedfile';
102 
}
 103 
}