Changeset 8682

Timestamp:

2004-11-26T10:49:29+13:00 (19 years ago)

Author:

mdewsnip

Message:

Added a filename_head function that returns the path of a file without the filename -- ie. the directory the file is in.

File:

• trunk/gsdl/perllib/util.pm (modified) (1 diff)

trunk/gsdl/perllib/util.pm

@@ -512 +512 @@
 }
 
+
+# returns the path of a file without the filename -- ie. the directory the file is in
+sub filename_head {
+    my $filename = shift(@_);
+
+    if ($ENV{'GSDLOS'} =~ /^windows$/i) {
+    $filename =~ s/[^\\\\]*$//;
+    }
+    else {
+    $filename =~ s/[^\\\/]*$//;
+    }
+
+    return $filename;
+}
+
+
 # returns 1 if filename1 and filename2 point to the same
 # file or directory