Changeset 5919


Ignore:
Timestamp:
2003-11-20T13:48:25+13:00 (20 years ago)
Author:
kjdon
Message:

each plugin now adds a metadata field to teh doc obj based on the plugin name. For example, if a Word document doc.xml file will end up with metadata name='Word' value=1. You should be able to test for thismetadata and use it in format statements

Location:
trunk/gsdl/perllib/plugins
Files:
28 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/plugins/BasPlug.pm

    r5681 r5919  
    364364    my $plugin_name = shift (@_);
    365365    my $self = {};
    366    
     366    $self->{'plugin_type'} = "Bas";
    367367    my $enc = "^(";
    368368    map {$enc .= "$_|";} keys %$encodings::encodings;
    … …  
    518518    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language);
    519519    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);
     520    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    520521    my ($filemeta) = $file =~ /([^\\\/]+)$/;
    521522    # how do we know what encoding the filename is in?

  • trunk/gsdl/perllib/plugins/BibTexPlug.pm

    r5680 r5919  
    7575    my $class = shift (@_);
    7676    my $self = new SplitPlug ($class, @_);
     77    $self->{'plugin_type'} = "BibTex";
    7778    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7879    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/BookPlug.pm

    r5680 r5919  
    8080    my ($class) = @_;
    8181    my $self = new BasPlug ("BookPlug", @_);
    82    
     82    $self->{'plugin_type'} = "Book";
    8383    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    8484    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/ConvertToPlug.pm

    r5680 r5919  
    326326    $self->associate_cover_image($doc_obj, $filename);
    327327    }
    328 
     328    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    329329    # include any metadata passed in from previous plugins
    330330    # note that this metadata is associated with the top level section
    … …  
    381381    $doc_obj->add_utf8_metadata ($cursection, "srcicon",  "_icon".$doc_ext."_");
    382382    $doc_obj->add_utf8_metadata ($cursection, "/srclink", "</a>");
     383
    383384    return $ret_val;
    384385}

  • trunk/gsdl/perllib/plugins/ConvertToRogPlug.pm

    r5680 r5919  
    8585    $self->{'convert_to'} = "Rog";
    8686    $self->{'convert_to_ext'} = "rog";
    87 
     87    $self->{'plugin_type'} = "ConvertToRog";
    8888    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    8989    my $option_list = $self->{'option_list'};
    … …  
    388388    $self->associate_cover_image($doc_obj, $filename);
    389389    }
     390    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    390391
    391392

  • trunk/gsdl/perllib/plugins/DBPlug.pm

    r5680 r5919  
    5959    my ($class) = @_;
    6060    my $self = new BasPlug ($class, @_);
    61 
     61    $self->{'plugin_type'} = "DB";
    6262    my $option_list = $self->{'option_list'};
    6363    push( @{$option_list}, $options );
    … …  
    203203        $self->associate_cover_image($doc_obj, $filename);
    204204    }
    205    
     205    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
     206
    206207
    207208    # include any metadata passed in from previous plugins

  • trunk/gsdl/perllib/plugins/EMAILPlug.pm

    r5680 r5919  
    115115    my ($class) = @_;
    116116    my $self = new BasPlug ($class, @_);
    117 
     117    $self->{'plugin_type'} = "EMAIL";
    118118    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    119119    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/ExcelPlug.pm

    r5680 r5919  
    4242
    4343    my $self = new ConvertToPlug ($class, @_);
    44 
     44    $self->{'plugin_type'} = "Excel";
    4545# I'm not sure what encoding xlhtml produces - I think it puts it
    4646# into the Content-Type meta tag in the header of the HTML file.

  • trunk/gsdl/perllib/plugins/FOXPlug.pm

    r5680 r5919  
    5252    my ($class) = @_;
    5353    $self = new BasPlug ();
    54    
     54    $self->{'plugin_type'} = "FOX";
    5555    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5656    my $option_list = $self->{'option_list'};
    … …  
    240240    my $doc_obj = new doc ($file, "indexed_doc");
    241241    $doc_obj->set_OIDtype ($processor->{'OIDtype'});
     242    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
     243
    242244    my $section = $doc_obj->get_top_section();
    243245

  • trunk/gsdl/perllib/plugins/HBPlug.pm

    r5680 r5919  
    6060    my ($class) = @_;
    6161    my $self = new BasPlug ("HBPlug", @_);
    62    
     62    $self->{'plugin_type'} = "HB";
    6363    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    6464    my $option_list = $self->{'option_list'};
    … …  
    253253    my $bookcover = &util::filename_cat($base_dir, $file, "$jobnumber.jpg");
    254254    $doc_obj->associate_file($bookcover, "cover.jpg", "image/jpeg");
     255    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    255256
    256257    my $cursection = $doc_obj->get_top_section();

  • trunk/gsdl/perllib/plugins/HTMLPlug.pm

    r5680 r5919  
    140140    my $class = shift (@_);
    141141    my $self = new BasPlug ($class, @_);
    142 
     142    $self->{'plugin_type'} = "HTML";
    143143    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    144144    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/ImagePlug.pm

    r5845 r5919  
    109109    my $plugin_name = shift (@_);
    110110    my $self = new BasPlug ("ImagePlug", @_);
    111 
     111    $self->{'plugin_type'} = "Image";
    112112    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    113113    my $option_list = $self->{'option_list'};
    … …  
    382382    my $doc_obj = new doc ($filename, "indexed_doc");
    383383    $doc_obj->set_OIDtype ($processor->{'OIDtype'});   
     384    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    384385
    385386    #run convert to get the thumbnail and extract size and type info

  • trunk/gsdl/perllib/plugins/IndexPlug.pm

    r5680 r5919  
    7171    my ($class) = @_;
    7272    my $self = new BasPlug ("IndexPlug", @_);
    73    
    7473    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7574    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/MARCPlug.pm

    r5878 r5919  
    6565    my $class = shift (@_);
    6666    my $self = new SplitPlug ($class, @_);
    67 
     67    $self->{'plugin_type'} = "MARC";
    6868    my $metadata_mapping;
    6969

  • trunk/gsdl/perllib/plugins/OAIPlug.pm

    r5680 r5919  
    4848    my $class = shift (@_);
    4949    my $self = new BasPlug ($class, @_);
    50 
     50    $self->{'plugin_type'} = "OAI";
    5151    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5252    my $option_list = $self->{'option_list'};
    … …  
    135135    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Language", $language);
    136136    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "Encoding", $encoding);
     137    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    137138
    138139    # include any metadata passed in from previous plugins
    139140    # note that this metadata is associated with the top level section
    140141    $self->extra_metadata ($doc_obj, $doc_obj->get_top_section(), $metadata);
     142
    141143
    142144    # do plugin specific processing of doc_obj

  • trunk/gsdl/perllib/plugins/PDFPlug.pm

    r5680 r5919  
    9595
    9696    my $self = new ConvertToPlug ($class, @args, "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
    97 
     97    $self->{'plugin_type'} = "PDF";
    9898    if ($use_sections) {
    9999    $self->{'use_sections'}=1;

  • trunk/gsdl/perllib/plugins/PPTPlug.pm

    r5680 r5919  
    4242
    4343    my $self = new ConvertToPlug ($class, @_);
    44 
     44    $self->{'plugin_type'} = "PPT";
    4545    # ppthtml outputs utf-8 already.
    4646    if ($self->{'input_encoding'} eq "auto") {

  • trunk/gsdl/perllib/plugins/PSPlug.pm

    r5680 r5919  
    6666
    6767    my $self = new ConvertToPlug ($class, "-convert_to", "text", @_ , "-title_sub", '^(Page\s+\d+)?(\s*1\s+)?');
    68 
     68    $self->{'plugin_type'} = "PS";
    6969    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7070    my $option_list = $self->{'option_list'};
    … …  
    184184   
    185185    &extract_metadata_from_postscript($self,"$path/$file", $doc);
    186 
     186    #$doc->add_utf8_metadata($doc->get_top_section(), "PSPlug", 1);
    187187    return ConvertToPlug::process_type($self,"ps",@_);
    188188}

  • trunk/gsdl/perllib/plugins/RTFPlug.pm

    r5680 r5919  
    5050    my $class = shift (@_);
    5151    my $self = new ConvertToPlug ($class, @_);
    52    
     52    $self->{'plugin_type'}="RTF";
    5353    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5454    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/ReferPlug.pm

    r5680 r5919  
    9797    my $class = shift (@_);
    9898    my $self = new SplitPlug ($class, @_);
    99 
     99    $self->{'plugin_type'} = "Refer";
    100100    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    101101    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/RogPlug.pm

    r5680 r5919  
    4343    my ($class) = @_;
    4444    $self = new BasPlug ();
    45 
     45    $self->{'plugin_type'} = "Rog";
    4646    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    4747    my $option_list = $self->{'option_list'};
    … …  
    167167    my $doc_obj = new doc ($file, "indexed_doc");
    168168    my $cursection = $doc_obj->get_top_section();
     169    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    169170
    170171    my $title = $song->{'title'};

  • trunk/gsdl/perllib/plugins/SRCPlug.pm

    r5680 r5919  
    8282    my ($class) = @_;
    8383    my $self = new BasPlug ($class, @_);
    84    
     84    $self->{'plugin_type'} = "SRC";
    8585    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    8686    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/SplitPlug.pm

    r5680 r5919  
    6666    $self = new BasPlug($class, @_);
    6767
    68 
     68    $self->{'plugin_type'} = "Split";
    6969    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7070    my $option_list = $self->{'option_list'};
    … …  
    179179      $self->associate_cover_image($doc_obj, $filename);
    180180    }
    181 
     181    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    182182    # Calculate a "base" document ID.
    183183    if (!defined $id) {

  • trunk/gsdl/perllib/plugins/TEXTPlug.pm

    r5680 r5919  
    6969    my ($class) = @_;
    7070    my $self = new BasPlug ($class, @_);
    71 
     71    $self->{'plugin_type'} = "TEXT";
    7272    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    7373    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/UnknownPlug.pm

    r5765 r5919  
    9494    my ($class) = @_;
    9595    my $self = new BasPlug ($class, @_);
    96 
     96    $self->{'plugin_type'} = "Unknown";
    9797    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    9898    my $option_list = $self->{'option_list'};
    … …  
    184184    my $doc_obj = new doc ($filename, "indexed_doc");
    185185    $doc_obj->set_OIDtype ($processor->{'OIDtype'});   
     186    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
    186187
    187188    # associate the file with the document

  • trunk/gsdl/perllib/plugins/W3ImgPlug.pm

    r5680 r5919  
    275275    my $class = shift (@_);
    276276    my $self = new HTMLPlug ($class, @_);
    277 
     277    $self->{'plugin_type'} = "W3Img";
    278278    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    279279    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/WordPlug.pm

    r5680 r5919  
    4848sub new {
    4949    my $class = shift (@_);
    50 
     50   
    5151    my $self = new ConvertToPlug ($class, @_);
    52 
     52    $self->{'plugin_type'} = "Word";
    5353    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5454    my $option_list = $self->{'option_list'};

  • trunk/gsdl/perllib/plugins/XMLPlug.pm

    r5680 r5919  
    5555    # $self is global for use within subroutines called by XML::Parser
    5656    $self = new BasPlug ($class, @_);
    57 
     57    $self->{'plugin_type'} = "XML";
    5858    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
    5959    my $option_list = $self->{'option_list'};
    … …  
    239239    $self->{'doc_obj'}->set_OID();
    240240   
     241    $doc_obj->add_utf8_metadata($doc_obj->get_top_section(), "$self->{'plugin_type'}", "1");
     242
    241243    # process the document
    242244    $self->{'processor'}->process($self->{'doc_obj'});
Note: See TracChangeset for help on using the changeset viewer.