my $subgroups = $mod_group->subgroups($targets, 1);
- my $rulename = $vars->{RULE};
+ my $rulename = $vars->{RULE} // 'unknown';
foreach my $ta (@$subgroups) {
my ($tg, $entity) = (@$ta[0], @$ta[1]);
my $subgroups = $mod_group->subgroups($targets, 1);
- my $rulename = $vars->{RULE};
+ my $rulename = $vars->{RULE} // 'unknown';
my $bcc_to = PMG::Utils::subst_values($self->{target}, $vars);
my ($self, $queue, $ruledb, $mod_group, $targets,
$msginfo, $vars, $marks) = @_;
- my $rulename = $vars->{RULE};
+ my $rulename = $vars->{RULE} // 'unknown';
if ($msginfo->{testmode}) {
my $fh = $msginfo->{test_fh};
my $from = 'postmaster';
- my $rulename = $vars->{RULE};
+ my $rulename = $vars->{RULE} // 'unknown';
my $body = PMG::Utils::subst_values($self->{body}, $vars);
my $subject = PMG::Utils::subst_values($self->{subject}, $vars);
my $subgroups = $mod_group->subgroups($targets, 1);
- my $rulename = $vars->{RULE};
+ my $rulename = $vars->{RULE} // 'unknown';
foreach my $ta (@$subgroups) {
my ($tg, $entity) = (@$ta[0], @$ta[1]);
my ($self, $queue, $ruledb, $mod_group, $targets,
$msginfo, $vars, $marks) = @_;
- my $rulename = $vars->{RULE};
+ my $rulename = $vars->{RULE} // 'unknown';
if (!$self->{all} && ($#$marks == -1)) {
# no marks
my ($self, $queue, $ruledb, $mod_group, $targets,
$msginfo, $vars, $marks) = @_;
- my $rulename = $vars->{RULE};
+ my $rulename = $vars->{RULE} // 'unknown';
my $subgroups = $mod_group->subgroups($targets);