Improved file editing using another filename:

[devedit.git] / modules / Command.pm

diff --git a/modules/Command.pm b/modules/Command.pm
index 967615d97448c338b2ef8a1e7e9fc3ab3280ab06..0c2caf05dab1655b6fa5411ae887ccbdf7a7a261 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -6,7 +6,7 @@ package Command;
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>

-# Last modified: 2004-09-05
+# Last modified: 2004-10-04

 #
 
 use strict;
 #
 
 use strict;


@@ -342,7 +342,7 @@ sub exec_endedit($$)
   $content = encode_entities($content,"\200-\377");
  }
 
   $content = encode_entities($content,"\200-\377");
  }
 

- if($data->{'cgi'}->param('saveas'))
+ if($data->{'cgi'}->param('saveas') && $data->{'new_physical'} ne '' && $data->{'new_virtual'} ne '')

  {
   # Create the new filename
 
  {
   # Create the new filename
 


@@ -355,7 +355,7 @@ sub exec_endedit($$)
  }
 
  return error($config->{'errors'}->{'editdir'},upper_path($virtual)) if(-d $physical);
  }
 
  return error($config->{'errors'}->{'editdir'},upper_path($virtual)) if(-d $physical);

- return error($config->{'errors'}->{'noedit'}, upper_path($virtual)) unless(-r $physical && -w $physical);
+ return error($config->{'errors'}->{'noedit'}, upper_path($virtual)) if(-e $physical && !(-r $physical && -w $physical));

 
  if(file_save($physical,\$content))
  {
 
  if(file_save($physical,\$content))
  {