[Bio] / FortyEight / send_job_completion_email.pl Repository:
ViewVC logotype

View of /FortyEight/send_job_completion_email.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Fri Jan 15 20:35:59 2010 UTC (10 years, 1 month ago) by olson
Branch: MAIN
Add job-completion email script (since we send from both the main pipeline
and from the replicate_job script)

use strict;
use Mail::Mailer;
use Data::Dumper;
use Job48;

my $usage = "Usage: send_job_completion_email jobdir\n";

@ARGV == 1 or die $usage;

my($job_dir) = @ARGV;

my $job = new Job48($job_dir);

if (!$job)
{
    die "Job $job_dir is not a valid job\n";
}

my $job_id = $job->id;

my $userobj = $job->getUserObject();

if ($userobj)
{
    my($email, $name);
    if ($FIG_Config::rast_jobs eq '')
    {
	$email = $userobj->eMail();
	$name = join(" " , $userobj->firstName(), $userobj->lastName());
    }
    else
    {
	$email = $userobj->email();
	$name = join(" " , $userobj->firstname(), $userobj->lastname());
    }
    
    my $full = $name ? "$name <$email>" : $email;
    print "send email to $full\n";
    
    my $mail = Mail::Mailer->new();
    $mail->open({
	To => 'olson@mcs.anl.gov',
#	To => $full,
	From => 'Annotation Server <rast@mcs.anl.gov>',
	Subject => "RAST annotation server job completed"
	});
    
    my $gname = $job->genome_name;
    my $entry = $FIG_Config::fortyeight_home;
    $entry = "http://www.nmpdr.org/anno-server/" if $entry eq '';
    print $mail "The annotation job that you submitted for $gname has completed.\n";
    print $mail "It is available for browsing at $entry as job number $job_id.\n";
    $mail->close();
}



MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3