1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
*** List.pm.orig Thu Sep 16 13:08:38 1999
--- List.pm Thu Sep 16 17:54:41 1999
***************
*** 2054,2060 ****
foreach $i (@{$admin->{'custom_header'}}) {
printf INF Msg(9, 9, "URL of the liste : %s\n"), $i if ($admin->{'custom_header'});
}
! printf INF Msg(9, 10, "DIGEST : %s\n"), $admin->{'digest'} if ($admin->{'digest'});
printf INF Msg(9, 11, "custom_subject : %s\n"), $admin->{'custom_subject'} if ($admin->{'custom_subject'});
print INF "\n";
--- 2054,2064 ----
foreach $i (@{$admin->{'custom_header'}}) {
printf INF Msg(9, 9, "URL of the liste : %s\n"), $i if ($admin->{'custom_header'});
}
!
! if ($admin->{'digest'}) {
! my $digest = sprintf '%s %d:%d', join(',',@{$admin->{'digest'}{'days'}}), $admin->{'digest'}{'hour'}, $admin->{'digest'}{'minute'};
! printf INF Msg(9, 10, "DIGEST : %s\n"), $digest;
! }
printf INF Msg(9, 11, "custom_subject : %s\n"), $admin->{'custom_subject'} if ($admin->{'custom_subject'});
print INF "\n";
|
