Changeset 15003 for gsdl/trunk/perllib/util.pm

Timestamp:

2008-02-22T11:29:52+13:00 (16 years ago)

Author:

davidb

Message:

With the new ability to group collections within a top-level collection, import.pl and buildcol.pl commands can now be given collection names such as "mygroup/demo". Some of the building code -- mostly involved with generating the index files and GDBM files -- had to be updated to correctly handle such compound collection names

File:

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

gsdl/trunk/perllib/util.pm

@@ -703 +703 @@
 
 
+sub get_dirsep_tail {
+    my ($filename) = @_;
+    
+    # returns last part of directory or filename
+    # On unix e.g. a/b.d => b.d
+    #              a/b/c => c
+
+    my $dirsep = get_dirsep();
+    
+    my ($tail) = ($filename =~ m/^(?:.*?$dirsep)?(.*?)$/);
+
+    return $tail;
+}
+
+
 # if this is running on windows we want binaries to end in
 # .exe, otherwise they don't have to end in any extension