Changeset 16380 for gsdl

Timestamp:

2008-07-14T14:35:40+12:00 (16 years ago)

Author:

kjdon

Message:

added two methods, get_full_filenames (which used to be in BasePlugin), and get_prefix_and_tail_by_regex (which is used with associate_tail_re stuff)

File:

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

gsdl/trunk/perllib/util.pm

@@ -648 +648 @@
 }
 
+# splits a filename into a prefix and a tail extension using the tail_re, or 
+# if that fails, splits on the file_extension . (dot) 
+sub get_prefix_and_tail_by_regex {
+
+    my ($filename,$tail_re) = @_;
+    
+    my ($file_prefix,$file_ext) = ($filename =~ m/^(.*?)($tail_re)$/);
+    if ((!defined $file_prefix) || (!defined $file_ext)) {
+    ($file_prefix,$file_ext) = ($filename =~ m/^(.*)(\..*?)$/);
+    }
+
+    return ($file_prefix,$file_ext);
+}
+
+# get full path and file only path from a base_dir (which may be empty) and 
+# file (which may contain directories)
+sub get_full_filenames {
+    my ($base_dir, $file) = @_;
+    
+    my $filename_full_path = $file;
+    # add on directory if present
+    $filename_full_path = &util::filename_cat ($base_dir, $file) if $base_dir =~ /\S/;
+    
+    my $filename_no_path = $file;
+
+    # remove directory if present
+    $filename_no_path =~ s/^.*[\/\\]//;
+    return ($filename_full_path, $filename_no_path);
+}
 
 # returns the path of a file without the filename -- ie. the directory the file is in