2023-04-24 14:49:30 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
#
|
|
|
|
# SPDX-License-Identifier: AGPL-3.0-or-later
|
|
|
|
# Copyright (c) Rainer Gümpelein, TeilRad GmbH
|
|
|
|
#
|
|
|
|
#2023-01-02
|
|
|
|
#adapted from mailTransport.pl without bulkmail
|
|
|
|
#NEW
|
|
|
|
#managed text by operator cms
|
|
|
|
#
|
|
|
|
#Example
|
|
|
|
#./src/scripts/mailTransportcms.pl 'shareedms-operator' 'send_alarm2hotline' '[contentuser.c_id]' '[contenttheftpos.c_id]'
|
|
|
|
#
|
|
|
|
#
|
|
|
|
#
|
|
|
|
use vars qw($syshost);
|
|
|
|
|
|
|
|
BEGIN {
|
|
|
|
$syshost = $ARGV[0] || die 'syshost not defined';
|
|
|
|
}
|
|
|
|
|
|
|
|
use lib "/var/www/copri-bike/$syshost/src";
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
use utf8;
|
|
|
|
use Encode;
|
|
|
|
use POSIX;
|
|
|
|
use Scalar::Util qw(looks_like_number);
|
|
|
|
use Lib::Config;
|
|
|
|
use Mod::DBtank;
|
|
|
|
use Mod::MailTransport;
|
|
|
|
use Data::Dumper;
|
|
|
|
my $cf = new Config;
|
|
|
|
my %varenv = $cf->envonline();
|
|
|
|
|
|
|
|
my $dbt = new DBtank;
|
|
|
|
my $mailtrans = new MailTransport;
|
|
|
|
my $now_dt = strftime "%Y-%m-%d %H:%M:%S", localtime;
|
|
|
|
|
|
|
|
#one contentadr.c_id OR email on command
|
|
|
|
my $todo = $ARGV[1] || "";
|
|
|
|
my $adr_id = $ARGV[2] || "";#takes ctt.c_id or ctadr.email
|
|
|
|
my $ct_id = $ARGV[3] || "";
|
|
|
|
my $attachment = $ARGV[4] || "";
|
|
|
|
|
|
|
|
open(EMA, ">> $dbt->{copri_conf}->{logdir}/mailTransportcms.log");
|
|
|
|
print EMA "\n$now_dt, start mailTransportcms.pl syshost: $syshost, todo:$todo, adr_id:$adr_id, ct_id:$ct_id, attachment:$attachment \n";
|
|
|
|
|
|
|
|
|
|
|
|
#mailxcfg is shareeconf/mailx.cfg <block> selection!
|
|
|
|
#hash data to send
|
|
|
|
my $sendref = {
|
|
|
|
mailxcfg => "mailx_default",
|
|
|
|
#mailxcfg => "mailx_admin",
|
|
|
|
syshost => "$syshost",
|
|
|
|
mail_to => "",
|
|
|
|
c_id => 0,
|
|
|
|
subject => "",
|
|
|
|
message => "",
|
|
|
|
signature => "",
|
|
|
|
attachment => "",
|
|
|
|
};
|
|
|
|
|
|
|
|
#my $project = $dbt->{operator}->{$varenv{dbname}}->{project} || die "project not defined";
|
|
|
|
my $oprefix = $dbt->{operator}->{$varenv{dbname}}->{oprefix} || "";
|
|
|
|
my $sendmail = {};
|
|
|
|
|
2023-05-05 07:30:00 +02:00
|
|
|
#send_emailack
|
|
|
|
if($todo eq "send_emailack" && looks_like_number($adr_id)){
|
|
|
|
$sendmail = send_emailack($todo,$sendref,$adr_id);
|
|
|
|
}
|
|
|
|
|
|
|
|
#send_password
|
|
|
|
if($todo eq "send_password" && looks_like_number($adr_id)){
|
|
|
|
$sendmail = send_password($todo,$sendref,$adr_id);
|
|
|
|
}
|
|
|
|
|
2023-04-24 14:49:30 +02:00
|
|
|
#send_cpdate_message, done by cronjob cpdate_check.pl
|
2023-05-05 07:30:00 +02:00
|
|
|
if(($todo eq "send_cpupdate_message" || $todo eq "send_proactive_cpupdate_message") && looks_like_number($adr_id)){
|
|
|
|
$sendmail = send_cpupdate_message($todo,$sendref,$adr_id);
|
|
|
|
}
|
2023-04-24 14:49:30 +02:00
|
|
|
|
|
|
|
#send_alarm2hotline, done by Ilockit_cloud.pl
|
2023-05-05 07:30:00 +02:00
|
|
|
if($todo eq "send_alarm2hotline" && looks_like_number($adr_id) && looks_like_number($ct_id)){
|
|
|
|
$sendmail = send_alarm2hotline($sendref,$ct_id);
|
|
|
|
}
|
2023-04-24 14:49:30 +02:00
|
|
|
|
|
|
|
if($sendmail->{c_id}){
|
|
|
|
sendmailjob($sendmail);
|
|
|
|
}else{
|
|
|
|
print EMA "Error, can not sendmailjob without c_id\n";
|
|
|
|
}
|
|
|
|
|
2023-05-05 07:30:00 +02:00
|
|
|
|
|
|
|
#send_emailack
|
|
|
|
sub send_emailack {
|
|
|
|
my $todo = shift;
|
|
|
|
my $sendref = shift;
|
|
|
|
my $adr_id = shift || "";
|
|
|
|
|
|
|
|
#TODO
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
|
|
|
#send_password
|
|
|
|
sub send_password {
|
|
|
|
my $todo = shift;
|
|
|
|
my $sendref = shift;
|
|
|
|
my $adr_id = shift || "";
|
|
|
|
|
|
|
|
#TODO
|
|
|
|
return;
|
|
|
|
}
|
|
|
|
|
2023-04-24 14:49:30 +02:00
|
|
|
#send_cpupdate_message
|
|
|
|
sub send_cpupdate_message {
|
|
|
|
my $todo = shift;
|
|
|
|
my $sendref = shift;
|
|
|
|
my $adr_id = shift || "";
|
|
|
|
|
|
|
|
my $client_encoding = "iso-8859-1";
|
|
|
|
my $dbh_primary = $dbt->dbconnect_extern($dbt->{primary}->{sharee_primary}->{database}->{dbname},$client_encoding);
|
|
|
|
|
|
|
|
#TeilRad Kontakt
|
|
|
|
my $pref_ctu = {
|
|
|
|
table => "contentuser",
|
|
|
|
fetch => "one",
|
|
|
|
c_id => "1",#Kontakt-hotline
|
|
|
|
};
|
|
|
|
my $uadr = { c_id => 0 };
|
|
|
|
$uadr = $dbt->fetch_tablerecord($dbh_primary,$pref_ctu);
|
|
|
|
|
|
|
|
#CMS text
|
|
|
|
my $cms_message_key = "email-cpupdate-message";
|
|
|
|
$cms_message_key = "email-proactive-cpupdate-message" if($todo eq "send_proactive_cpupdate_message");
|
|
|
|
my $pref_cms = {
|
|
|
|
table => "contentuser",
|
|
|
|
fetch => "one",
|
|
|
|
ct_name => "$cms_message_key",
|
|
|
|
};
|
|
|
|
my $cms_prim = { c_id => 0, txt01 => '' };
|
|
|
|
$cms_prim = $dbt->fetch_tablerecord($dbh_primary,$pref_cms);
|
|
|
|
|
|
|
|
#Kunde
|
|
|
|
my $pref_adr = {
|
|
|
|
table => "contentadr",
|
|
|
|
fetch => "one",
|
|
|
|
c_id => "$adr_id",
|
|
|
|
};
|
|
|
|
my $cta = { c_id => 0 };
|
|
|
|
$cta = $dbt->fetch_tablerecord($dbh_primary,$pref_adr);
|
|
|
|
|
|
|
|
$sendref = prepare_content($sendref,$cta,$cms_prim,$uadr);
|
|
|
|
|
|
|
|
return $sendref;
|
|
|
|
}#end send_cpupdate_message
|
|
|
|
|
|
|
|
#prepare email by cms markup
|
|
|
|
sub prepare_content {
|
|
|
|
my $sendref = shift;
|
|
|
|
my $cta = shift;
|
|
|
|
my $cms_prim = shift;
|
|
|
|
my $uadr = shift;
|
|
|
|
|
|
|
|
my $globalconf_file = "/var/www/copri4/shareeconf/global.cfg";
|
|
|
|
my $conf = Config::General->new($globalconf_file);
|
|
|
|
my %globalconf = $conf->getall;
|
|
|
|
|
|
|
|
my $app_name = "App";
|
|
|
|
while (my ($key, $merchant) = each %{ $globalconf{merchant_ids} }) {
|
|
|
|
$app_name =~ s/$app_name/$merchant->{app_name}/ if($merchant->{app_name} && $cta->{int15} && $cta->{int15} == $merchant->{id});
|
|
|
|
}
|
|
|
|
my $subject = "TeilRad Mietradsystem";#default
|
|
|
|
$subject = $1 if($cms_prim->{txt01} =~ /--subject--(.*)--subject--/);
|
|
|
|
$cms_prim->{txt01} =~ s/--subject--$subject--subject--//;
|
|
|
|
$cms_prim->{txt01} =~ s/\n//;
|
|
|
|
$cms_prim->{txt01} =~ s/\n//;
|
|
|
|
|
|
|
|
my $signature = <<EOF
|
|
|
|
--
|
|
|
|
$uadr->{txt01}
|
|
|
|
$uadr->{txt03}
|
|
|
|
$uadr->{txt06}
|
|
|
|
$uadr->{txt07}
|
|
|
|
$uadr->{txt08}
|
|
|
|
|
|
|
|
$uadr->{txt84}
|
|
|
|
|
|
|
|
EOF
|
|
|
|
;
|
|
|
|
|
|
|
|
$sendref->{mail_to} = $cta->{txt08};
|
|
|
|
$sendref->{c_id} = $cta->{c_id};
|
|
|
|
$sendref->{subject} = $subject;
|
|
|
|
$sendref->{subject} =~ s/::app_name::/$app_name/;
|
|
|
|
$sendref->{subject} =~ s/Mein // if($sendref->{subject} =~ /^Mein/);
|
|
|
|
|
|
|
|
$sendref->{message} = $cms_prim->{txt01};
|
|
|
|
$sendref->{message} =~ s/::user_name::/$cta->{txt01}/;
|
|
|
|
$sendref->{message} =~ s/::app_name::/$app_name/g;
|
|
|
|
$sendref->{message} =~ s/::signature::/$signature/;
|
|
|
|
$sendref->{message} =~ s/\n/\<br \/\>/g;
|
|
|
|
|
|
|
|
return $sendref;
|
|
|
|
}#end prepare_content
|
|
|
|
|
|
|
|
|
|
|
|
#send_alarm2hotline
|
|
|
|
sub send_alarm2hotline {
|
|
|
|
my $sendref = shift;
|
|
|
|
my $ct_id = shift || "";
|
|
|
|
|
|
|
|
my $client_encoding = "iso-8859-1";
|
|
|
|
my $dbh = $dbt->dbconnect_extern($dbt->{operator}->{$varenv{dbname}}->{database}->{dbname},$client_encoding);
|
|
|
|
|
|
|
|
my $pref_ctu = {
|
|
|
|
table => "contentuser",
|
|
|
|
fetch => "one",
|
|
|
|
c_id => "1",#Kontakt-hotline
|
|
|
|
};
|
|
|
|
my $uadr = { c_id => 0 };
|
|
|
|
$uadr = $dbt->fetch_tablerecord($dbh,$pref_ctu);
|
|
|
|
$sendref->{mail_to} = $uadr->{txt08};
|
|
|
|
|
|
|
|
#without cms
|
|
|
|
my $cms_prim = { c_id => 0, txt01 => 'Folgendes Mietrad hat einen Diebstahlalarm ausgelöst' };
|
|
|
|
|
|
|
|
my $pref_ct = {
|
|
|
|
table => "contenttheftpos",
|
|
|
|
fetch => "one",
|
|
|
|
c_id => $ct_id,
|
|
|
|
};
|
|
|
|
|
|
|
|
my $ct = { c_id => 0 };
|
|
|
|
$ct = $dbt->fetch_tablerecord($dbh,$pref_ct);
|
|
|
|
|
|
|
|
$sendref->{c_id} = $ct->{c_id};
|
|
|
|
$sendref->{subject} = "Diebstahlalarm $oprefix$ct->{barcode}";
|
|
|
|
|
|
|
|
$sendref->{message} = <<EOF
|
|
|
|
$cms_prim->{txt01}
|
|
|
|
|
|
|
|
Bike: $oprefix$ct->{barcode}
|
|
|
|
Speed: $ct->{int07}
|
|
|
|
Meter: $ct->{int08}
|
|
|
|
GPS: $ct->{txt06}
|
|
|
|
Timestamp: $ct->{start_time}
|
|
|
|
|
|
|
|
Öffne das Alarmjournal für weitere Informationen:
|
|
|
|
<a href='$dbt->{operator}->{$varenv{dbname}}->{operatorDMS}/DMS/Alarmjournal'>$dbt->{operator}->{$varenv{dbname}}->{operatorDMS}/DMS/Alarmjournal</a>
|
|
|
|
|
|
|
|
Freundliche Grüße,
|
|
|
|
--
|
|
|
|
$uadr->{txt01}
|
|
|
|
$uadr->{txt03}
|
|
|
|
$uadr->{txt06}
|
|
|
|
|
|
|
|
$uadr->{txt84}
|
|
|
|
|
|
|
|
EOF
|
|
|
|
;
|
|
|
|
|
|
|
|
$sendref->{message} =~ s/\n/\<br \/\>/g;
|
|
|
|
return $sendref;
|
|
|
|
}
|
|
|
|
|
|
|
|
#sending mail job
|
|
|
|
sub sendmailjob {
|
|
|
|
my $sendref = shift || "";
|
|
|
|
|
|
|
|
#at first connect mailxchanger by mailx.cfg config
|
|
|
|
my ($smtp,$mailxconf) = $mailtrans->mail_connect($sendref);
|
|
|
|
|
|
|
|
#one mailing with mail address on command
|
|
|
|
if($sendref->{mail_to} =~ /\w\@\w/ && $sendref->{subject} && $sendref->{message}){
|
|
|
|
my $ret = "";
|
|
|
|
$ret = $mailtrans->mail_transport($smtp,$mailxconf,$sendref);
|
|
|
|
|
|
|
|
print EMA "done mailing with state to $sendref->{mail_to}: $ret\n";
|
|
|
|
}else{
|
|
|
|
print EMA "Error, no or false email address $sendref->{mail_to}, exit\n";
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
print EMA "\n\n";
|
|
|
|
close EMA;
|
|
|
|
|