Patch de Conf.pm

[Raphael Hertzog <adresse@cachée>]

Bonjour,

je vous joins un patch permettant d'utiliser des paramètres
spéciaux dans sympa.conf. Il s'agit d'autoriser des paramètres
du genre `commande`. Exemple tiré de mon sympa.conf personnel :

# Nom de machine utilisé par votre système Sympa
host            `/bin/cat /etc/mailname || /bin/dnsdomainname`

Le patch est tout petit.

Amicalement.
-- 
Hertzog Raphaël ¤ 0C4CABF1 ¤ http://www.mygale.org/~hra/
--- Conf.pm.old Sun Aug  2 18:58:48 1998
+++ Conf.pm     Sun Aug  2 18:57:24 1998
@@ -32,6 +32,8 @@
    my $config = shift;
    my $line_num = 0;
    my $config_err = 0;
+   my $keyword = '';
+   my $value = '';
    my($i, %o);
 
    ## Open the configuration file or return and read the lines.
@@ -42,8 +44,13 @@
    while (<IN>) {
       $line_num++;
       next if (/^\s*$/o || /^[#;]/o);
-      if (/^(\S+)\s+(\S+)$/io) {
-         $o{$1} = [ $2, $line_num ];
+      if (/^(\S+)\s+(\S.*)$/io) {
+         $keyword = $1; $value = $2;
+         ## Special case : `command that output the value`
+         if ($value =~ /^\`(.*)\`$/) { 
+            $value = qx/$1/;
+         }
+         $o{$keyword} = [ $value, $line_num ];
       } else {
          printf STDERR Msg(1, 3, "Malformed line %d: %s"), $config, $_;
          $config_err++;