Pb digest

[Olivier Salaun - CRU <adresse@cachée>]

> La commande REV de la version 2.3.0 revnoie:
> Digest             : HASH(0x5f5a38)
> alors que les versions précédentes donnaient les jour et heures des digests.

Ci-dessous un patch pour corriger ce problème.

Olivier Salaün
*** 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";