patch for WWSympa

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

Due to "visibility" scenarization, WWSympa 0.5(.1) does not show
public lists to non-authentified users.

Here is a patch to solve this problem :

*** wwsympa.fcgi.orig   Thu Dec 16 16:43:20 1999
--- wwsympa.fcgi        Mon Dec 20 09:20:09 1999
***************
*** 565,571 ****
      
      foreach $l ( &List::get_lists() ) {
        my $list = new List ($l);
!       my $action = &List::get_action ('visibility', $l, 
$param->{'user'}{'email'}, 'smtp');
        
        next unless ($action eq 'do_it');
        $param->{'lists'}{$l}{'subject'} = $list->{'admin'}{'subject'};
--- 565,572 ----
      
      foreach $l ( &List::get_lists() ) {
        my $list = new List ($l);
!       my $sender = $param->{'user'}{'email'} || 'nobody';
!       my $action = &List::get_action ('visibility', $l, $sender, 'smtp');
        
        next unless ($action eq 'do_it');
        $param->{'lists'}{$l}{'subject'} = $list->{'admin'}{'subject'};


--------------
Olivier Salaün