Changeset 8684 for trunk/gsdl/perllib/plugins/OAIPlug.pm

Timestamp:

2004-11-26T10:51:35+13:00 (19 years ago)

Author:

mdewsnip

Message:

Ooops... the OAIPlug has never worked properly on Windows! Regular expressions dealing with file paths must work with both Windows and Linux!

File:

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

trunk/gsdl/perllib/plugins/OAIPlug.pm

@@ -125 +125 @@
     ## my $source_file =  &util::filename_cat($base_dir, $file);
 
-    my $url_base_dir = $filename;
-    $url_base_dir =~ s/^(.*)\/(.*?)$/$1/;
+    my $url_base_dir = &util::filename_head($filename);
+
 ##  print STDERR "*** url base dir = $url_base_dir/$url_array->[0]\n";
     print $outhandle "OAIPlug: passing metadata on to $url_array->[0]\n"