$source_heart_beat_timestamp = "20171207_113255";
$target_heart_beat_timestamp = "bar";
$output_msg = "Source Heart Beat TimeStamp: " . $source_heart_beat_timestamp . "\n";
$output_msg .= "Target Heart Beat TimeStamp: $target_heart_beat_timestamp";
####
local_do_mail:
Source Heart Beat TimeStamp: 20171207_113255
Target Heart Beat TimeStamp: bar
##
##
local_do_mail:
Source Heart Beat TimeStamp: 20171207_113255 Target Heart Beat TimeStamp: bar
##
##
local_do_mail:
Source Heart Beat TimeStamp: foo
Target Heart Beat TimeStamp: bar
##
##
#!/usr/bin/perl
use strict;
use warnings;
use v5.16;
use MIME::Lite;
my $source_heart_beat_timestamp = '';
my $target_heart_beat_timestamp = '';
sub local_do_mail {
my ($msg_body) = @_;
my $msg = MIME::Lite->new(
From => 'cloudops@foo.com',
To => 'cbeckley@foo.com',
Subject => 'testing missing eol',
Data => $msg_body
);
$msg->send;
}
#
# The mail output here includes the \n after the source_heartbeat
#
$source_heart_beat_timestamp = "foo";
$target_heart_beat_timestamp = "bar";
my $output_msg = "Source Heart Beat TimeStamp: " . $source_heart_beat_timestamp . "\n";
$output_msg .= "Target Heart Beat TimeStamp: $target_heart_beat_timestamp";
say "local_do_mail:\n$output_msg";
local_do_mail("local_do_mail:\n$output_msg");
#
# The mail output here does not include the \n after the source_heartbeat
#
$source_heart_beat_timestamp = "20171207_113255";
$target_heart_beat_timestamp = "bar";
$output_msg = "Source Heart Beat TimeStamp: " . $source_heart_beat_timestamp . "\n";
$output_msg .= "Target Heart Beat TimeStamp: $target_heart_beat_timestamp";
say "local_do_mail:\n$output_msg";
local_do_mail("local_do_mail:\n$output_msg");
##
##
local_do_mail:
Source Heart Beat TimeStamp: foo
Target Heart Beat TimeStamp: bar
local_do_mail:
Source Heart Beat TimeStamp: 20171207_113255
Target Heart Beat TimeStamp: bar
##
##
local_do_mail:
Source Heart Beat TimeStamp: foo
Target Heart Beat TimeStamp: bar
##
##
local_do_mail:
Source Heart Beat TimeStamp: 20171207_113255 Target Heart Beat TimeStamp: bar