X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/5abe8188abba8d1d5931b84d36d719c7ef3aee36..71dce6c526b5f0c1617313dacf173f0c75f8183d:/modules/Config/DevEdit.pm?ds=inline

diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm
index 24bc3a2..e851ee8 100644
--- a/modules/Config/DevEdit.pm
+++ b/modules/Config/DevEdit.pm
@@ -6,10 +6,10 @@ package Config::DevEdit;
 # 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) 2003-2011 Patrick Canterino
 # All Rights Reserved.
 #
 # This file can be distributed and/or modified under the terms of
@@ -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.
 
-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()
 #
@@ -83,6 +85,7 @@ sub read_config($)
 
    $config->{'fileroot'}         = $new_conf->{'fileroot'}  if($new_conf->{'fileroot'});
    $config->{'httproot'}         = $new_conf->{'httproot'}  if($new_conf->{'httproot'});
+   $config->{'startdir'}         = $new_conf->{'startdir'}  if($new_conf->{'startdir'});
 
    $config->{'forbidden'}        = $new_conf->{'forbidden'} if(defined $new_conf->{'forbidden'});
    $config->{'disable_commands'} = $new_conf->{'disable_commands'} if(defined $new_conf->{'disable_commands'});
@@ -124,7 +127,7 @@ sub read_config($)
 
   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})
    {