Added an "equals" link at the top and a horizontal rule at the bottom of the page.

[devedit.git] / modules / Tool.pm

diff --git a/modules/Tool.pm b/modules/Tool.pm
index fc1b3b47034a3c38ed616fbd7f4322bc10a1f793..1009640c046d86aad9a2553bde2331e61031d16c 100644 (file)
--- a/modules/Tool.pm
+++ b/modules/Tool.pm
@@ -6,7 +6,7 @@ package Tool;
 # Some shared sub routines
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>
 # Some shared sub routines
 #
 # Author:        Patrick Canterino <patshaping@gmx.net>

-# Last modified: 2003-12-02
+# Last modified: 2004-02-24

 #
 
 use strict;
 #
 
 use strict;


@@ -24,6 +24,7 @@ use base qw(Exporter);
 @EXPORT = qw(check_path
              clean_path
              devedit_reload
 @EXPORT = qw(check_path
              clean_path
              devedit_reload

+             equal_url

              file_name
              upper_path);
 
              file_name
              upper_path);
 


@@ -125,9 +126,30 @@ sub devedit_reload($)
  return \$header;
 }
 
  return \$header;
 }
 

+# equal_url()
+#
+# Create URL equal to a file or directory
+#
+# Params: 1. HTTP root
+#         2. Relative path
+#
+# Return: Formatted link (String)
+
+sub equal_url($$)
+{
+ my ($root,$path) = @_;
+ my $url;
+
+ $root =~ s!/$!!;
+ $path =~ s!^/!!;
+ $url  =  $root."/".$path;
+
+ return $url;
+}
+

 # file_name()
 #
 # file_name()
 #

-# Returns the last path of a path
+# Return the last path of a path

 #
 # Params: Path
 #
 #
 # Params: Path
 #


@@ -149,7 +171,7 @@ sub file_name($)
 
 # upper_path()
 #
 
 # upper_path()
 #

-# Cut the last part of a path away
+# Cut away the last part of a path

 #
 # Params: Path
 #
 #
 # Params: Path
 #