Changeset 18319 for gsdl/trunk/perllib/doc.pm

Timestamp:

2009-01-06T18:40:53+13:00 (15 years ago)

Author:

ak19

Message:

Now plugins provide the option of base64 encoding or url encoding filenames that are to be renamed (when copied into the archives dir). Previously renamed files would always be url-encoded. URL-encoding is the default now for most plugins except MP3Plugin and OggVorbisPlugin, where the default is base64 encoding. Base64 encoding filenames upon renaming them was introduced so that more files that browsers try to open in external applications can open them, since url encoding does not seem to be implemented the same everywhere (for instance, windows media player is unable to handle url-encoded wmv filenames when such files are launched in it through the browser).

File:

• gsdl/trunk/perllib/doc.pm (modified) (3 diffs)

gsdl/trunk/perllib/doc.pm

@@ -49 +49 @@
 sub new {
     my $class = shift (@_);
-    my ($source_filename, $doc_type) = @_;
+    my ($source_filename, $doc_type, $rename_method) = @_;
 
 
@@ -67 +67 @@
     if (defined $source_filename) {
     $source_filename = &util::filename_within_collection($source_filename);
-    $self->set_source_filename ($source_filename);
+    print STDERR "******doc.pm::new(): no file rename method provided\n" unless $rename_method;
+    $self->set_source_filename ($source_filename, $rename_method);
     }
 
@@ -144 +145 @@
 sub set_source_filename {
     my $self = shift (@_);
-    my ($source_filename) = @_;
+    my ($source_filename, $rename_method) = @_;
 
     # Since the gsdlsourcefilename element goes into the doc.xml it has 
     # to be utf8. However, it should also *represent* the source filename 
     # (in the import directory) which may not be utf8 at all. 
-    # For instance, if this meta element (gsdlsourcefilename) will be 
-    # used by other applications that parse doc.xml in order to locate 
-    # gsdlsourcefilename. Therefore, the solution is to URLencode the real
-    # filename as this is a binary-to-text encoding meaning that the 
-    # resulting string is ASCII (utf8).
-    
-#    print STDERR "******URLencoding the gsdl_source_filename $source_filename ";
-    
+    # For instance, if this meta element (gsdlsourcefilename) will be used 
+    # by other applications that parse doc.xml in order to locate 
+    # gsdlsourcefilename. Therefore, the solution is to URLencode or base64 
+    # encode the real filename as this is a binary-to-text encoding meaning
+    # that the resulting string is ASCII (utf8). Decoding will give the original.
+    
+#    print STDERR "******URL/base64 encoding the gsdl_source_filename $source_filename ";
+
     # URLencode just the gsdl_source_filename, not the directory. Then prepend dir 
     my ($srcfilename,$dirname,$suffix) 
     = &File::Basename::fileparse($source_filename, "\\.[^\\.]+\$");
 #    print STDERR "-> $srcfilename -> ";
-    $srcfilename = &unicode::url_encode($srcfilename.$suffix);
+    $srcfilename = &util::rename_file($srcfilename.$suffix, $rename_method);
     $source_filename = &util::filename_cat($dirname, $srcfilename);
 #    print STDERR "$source_filename\n";