Subversion Repositories sysadmin_scripts

Rev

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

Rev Author Line No. Line
59 rodolico 1 
#! /usr/bin/perl -w
2 
 
3 
use Cwd;
4 
 
5 
my $dir = getcwd; # remember where we downloaded this to
6 
 
7 
 
8 
# get files from server
9 
`wget -q http://clara.dailydata.net:22080/uploadFiles299q/sendEmail/sendEmail.tgz`;
10 
 
11 
# Add sendEmail to server
12 
if ( -d '/opt/sendEmail' ) {
13 
   warn "/opt/sendEmail exists, moving it to /opt/sendEmail.old\n";
14 
   `mv /opt/sendEmail /opt/sendEmail.old`;
15 
}
16 
 
17 
chdir('/opt');
18 
`tar -xzvf /$dir/sendEmail.tgz`;
19 
`chown -fRv root:root /opt/sendEmail`;
20 
`chmod 755 /opt/sendEmail/*`;
21 
`ln -s /opt/sendEmail/sendEmail.pl /opt/sendEmail/sendEmail`;
22 
 
23 
chdir $dir;
24 
print "We are done and ready for testing\n";