- Tool.pm: Be consistent (lc instead of uc)

- README: Begin documentation of "disable_commands"

diff --git a/README b/README
index d35105c95e6e70db9cdfb7698cf3f8001439eade..34970876773be8b98c1a6b6e047ea3f02bbc8ede 100644 (file)
--- a/README
+++ b/README
@@ -94,7 +94,9 @@ forbidden                Specify a list of filenames the user is not allowed to
                          virtual root directory (they must also begin with a
                          slash) and have to be separated by space characters. If
                          a filename contains space characters, you have to put
                          virtual root directory (they must also begin with a
                          slash) and have to be separated by space characters. If
                          a filename contains space characters, you have to put

-                         it into double quotation marks ("/filename").
+                         it into double quotation marks ("/file name").
+
+disable_commands         [Documentation]

 
 userconf_file            Specifies the path to a file which contains
                          user-dependent configuration options (see next section
 
 userconf_file            Specifies the path to a file which contains
                          user-dependent configuration options (see next section


@@ -119,6 +121,7 @@ options:
 - httproot
 - hide_dot_files
 - forbidden
 - httproot
 - hide_dot_files
 - forbidden

+- disable_commands

 
 For overriding configuration values you need a special configuration file. The
 path to this file is defined using the "userconf_file" configuration option in
 
 For overriding configuration values you need a special configuration file. The
 path to this file is defined using the "userconf_file" configuration option in

diff --git a/modules/Tool.pm b/modules/Tool.pm
index 95b64dd8e9fa7293ff9ebca5ec7bd22729cda050..ccb78af02b44adcc8f0036bc8bcbd684b24caa2d 100644 (file)
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -308,7 +308,7 @@ sub is_disabled_command($$)
 
  foreach my $entry(@$list)
  {
 
  foreach my $entry(@$list)
  {

-  return 1 if(uc($command) eq uc($entry));
+  return 1 if(lc($command) eq lc($entry));

  }
 
  return;
  }
 
  return;