alex/ase_perl
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix email

Browse Source
This commit is contained in:
Alessandro Battilani
2021-02-02 19:08:30 +01:00
parent 10ec227f09
commit b4bdaa0146
2 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
LoadCSVData.pl
View File

@@ -46,7 +46,7 @@ my $matlab_func_dir = "/usr/local/matlab_func/";
my $matlab_error = '';
my $matlab_timeout = '1800';
my $email_addr =
'andrea.carri@aseltd.eu,alessandro.battilani@gmail.com,alessandro.valletta@aseltd.eu';
'andrea.carri@aseltd.eu,alessandro.battilani@gmail.com,alessandro.valletta@aseltd.eu,alessandro.battilani@aseltd.eu';
my $from = 'ASE Alert System<alert@aseltd.eu>';
my ( $email_msg, $email_obj );
my $G201_fcheck = 0;
@@ -148,8 +148,8 @@ sub matlabCalc {
@matlabOutputErrorArray = grep( /\S/, @matlabOutputErrorArray );
@errors = grep( /^Error/, @matlabOutputErrorArray );
@warnings = grep( !/^Error/, @matlabOutputErrorArray );
$MatlabErrors = join( "<br>", @errors );
$MatlabWarnings = join( "<br>", uniq(@warnings) );
$MatlabErrors = join( "<br/>", @errors );
$MatlabWarnings = join( "<br/>", uniq(@warnings) );
my $exit_value = $? >> 8;
if ( $exit_value == 124 ) {
@@ -313,11 +313,13 @@ sub makeEmailMsg {
$email_msg = <<"END_MSG";
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<title>Alert from ASE</title>
<meta name="viewport" content="width=device-width, initial-scale=1.0" />
</head>
<body style="margin: 0; padding: 0;">
<table bgcolor="#ffffff" border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>