| 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;
|