Allow to specify a remote name for an uploaded file

diff --git a/modules/Command.pm b/modules/Command.pm
index 28c6777a19415888e109640888e2e3936030f2da..2905545490d5458f307697871485ceefb89e12fd 100644 (file)
--- a/modules/Command.pm
+++ b/modules/Command.pm
@@ -6,7 +6,7 @@ package Command;
 # Execute Dev-Editor's commands
 #
 # Author:        Patrick Canterino <patrick@patshaping.de>
-# Last modified: 2005-08-01
+# Last modified: 2009-03-30
 #
 
 use strict;
@@ -521,6 +521,14 @@ sub exec_upload($$)
 
  if(my $uploaded_file = $cgi->param('uploaded_file'))
  {
+  if($cgi->param('remote_file'))
+  {
+   $uploaded_file = $cgi->param('remote_file');
+
+   $uploaded_file =~ s!/!!g;
+   $uploaded_file =~ s!\\!!g;
+  }
+
   # Process file upload
 
   my $filename  = file_name($uploaded_file);

diff --git a/templates/upload.htm b/templates/upload.htm
index be3e2d0c68451b0bae714a60ce16fd12ac4d3cc2..494bbb4c11b5a815a1187c975ece691fe29c203a 100644 (file)
--- a/templates/upload.htm
+++ b/templates/upload.htm
@@ -25,6 +25,9 @@
 <p>File to upload:<br>
 <input type="file" name="uploaded_file" size="35"></p>
 
+<p>Remote name of the file (optional):<br>
+<input type="text" name="remote_file" size="35"></p>
+
 <p>Transfer mode (see below):<br>
 <input type="radio" name="ascii" id="ascii" value="1"><label for="ascii">ASCII</label> <input type="radio" name="ascii" id="binary" value="0" checked><label for="binary">Binary (default)</label></p>
 
@@ -42,6 +45,12 @@
 <li><b>Binary:</b> The file will be uploaded as it is. Use this transfer mode for images, executable files and archives, for example. This is the default transfer mode.</li>
 </ul>
 
+<p><b>Note:</b></p>
+
+<ul>
+<li>If you specify an other remote name for the uploaded file, all slashes and backslashes will be removed from the entered value.</li>
+</ul>
+
 <hr>
 
 <p align="right"><a href="{SCRIPT}?command=about" target="_blank"><i>About Dev-Editor</i></a></p>