Changeset 1705

Timestamp:

2000-11-27T15:36:10+13:00 (23 years ago)

Author:

say1

Message:

fixed to handle filenames with multiple dots.

Location:

trunk/gsdl

Files:

• bin/script/gsConvert.pl (modified) (1 diff)
• perllib/plugins/ConvertToPlug.pm (modified) (1 diff)

trunk/gsdl/bin/script/gsConvert.pl

@@ -84 +84 @@
     # Deduce filenames
     my ($tailname,$dirname,$suffix) 
-    = File::Basename::fileparse($input_filename,'\..+');
+    = File::Basename::fileparse($input_filename,'\.[^\.]+');
     my $output_filestem = &util::filename_cat($dirname,"$tailname");
 

trunk/gsdl/perllib/plugins/ConvertToPlug.pm

@@ -130 +130 @@
     # derive tmp filename from input filename
     my ($tailname,$dirname,$suffix)
-    = File::Basename::fileparse($input_filename,'\..+');
+    = File::Basename::fileparse($input_filename,'\.[^\.]+$');
+
     my $tmp_filename = &util::filename_cat($tmp_dirname,"$tailname$suffix");
     # Remove any white space from filename -- no risk of name collision, and