1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
*** List.pm.orig Fri Feb 18 09:26:37 2000
--- List.pm Fri Feb 18 09:22:21 2000
***************
*** 746,755 ****
my $hdr = $msg->head;
my $name = $self->{'name'};
my $admin = $self->{'admin'};
## Bounce rate
! if (($self->get_total_bouncing() * 100 / $self->{'total'}) > $self->{'admin'}{'bounce'}{'warn_rate'}) {
! $self->send_alert_to_owner('bounce_rate');
}
## Add Custom Subject
--- 746,764 ----
my $hdr = $msg->head;
my $name = $self->{'name'};
my $admin = $self->{'admin'};
+ my $total = $self->{'total'};
+
+ unless ($total > 0) {
+ &do_log('info', 'No subscriber in list %s', $name);
+ return undef;
+ }
## Bounce rate
! ## Available in database mode only
! if ($use_db) {
! if (($self->get_total_bouncing() * 100 / $total) > $self->{'admin'}{'bounce'}{'warn_rate'}) {
! $self->send_alert_to_owner('bounce_rate');
! }
}
## Add Custom Subject
***************
*** 768,774 ****
## Who is the enveloppe sender ?
my $host = $self->{'admin'}->{'host'};
$host = $Conf{'host'} unless ($host);
! my $from = "$self->{'name'}-owner\@$host";
my @tabrcpt;
--- 777,783 ----
## Who is the enveloppe sender ?
my $host = $self->{'admin'}->{'host'};
$host = $Conf{'host'} unless ($host);
! my $from = "$name-owner\@$host";
my @tabrcpt;
***************
*** 778,783 ****
--- 787,796 ----
or ($user->{'reception'} eq 'nomail') );
}
+ unless (@tabrcpt) {
+ &do_log('info', 'No subscriber for sending msg in list %s', $name);
+ return undef;
+ }
## verifications much later.
smtp::mailto($msg, $from, @tabrcpt );
|
