- I always wanted an option for switching Dev-Editor to read-only. So I defined

  a pseudo command named "@write". When disabling this command in the
  configuration file, all writing commands get disabled.
  When you add a command beginning with "@" to the "disable_commands" option,
  it is not added to the internal data structure.
- When disabling the "remove" command, "remove_multi" gets also disabled.

diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm
index 24bc3a2e39186850deafbd1b506eea8a60bcacfb..6e74f2dfd528f8a0ca45a79f1fee640c747f8c36 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: 2010-12-23
+# Last modified: 2010-12-24

 #
 # Copyright (C) 1999-2000 Roland Bluethgen, Frank Schoenmann
 # Copyright (C) 2003-2009 Patrick Canterino
 #
 # Copyright (C) 1999-2000 Roland Bluethgen, Frank Schoenmann
 # Copyright (C) 2003-2009 Patrick Canterino


@@ -35,7 +35,9 @@ use base qw(Exporter);
 # The Hash key defines a command, the value is an Array Reference or String
 # defining the commands that will also be disabled.
 
 # The Hash key defines a command, the value is an Array Reference or String
 # defining the commands that will also be disabled.
 

-my %disable_dependency = ('beginedit' => 'endedit');
+my %disable_dependency = ('beginedit' => 'endedit',
+                          'remove' => 'remove_multi',
+                          '@write' => ['beginedit','endedit','copy','rename','remove','remove_multi','mkdir','mkfile','upload','chprop']);

 
 # read_config()
 #
 
 # read_config()
 #


@@ -124,7 +126,7 @@ sub read_config($)
 
   foreach my $command(parse_line('\s+',0,$config->{'disable_commands'}))
   {
 
   foreach my $command(parse_line('\s+',0,$config->{'disable_commands'}))
   {

-   push(@commands,$command);
+   push(@commands,$command) unless(substr($command,0,1) eq '@');

 
    if(exists($disable_dependency{$command}) && $disable_dependency{$command})
    {
 
    if(exists($disable_dependency{$command}) && $disable_dependency{$command})
    {