Ignore:
Timestamp:
2002-11-18T17:43:56+13:00 (21 years ago)
Author:
kjdon
Message:

added John T's changes into CVS - added info to enable retrieval of usage info in xml

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r3517 r3540  
    3333
    3434
     35my $arguments = [ { 'name' => "process_exp",
     36            'desc' => "A perl regular expression to match against filenames. Matching filenames will be processed by this plugin. Each plugin has its own default process_exp. e.g HTMLPlug defaults to '(?i)\.html?\$' i.e. all documents ending in .htm or .html (case-insensitive).",
     37            'type' => "string",
     38            'deft' => q^(?i)(\.jpe?g|\.gif|\.png|\.bmp|\.xbm|\.tif?f)$^,
     39            'reqd' => "no" },
     40          { 'name' => "noscaleup",
     41            'desc' => "Don't scale up small images when making thumbnails.",
     42            'type' => "flag",
     43            'reqd' => "no" },
     44          { 'name' => "thumbnailsize",
     45            'desc' => "Make thumbnails of size nxn.",
     46            'type' => "int",
     47            'reqd' => "no" },
     48          { 'name' => "thumbnailtype",
     49            'desc' => "Make thumbnails in format 's'.",
     50            'type' => "string",
     51            'reqd' => "no" },
     52          { 'name' => "screenviewsize",
     53            'desc' => "If set, makes an image of size n for screen display and sets Screen, ScreenSize, ScreenWidth and ScreenHeight metadata.  By default it is not set.",
     54            'type' => "int",
     55            'reqd' => "no" },
     56          { 'name' => "screenviewtype",
     57            'desc' => "If -screenviewsize is set, this sets the screen display image type.  Defaults to jpg.",
     58            'type' => "string",
     59            'deft' => "jpg",
     60            'reqd' => "no" },
     61          { 'name' => "convertto",
     62            'desc' => "Convert main image to.",
     63            'type' => "string",
     64            'reqd' => "no" },
     65          { 'name' => "minimumsize",
     66            'desc' => "Ignore images smaller than n bytes.",
     67            'type' => "int",
     68            'reqd' => "no" } ];
     69
     70my $options = { 'name'     => "ImagePlug",
     71        'desc'     => "",
     72        'inherits' => "yes",
     73        'args'     => $arguments };
     74
     75
    3576sub print_usage {
    3677    my ($plugin_name) = @_;
    … …  
    65106    my $self = new BasPlug ("ImagePlug", @_);
    66107
     108    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
     109    my $option_list = $self->{'option_list'};
     110    push( @{$option_list}, $options );
     111   
    67112    if (!parsargv::parse(\@_,
    68113             q^noscaleup^, \$self->{'noscaleup'},
Note: See TracChangeset for help on using the changeset viewer.