File uploads did not work. Fixed in Dev-Editor 2.2a.

diff --git a/devedit.pl b/devedit.pl
index 2bf27bf4dd10a2fe550645d01e8d5d0eaa07ee0e..44ced92e77c7c5f8273afd8712217720d0ef756f 100644 (file)
--- a/devedit.pl
+++ b/devedit.pl
@@ -1,7 +1,7 @@
 #!C:/Programme/Perl/bin/perl.exe -w
 
 #
 #!C:/Programme/Perl/bin/perl.exe -w
 
 #

-# Dev-Editor 2.2
+# Dev-Editor 2.2a

 #
 # Dev-Editor's main program
 #
 #
 # Dev-Editor's main program
 #


@@ -23,7 +23,7 @@ use Command;
 use Output;
 use Tool;
 
 use Output;
 use Tool;
 

-$VERSION = '2.2';
+$VERSION = '2.2a';

 
 # Path to configuration file
 # Change if necessary!
 
 # Path to configuration file
 # Change if necessary!

diff --git a/modules/Command.pm b/modules/Command.pm
index 1423442a5705ba17894c42ff27b1ff1c395a94f5..da70b349d8e40d7c71b177d4248a3ed173e052c0 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -484,7 +484,7 @@ sub exec_upload($$)
  my $cgi            = $data->{'cgi'};
 
  return error($config->{'errors'}->{'no_directory'},upper_path($virtual),{FILE => $virtual}) unless(-d $physical);
  my $cgi            = $data->{'cgi'};
 
  return error($config->{'errors'}->{'no_directory'},upper_path($virtual),{FILE => $virtual}) unless(-d $physical);

- return error($config->{'errors'}->{'dir_no_create'},$virtual,{DIR => $virtual});
+ return error($config->{'errors'}->{'dir_no_create'},$virtual,{DIR => $virtual})             unless(-w $physical);

 
  if(my $uploaded_file = $cgi->param('uploaded_file'))
  {
 
  if(my $uploaded_file = $cgi->param('uploaded_file'))
  {