Subversion Repositories sysadmin_scripts

#! /usr/bin/perl -w

use Cwd;
use File::Copy;

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

my $installDir = shift;
$installDir = '/opt' unless $installDir;


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

# Add sendEmail to server
$installDir .= '/sendEmail';
`mkdir -p $installDir`;
copy( 'sendEmail.pl', "$installDir/sendEmail.pl" );
copy( 'sendmail2sendEmail.pl', "$installDir/sendmail2sendEmail.pl" );
`ln -s $installDir/sendEmail.pl $installDir/sendEmail`;
`chown -fRv root:root $installDir`;
`chmod 755 $installDir/*`;

print '1.56';
1;