You can now define alias names for users who have an individual configuration,

so you don't need to define an individual sections for users with the same
configuration any more.

diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm
index aa76b5ebbc190d1286453e81994569c8e0385ee3..ce81d086ac94e0c9b2077a2ddb9debd38f63bebf 100644 (file)
--- a/modules/Config/DevEdit.pm
+++ b/modules/Config/DevEdit.pm
@@ -6,7 +6,7 @@ package Config::DevEdit;
 # Read and parse the configuration files
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>
 # Read and parse the configuration files
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>

-# Last modified: 2005-08-24
+# Last modified: 2005-09-30

 #
 
 use strict;
 #
 
 use strict;


@@ -22,6 +22,8 @@ use base qw(Exporter);
 
 @EXPORT = qw(read_config);
 
 
 @EXPORT = qw(read_config);
 

+use Data::Dumper;
+

 # read_config()
 #
 # Read the configuration files of Dev-Editor
 # read_config()
 #
 # Read the configuration files of Dev-Editor


@@ -45,6 +47,20 @@ sub read_config($)
  {
   my $userconf = parse_config($config->{'userconf_file'});
 
  {
   my $userconf = parse_config($config->{'userconf_file'});
 

+  # Parse aliases (we use references, so we won't get a memory
+  # problem so soon...)
+
+  foreach my $user(keys(%$userconf))
+  {
+   if(my $aliases = $userconf->{$user}->{'aliases'})
+   {
+    foreach my $alias(parse_line('\s+',0,$aliases))
+    {
+     $userconf->{$alias} = $userconf->{$user} unless($userconf->{$alias});
+    }
+   }
+  }
+

   if($userconf->{$ENV{'REMOTE_USER'}})
   {
    # The current HTTP Auth user has got an individual configuration
   if($userconf->{$ENV{'REMOTE_USER'}})
   {
    # The current HTTP Auth user has got an individual configuration