From: pcanterino <>
Date: Mon, 29 Nov 2004 15:32:43 +0000 (+0000)
Subject: File uploads did not work. Fixed in Dev-Editor 2.2a.
X-Git-Tag: version_2_2a
X-Git-Url: https://git.p6c8.net/devedit.git/commitdiff_plain/d17fd7f524894e58ce3113a1b2ddbfcfb00932f1

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

diff --git a/devedit.pl b/devedit.pl
index 2bf27bf..44ced92 100644
--- a/devedit.pl
+++ b/devedit.pl
@@ -1,7 +1,7 @@
 #!C:/Programme/Perl/bin/perl.exe -w
 
 #
-# Dev-Editor 2.2
+# Dev-Editor 2.2a
 #
 # Dev-Editor's main program
 #
@@ -23,7 +23,7 @@ use Command;
 use Output;
 use Tool;
 
-$VERSION = '2.2';
+$VERSION = '2.2a';
 
 # Path to configuration file
 # Change if necessary!
diff --git a/modules/Command.pm b/modules/Command.pm
index 1423442..da70b34 100644
--- 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);
- 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'))
  {