Revision 6430257e
Von Jan Büren vor mehr als 2 Jahren hinzugefügt
| SL/BackgroundJob/SelfTest.pm | ||
|---|---|---|
|
$self->aggreg(TAP::Parser::Aggregator->new);
|
||
|
|
||
|
$self->modules(split /\s+/, $self->config->{modules});
|
||
|
$self->modules($self->{options}->{modules}) if $self->{options}->{modules};
|
||
|
}
|
||
|
|
||
|
sub run {
|
||
|
my $self = shift;
|
||
|
my $db_obj = shift;
|
||
|
my $self = shift;
|
||
|
my $db_obj = shift;
|
||
|
|
||
|
# get custom options (module list || alternate email)
|
||
|
$self->{options} = $db_obj->data_as_hash;
|
||
|
$self->setup;
|
||
|
|
||
|
return 1 unless $self->modules;
|
||
|
|
||
|
# set additional mail
|
||
|
my $options = $db_obj->data_as_hash;
|
||
|
$self->additional_email($options->{email}) if $options->{email} =~ m/(\S+)@(\S+)$/;
|
||
|
$self->additional_email($self->{options}->{email}) if $self->{options}->{email} =~ m/(\S+)@(\S+)$/;
|
||
|
|
||
|
foreach my $module ($self->modules) {
|
||
|
$self->run_module($module);
|
||
| ... | ... | |
|
|
||
|
my $user = $self->_email_user;
|
||
|
my $email = $user ? $user->get_config_value('email') : undef;
|
||
|
|
||
|
my $email ||= $self->{options}->{mail_to};
|
||
|
return unless $email;
|
||
|
|
||
|
$email .= $self->additional_email ? ',' . $self->additional_email : '';
|
||
Auch abrufbar als: Unified diff
SelfTest um Parameter von data erweitert.
Damit kann Module und E-Mail-Adressen überlagert werden.
Die Einträge im Datenfeld des Hintergrund-Jobs nach YAML Konvention:
modules: Proccess
mail_to: jan@kivitendo-premium.de
Somit ist es möglich unterschiedliche Test-Ergebnisse an unterschiedliche
E-Mail-Adressen zu schicken, wenn man verschiede Jobs dafür einrichtet