Commit 312a3c5c authored by Karl Kornel's avatar Karl Kornel
Browse files

Change up the subject line for emails 

The new subect line includes the script name, and some unique ID (either
runfolder name or project directory name) to help keep emails separate.
parent d42819d3

bbox-email-code.pl

+23 −11
Original line number Diff line number Diff line
@@ -195,9 +195,11 @@ EOF 
	close($barcode_handle);

	undef $barcode_body;



	# Set up the subject line

    my $email_subject = "[$script_name] Analysis complete for " .

                        folder_name($runfolder) . ' on ' . hostname();



    # Create the email

	my $email_subject = "Completed analysis by $script_name on " .

	                    hostname();

	my $email = Email::MIME->create(

		header_str => [

			From    => 'noreply@stanford.edu',
@@ -304,9 +306,11 @@ EOF 
		$email_file->body_str_set($$log_ref);

	}



	# Set up the subject line

    my $email_subject = "[$script_name] Something went wrong with " .

                        folder_name($runfolder) . ' on ' . hostname();



    # Create the email

	my $email_subject = "Something went wrong with $script_name on " .

	                    hostname();

	my $email = Email::MIME->create(

		header_str => [

			From    => 'noreply@stanford.edu',
@@ -368,9 +372,11 @@ Apologies for the inconvenience! 
EOF

	$email_body->body_str_set($email_body_text);



	# Set up the subject line

    my $email_subject = "[$script_name] Manual delivery needed for " .

                        folder_name($project) . ' on ' . hostname();



    # Create the email

	my $email_subject = 'Project results ready for manual delivery (from ' .

	                    "$script_name on " . hostname() . ')';

	my $email = Email::MIME->create(

		header_str => [

			From    => 'noreply@stanford.edu',
@@ -436,6 +442,10 @@ Have a great day. Go Tree! 
EOF

	$email_body->body_str_set($email_body_text);



	# Set up the subject line

    my $email_subject = "[$script_name] Delivery complete for " .

                        folder_name($project) . ' on ' . hostname();



	# Create the email

	my $email_subject = 'Project results delivered! (from ' .

	                    "$script_name on " . hostname() . ')';
@@ -548,9 +558,11 @@ EOF 
		$email_file->body_set($log_body);

	}



	# Set up the subject line

    my $email_subject = "[$script_name] Delivery problem for " .

                        folder_name($runfolder) . ' on ' . hostname();



	# Create the email

	my $email_subject = "Something went wrong with $script_name on " .

	                    hostname();

	my $email = Email::MIME->create(

		header_str => [

			From    => 'noreply@stanford.edu',