Subversion Repositories camp_sysinfo_client_3

#!/usr/bin/env perl

# get files from server

my $saveDir = `pwd`;

chomp $saveDir;

chdir( '/tmp');

`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 /tmp/sendEmail.tgz`;

`chown -fRv root:root /opt/sendEmail`;

`chmod 755 /opt/sendEmail/*`;

`rm /tmp/sendEmail.tgz`;

`ln -s /opt/sendEmail/sendEmail.pl /opt/sendEmail/sendEmail` unless -x '/opt/sendEmail/sendEmail';

chdir( $saveDir );

print '/opt/sendEmail/sendEmail';

1;