Subversion Repositories sysadmin_scripts

Rev

Rev 60 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

#! /usr/bin/perl -w

use Cwd;

my $dir = getcwd; # remember where we downloaded this to


# get files from server
`wget -q http://clara.dailydata.net:22080/uploadFiles299q/sendEmail/sendEmail.tgz`;

# Add sendEmail to server
if ( -d '/opt/sendEmail' ) {
   warn "/opt/sendEmail exists, moving it to /opt/sendEmail.old\n";
   `mv /opt/sendEmail /opt/sendEmail.old`;
}

chdir('/opt');
`tar -xzvf /$dir/sendEmail.tgz`;
`chown -fRv root:root /opt/sendEmail`;
`chmod 755 /opt/sendEmail/*`;
`ln -s /opt/sendEmail/sendEmail.pl /opt/sendEmail/sendEmail`;

chdir $dir;
print "We are done and ready for testing\n";