X-Git-Url: https://git.p6c8.net/devedit.git/blobdiff_plain/5dc063ebfce6e78b69fa41bb4a2475fd726ee728..9fdc1d205fbe98f5f1f2f474e243e43018c2f30c:/modules/Command.pm

diff --git a/modules/Command.pm b/modules/Command.pm
index 9f6b970..e2a0063 100644
--- 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>
-# Last modified: 2004-03-09
+# Last modified: 2004-03-15
 #
 
 use strict;
@@ -125,6 +125,7 @@ sub exec_show($$)
    $dtpl->fillin("DIR",$virt_path);
    $dtpl->fillin("DIR_NAME",$dir);
    $dtpl->fillin("DATE",strftime($config->{'timeformat'},localtime($stat[9])));
+   $dtpl->fillin("URL",equal_url($config->{'httproot'},$virt_path));
 
    $dirlist .= $dtpl->get_template;
   }
@@ -146,6 +147,7 @@ sub exec_show($$)
    $ftpl->fillin("FILE_NAME",$file);
    $ftpl->fillin("SIZE",$stat[7]);
    $ftpl->fillin("DATE",strftime($config->{'timeformat'},localtime($stat[9])));
+   $ftpl->fillin("URL",equal_url($config->{'httproot'},$virt_path));
 
    $ftpl->parse_if_block("not_readable",not -r $phys_path);
    $ftpl->parse_if_block("binary",-B $phys_path);