Changeset 18398
- Timestamp:
- 2009-01-15T19:25:27+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/plugins/BasePlugin.pm
r18320 r18398 51 51 'desc' => "{BasePlugin.rename_method.url}" }, 52 52 { 'name' => "base64", 53 'desc' => "{BasePlugin.rename_method.base64}" } ]; 53 'desc' => "{BasePlugin.rename_method.base64}" }, 54 { 'name' => "inherited", 55 'desc' => "{BasePlugin.rename_method.inherited}", 56 'hiddengli' => "yes" } ]; 54 57 55 58 our $encoding_list = … … 367 370 } 368 371 372 # returns this plugin's active (possibly user-selected) file_rename_method 373 sub get_file_rename_method() { 374 my $self = shift (@_); 375 my $rename_method = $self->{'file_rename_method'}; 376 if($rename_method) { 377 return $rename_method; 378 } else { 379 return $self->get_default_file_rename_method(); 380 } 381 } 382 369 383 # default implementation is to do nothing 370 384 sub store_block_files { … … 740 754 if ($@) { 741 755 print $outhandle "$@\n"; 742 print $outhandle "Warning: Unable to establish locale. Will assume filesy tem is UTF-8\n";756 print $outhandle "Warning: Unable to establish locale. Will assume filesystem is UTF-8\n"; 743 757 744 758 } … … 1029 1043 # If the filename is url_encoded, we need to encode the % signs 1030 1044 # in the filename, so that it works in a url 1031 my $url_tail_filename = &unicode::filename_to_url($tail_filename );1045 my $url_tail_filename = &unicode::filename_to_url($tail_filename, $self->{'file_rename_method'}); 1032 1046 # work out extended tail extension (i.e. matching tail re) 1033 1047
Note:
See TracChangeset
for help on using the changeset viewer.