Developers of Sympa

[address@concealed (Kendall Libby)]

We're about to replace our old listproc system with sympa, and one of
the things we were concerned about is the large number of scenarii,
most of which would simply confuse our users.

I've created a small patch to List.pm in the load_scenario_list
subroutine which will cause sympa to ignore scenari.  To force sympa
to skip the scenario send.closed, create a file called
send.closed:ignore in ~sympa/etc/scenari (or etc/$robot/scenari). 

K.


*** List.pm-orig        Fri Nov 21 14:02:04 2003
--- List.pm     Fri Nov 21 14:06:01 2003
***************
*** 4852,4866 ****
  
      my $directory = "$self->{'dir'}";
      my %list_of_scenario;
  
      foreach my $dir ("$directory/scenari", "$Conf{'etc'}/$robot/scenari", 
"$Conf{'etc'}/scenari", "/usr/local/sympa/bin/etc/scenari") {
  
        next unless (-d $dir);
  
        while (<$dir/$action.*>) {
            next unless (/$action\.($regexp{'scenario'})$/);
!           my $name = $1;
            
            next if (defined $list_of_scenario{$name});
  
            my $scenario = &List::_load_scenario_file ($action, $robot, 
$name, $directory);
--- 4852,4873 ----
  
      my $directory = "$self->{'dir'}";
      my %list_of_scenario;
+     my %skip_scenario;
+     my $name;
  
      foreach my $dir ("$directory/scenari", "$Conf{'etc'}/$robot/scenari", 
"$Conf{'etc'}/scenari", "/usr/local/sympa/bin/etc/scenari") {
  
        next unless (-d $dir);
  
        while (<$dir/$action.*>) {
+             if (/$action\.($regexp{'scenario'}):ignore$/) {
+               $name = $1;
+               $skip_scenario{$name} = 1;
+             }
            next unless (/$action\.($regexp{'scenario'})$/);
!           $name = $1;
  
+           next if (defined $skip_scenario{$name});
            next if (defined $list_of_scenario{$name});
  
            my $scenario = &List::_load_scenario_file ($action, $robot, 
$name, $directory);