From 1fa7943caa4368a8031e1d7bf470b385ff7cad50 Mon Sep 17 00:00:00 2001
From: pcanterino <>
Date: Fri, 24 Dec 2010 12:09:52 +0000
Subject: [PATCH 1/1] Added new configuration option "startdir" which defines
 the default directory instead of "/".

---
 devedit.pl                | 4 ++--
 modules/Config/DevEdit.pm | 1 +
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/devedit.pl b/devedit.pl
index a868428..783013d 100644
--- a/devedit.pl
+++ b/devedit.pl
@@ -6,7 +6,7 @@
 # Dev-Editor's main program
 #
 # 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
@@ -55,7 +55,7 @@ abort($config->{'errors'}->{'no_root_access'}) unless(-r $config->{'fileroot'} &
 my $cgi = new CGI;
 
 my $command = $cgi->param('command') || 'show';
-my $file    = $cgi->param('file')    || '/';
+my $file    = $cgi->param('file')    || $config->{'startdir'} || '/';
 my $curdir  = $cgi->param('curdir')  || '';
 my $newfile = $cgi->param('newfile') || '';
 
diff --git a/modules/Config/DevEdit.pm b/modules/Config/DevEdit.pm
index 6e74f2d..9b535c2 100644
--- a/modules/Config/DevEdit.pm
+++ b/modules/Config/DevEdit.pm
@@ -85,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'});
-- 
2.34.1