Subversion Repositories camp_sysinfo_client_3

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
16 rodolico 1 
#! /usr/bin/env perl
12 rodolico 2 
 
3 
# get files from server
4 
my $saveDir = `pwd`;
5 
chomp $saveDir;
6 
chdir( '/tmp');
7 
 
8 
`wget -q http://clara.dailydata.net:22080/uploadFiles299q/sendEmail/sendEmail.tgz`;
9 
 
10 
# Add sendEmail to server
11 
if ( -d '/opt/sendEmail' ) {
12 
   warn "/opt/sendEmail exists, moving it to /opt/sendEmail.old\n";
13 
   `mv /opt/sendEmail /opt/sendEmail.old`;
14 
}
15 
chdir('/opt');
16 
`tar -xzvf /tmp/sendEmail.tgz`;
17 
`chown -fRv root:root /opt/sendEmail`;
18 
`chmod 755 /opt/sendEmail/*`;
19 
`rm /tmp/sendEmail.tgz`;
20 
`ln -s /opt/sendEmail/sendEmail.pl /opt/sendEmail/sendEmail` unless -x '/opt/sendEmail/sendEmail';
21 
 
22 
chdir( $saveDir );
23 
print '/opt/sendEmail/sendEmail';
24 
1;