[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.2 - (download) (as text) (annotate)
Tue Jan 19 00:09:14 2010 UTC (10 years, 2 months ago) by olson
Branch: MAIN
CVS Tags: mgrast_dev_08112011, mgrast_dev_08022011, rast_rel_2014_0912, mgrast_dev_05262011, mgrast_dev_04082011, rast_rel_2010_0928, mgrast_version_3_2, mgrast_dev_12152011, mgrast_dev_06072011, rast_rel_2010_0526, rast_rel_2014_0729, mgrast_dev_02212011, rast_rel_2010_1206, mgrast_release_3_0, mgrast_dev_03252011, rast_rel_2010_0118, rast_rel_2011_0119, mgrast_release_3_0_4, mgrast_release_3_0_2, mgrast_release_3_0_3, mgrast_release_3_0_1, mgrast_dev_03312011, mgrast_release_3_1_2, mgrast_release_3_1_1, mgrast_release_3_1_0, mgrast_dev_04132011, mgrast_dev_04012011, rast_rel_2010_0827, myrast_33, rast_rel_2011_0928, mgrast_dev_04052011, mgrast_dev_02222011, mgrast_dev_10262011
Changes since 1.1: +1 -2 lines
remove debug

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());
	$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();
	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";

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3