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;