permission check improved

minor change of german translation

ezmlm-web-ng/ezmlm-web-2.1-ng/README

@@ -254,7 +254,7 @@ of constraints come into place.
   Otherwise the user is politely told to go away ;-)
 
 If list creation is allowed and the webusers file exists, then the person who
-creates the list is the default owner. As of yet there is no way to add users
+creates the list is the default owner. As of yet there is no way to create users
 through the web interface, but I intend to do this eventually.
 
 The format of a webusers file is as follows;
@@ -269,15 +269,11 @@ ignored but each list must appear on a new line.
 Once this file exists, the ezmlm-web script will allow the list users to
 configure their access lists along with any other options.
 
-You can allow some users to create lists by adding a line similar to the 
+You can permit some users to create lists by adding a line similar to the 
-following  to your webusers file:
+following to your webusers file:
 
 ALLOW_CREATE: user2, user3
 
-For now you have to manually add a new line to webusers after creating a list,
-if the user is not allowed to edit ALL lists. Otherwise he won't be able to
-change the configuration of the new list.
-
 If there is no line starting with "ALLOW_CREATE:" in the webusers file, then
 no one will be allowed to create lists. (this behaviour is new for ezmlm-web
 after version 2.1)
@@ -289,7 +285,7 @@ language independant (okay, not quite, but is 99% of the way there). Most of
 the fixed strings, help, etc is defined in the files of lang directory.
 Of course you can change them or create a new translation.
 
-The language can be configured in ezmlmwebrc with the "HTML_LANGUAGE" option.
+The language can be selected in ezmlmwebrc with the "HTML_LANGUAGE" option.
 
 If anyone gets round to writing full templates for languages I would
 appreciate it if you would do two things;

ezmlm-web-ng/ezmlm-web-2.1-ng/ezmlm-web.cgi

@@ -440,7 +440,7 @@ sub untaint {
 
 sub check_permission_for_action {
    # test if the user is allowed to modify the choosen list or to create an new one
-   # the user would still be allowed to fill out the create-form (however he got ther),
+   # the user would still be allowed to fill out the create-form (however he got there),
    # but the final creation is omitted
 
    my $ret;
@@ -707,12 +707,7 @@ sub create_list {
       }
    }
    
-   # Handle authentication stuff
+   &update_webusers();
-   if ($Q::webusers) {
-      open(WEBUSER, ">>$LIST_DIR/webusers") || die "Unable to open webusers: $!"; 
-      print WEBUSER "$Q::list: $Q::webusers\n";
-      close WEBUSER;   
-   }
 
    return 0;
 }
@@ -810,6 +805,14 @@ sub update_config {
    $list->setpart('mimeremove', $q->param('mimeremove')) if defined($q->param('mimeremove'));
    $list->setpart('prefix', $q->param('prefix')) if defined($q->param('prefix'));
 
+   &update_webusers();
+}
+
+# ------------------------------------------------------------------------
+
+sub update_webusers {
+   # replace existing webusers-line or add a new one
+
    if($Q::webusers) {
       # Back up web users file
       open(TMP, ">/tmp/ezmlm-web.$$");

ezmlm-web-ng/ezmlm-web-2.1-ng/lang/de.pm

@@ -112,7 +112,7 @@
    headerremove     => 'Diese Kopfzeilen werden aus den ausgehenden Mails entfernt',
    headeradd        => 'Diese Kopfzeilen werden zu jeder ausgehenden Mail hinzugefügt',
    mimeremove       => 'Alle Mails, die die genannten Anhangs-Typen beinhalten, werden abgewiesen',
-   allowedit        => 'unfertig: Komma-getrennte Liste von Nutzern oder <CODE>ALL</CODE> die diese Liste konfigurieren dürfen',
+   allowedit        => 'Komma-getrennte Liste von (existierenden) Nutzern oder <CODE>ALL</CODE>',
    mysqlcreate      => 'Anlegen der konfigurierten MySQL-Datenbank'
 
 );