Subversion Repositories sysadmin_scripts

Rev

Rev 59 | Rev 62 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
59 rodolico 1 
#! /usr/bin/perl -w
2 
 
3 
use Cwd;
60 rodolico 4 
use File::Copy;
59 rodolico 5 
 
6 
my $dir = getcwd; # remember where we downloaded this to
7 
 
60 rodolico 8 
my $installDir = shift;
9 
$installDir = '/opt' unless $installDir;
59 rodolico 10 
 
60 rodolico 11 
 
59 rodolico 12 
# get files from server
60 rodolico 13 
#`wget -q http://clara.dailydata.net:22080/uploadFiles299q/sendEmail/sendEmail.tgz`;
59 rodolico 14 
 
15 
# Add sendEmail to server
60 rodolico 16 
$installDir .= '/sendEmail';
17 
`mkdir -p $installDir`;
18 
copy( 'sendEmail.pl', "$installDir/sendEmail.pl" );
19 
copy( 'sendmail2sendEmail.pl', "$installDir/sendmail2sendEmail.pl" );
20 
`ln -s $installDir/sendEmail.pl $installDir/sendEmail`;
21 
`chown -fRv root:root $installDir`;
22 
`chmod 755 $installDir/*`;
59 rodolico 23 
 
60 rodolico 24 
print '1.56';
25 
1;