X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/cb887fe000f52bd2da689982442b11d8fff08383..ff6b963d7af92549b2832612227b86d78ebf4140:/devedit.pl diff --git a/devedit.pl b/devedit.pl index aa4df16..eccebd0 100644 --- a/devedit.pl +++ b/devedit.pl @@ -1,12 +1,12 @@ #!C:/Programme/Perl/bin/perl.exe -w # -# Dev-Editor 2.0 (CVS) +# Dev-Editor 2.1a # # Dev-Editor's main program # # Author: Patrick Canterino -# Last modified: 2004-07-04 +# Last modified: 2004-11-07 # use strict; @@ -23,7 +23,7 @@ use Command; use Output; use Tool; -$VERSION = '2.0 (CVS)'; +$VERSION = '2.1a'; # Path to configuration file # Change if necessary! @@ -35,6 +35,14 @@ use constant CONFIGFILE => 'devedit.dat'; my $config = read_config(CONFIGFILE); error_template($config->{'templates'}->{'error'}); # Yes, I'm lazy... +# Check if the root directory exists + +abort($config->{'errors'}->{'no_root_dir'}) unless(-d $config->{'fileroot'}); + +# Check if we are able to access the root directory + +abort($config->{'errors'}->{'no_root_access'}) unless(-r $config->{'fileroot'} && -x $config->{'fileroot'}); + # Read the most important form data my $cgi = new CGI; @@ -50,7 +58,7 @@ my $newfile = $cgi->param('newfile') || ''; my $new_physical = ''; my $new_virtual = ''; -if($newfile ne '') +if($newfile ne '' && $newfile !~ /^\s+$/) { $curdir = upper_path($file) if($curdir eq ''); my $path = clean_path($curdir.$newfile); @@ -80,7 +88,7 @@ if($newfile ne '') $new_virtual .= $file; } -# This check has to be performed first, or abs_path() will be confused +# This check has to be performed first or abs_path() will be confused if(-e clean_path($config->{'fileroot'}."/".$file)) {