Changeset 20862

Show
Ignore:
Timestamp:
29.10.2009 18:59:34 (10 years ago)
Author:
kjdon
Message:

plugin name change in file contents. Also, commented out process and block expressions, as this plugin doesn't block or process any files itself, just extracts metadata for the next plugin to use.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/perllib/plugins/EmbeddedMetadataPlugin.pm

    r20860 r20862  
    11########################################################################### 
    22# 
    3 # MetadataEXIFPlugin.pm -- A plugin for EXIF 
     3# EmbeddedMetadataPlugin.pm -- A plugin for EXIF 
    44# 
    55# A component of the Greenstone digital library software 
     
    2626 
    2727 
    28 package MetadataEXIFPlugin; 
     28package EmbeddedMetadataPlugin; 
    2929 
    3030use BasePlugin; 
     
    3838sub BEGIN 
    3939{ 
    40   @MetadataEXIFPlugin::ISA = ('BasePlugin'); 
     40  @EmbeddedMetadataPlugin::ISA = ('BasePlugin'); 
    4141} 
    4242 
     
    4747 
    4848 
    49 my $options = { 'name'     => "MetadataEXIFPlugin", 
    50         'desc'     => "{MetadataEXIFPlugin.desc}", 
     49my $options = { 'name'     => "EmbeddedMetadataPlugin", 
     50        'desc'     => "{EmbeddedMetadataPlugin.desc}", 
    5151        'abstract' => "no", 
    5252        'inherits' => "yes", 
     
    7979 
    8080# Need to think some more about this 
    81 sub get_default_process_exp() 
    82 { 
    83     return q^(?i)\.(wma|wmv|jpe?g|gif)$^; 
    84 } 
     81#sub get_default_process_exp() 
     82#{ 
     83#    return q^(?i)\.(wma|wmv|jpe?g|gif)$^; 
     84#} 
    8585 
    8686 
    8787# This plugin doesn't block any files  
    88 sub get_default_block_exp() 
    89 { 
    90     return ''; 
    91 } 
     88#sub get_default_block_exp() 
     89#{ 
     90#    return ''; 
     91#} 
    9292 
    9393 
     
    184184#    } 
    185185 
    186   print STDERR "\n<Processing n='$file' p='MetadataEXIFPlugin'>\n" if ($gli); 
    187   print STDERR "MetadataEXIFPlugin: processing $file\n" if ($self->{'verbosity'}) > 1; 
     186  print STDERR "\n<Processing n='$file' p='EmbeddedMetadataPlugin'>\n" if ($gli); 
     187  print STDERR "EmbeddedMetadataPlugin: processing $file\n" if ($self->{'verbosity'}) > 1; 
    188188 
    189189