Rev 59 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed
#! /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;