[Nms-cgi-devel] NMStreq idea: configuration defaults file

[David C. <da...@ra...>]

I modified my copy of NMStreq.pm to optionally read a second configuration=
 file of default values.  It makes maintaining many TFMail configuration=
 files easier.

In each primary/_config configuration file that I want to use defaults for=
 settings I didn't specify, I set "defaults" to a filename (without=
 extension) of a configuration file containing default values.

I added the following 9 lines in sub new, after the primary configuration=
 file is read, and before CGI parameters are loaded:

   my $cfg_name2 =3D $self->config('defaults');
   if ($cfg_name2)
    {
     my $config2 =3D $self->_read_config_file($cfg_name2);
     while ( my($key, $val) =3D each %$config2 )
      {
        $self->{r}{config}{$key} =3D $val unless exists=
 $self->{r}{config}{$key};
      }
    }

I am not a Perl expert, so I assume there are better code and methods to=
 fulfill my objective.  For example, loading defaults for keys already set=
 could be avoided by modifying sub _read_config_file.  That would also=
 remove a loop and reduce memory use and code needed.  But, I avoided=
 modifying existing code.

I joined this email list yesterday.

David