Changeset 6408


Ignore:
Timestamp:
2004-01-09T15:36:40+13:00 (20 years ago)
Author:
jmt12
Message:

Added two new attributes for script arguments. HiddenGLI controls whether the argument will be visible at all in GLI, while ModeGLI defines the lowest detail mode under which the argument will be visible (only really for import and buildcol). Also ensured that the scripts were reporting their correct default process expressions, and further refined argument types by adding the catagory regexp for any regular expression (which can then be hidden under lower detail modes in GLI)

Location:
trunk/gsdl/perllib
Files:
48 edited

Legend:

Unmodified
Added
Removed

  • trunk/gsdl/perllib/classify/AZCompactList.pm

    r6281 r6408  
    7373      { 'name' => "removeprefix",
    7474    'desc' => "{AZCompactList.removeprefix}",
    75     'type' => "string",
     75    'type' => "regexp",
    7676    'deft' => "",
    7777    'reqd' => "no" },
    7878      { 'name' => "removesuffix",
    7979    'desc' => "{AZCompactList.removesuffix}",
    80     'type' => "string",
     80    'type' => "regexp",
    8181    'deft' => "",
    8282    'reqd' => "no" },
    … …  
    123123{   'name'     => "AZCompactList",
    124124    'desc'     => "{AZCompactList.desc}",
    125     'inherits' => "Yes",
     125    'abstract' => "no",
     126    'inherits' => "yes",
    126127    'args'     => $arguments };
    127128

  • trunk/gsdl/perllib/classify/AZCompactSectionList.pm

    r5725 r6408  
    1818{   'name'     => "AZCompactSectionList",
    1919    'desc'     => "{AZCompactSectionList.desc}",
    20     'inherits' => "Yes",
     20    'abstract' => "no",
     21    'inherits' => "yes",
    2122    'args'     => $arguments };
    2223

  • trunk/gsdl/perllib/classify/AZList.pm

    r6111 r6408  
    4848      { 'name' => "removeprefix",
    4949    'desc' => "{AZList.removeprefix}",
    50     'type' => "string",
     50    'type' => "regexp",
    5151    'deft' => "",
    5252    'reqd' => "no" } ,
    5353      { 'name' => "removesuffix",
    5454    'desc' => "{AZList.removesuffix}",
    55     'type' => "string",
     55    'type' => "regexp",
    5656    'deft' => "",
    5757    'reqd' => "no" }
    … …  
    6060my $options = { 'name'     => "AZList",
    6161        'desc'     => "{AZList.desc}",
    62         'inherits' => "Yes",
     62        'abstract' => "no",
     63        'inherits' => "yes",
    6364        'args'     => $arguments };
    6465

  • trunk/gsdl/perllib/classify/AZSectionList.pm

    r6111 r6408  
    5858my $options = { 'name'     => "AZSectionList",
    5959        'desc'     => "{AZSectionList.desc}",
    60         'inherits' => "Yes",
     60        'abstract' => "no",
     61        'inherits' => "yes",
    6162        'args'     => $arguments };
    6263

  • trunk/gsdl/perllib/classify/BasClas.pm

    r6111 r6408  
    7272#   'deft' => "2",
    7373#   'reqd' => "no" } ];
    74       { 'name' => "ignore_namespace",
    75     'desc' => "{BasClas.ignore_namespace}",
    76     'type' => "flag"} ];
     74#      { 'name' => "ignore_namespace",
     75#   'desc' => "{BasClas.ignore_namespace}",
     76#   'type' => "flag"}
     77      ];
    7778
    7879my $options = { 'name'     => "BasClas",
    7980        'desc'     => "{BasClas.desc}",
    80         'inherits' => "No",
     81        'abstract' => "yes",
     82        'inherits' => "no",
    8183        'args'     => $arguments };
    8284
    … …  
    111113    print STDERR "  <Name>$classifieroptions->{'name'}</Name>\n";
    112114    print STDERR "  <Desc>$classifieroptions->{'desc'}</Desc>\n";
     115    print STDERR "  <Abstract>$classifieroptions->{'abstract'}</Abstract>\n";
    113116    print STDERR "  <Inherits>$classifieroptions->{'inherits'}</Inherits>\n";
    114117    print STDERR "  <Arguments>\n";

  • trunk/gsdl/perllib/classify/Browse.pm

    r5645 r6408  
    3737my $options = { 'name'     => "Browse",
    3838        'desc'     => "{Browse.desc}",
    39         'inherits' => "Yes" };
     39        'abstract' => "yes",
     40        'inherits' => "yes" };
    4041
    4142#  sub print_usage {

  • trunk/gsdl/perllib/classify/DateList.pm

    r6081 r6408  
    5656    'type' => "flag",
    5757    'reqd' => "no" },
    58 
    5958      { 'name' => "nogroup",
    6059    'desc' => "{DateList.nogroup}",
    … …  
    7574my $options = { 'name'     => "DateList",
    7675        'desc'     => "{DateList.desc}",
    77         'inherits' => "Yes",
     76        'abstract' => "no",
     77        'inherits' => "yes",
    7878        'args'     => $arguments };
    7979

  • trunk/gsdl/perllib/classify/HTML.pm

    r5645 r6408  
    5454my $options = { 'name'     => "HTML",
    5555        'desc'     => "{HTML.desc}",
    56         'inherits' => "Yes",
     56        'abstract' => "no",
     57        'inherits' => "yes",
    5758        'args'     => $arguments };
    5859

  • trunk/gsdl/perllib/classify/Hierarchy.pm

    r5645 r6408  
    8383{   'name'     => "Hierarchy",
    8484    'desc'     => "{Hierarchy.desc}",
    85     'inherits' => "Yes" ,
     85    'abstract' => "no",
     86    'inherits' => "yes",
    8687    'args'     => $arguments };
    8788

  • trunk/gsdl/perllib/classify/List.pm

    r5743 r6408  
    6767my $options = { 'name'     => "List",
    6868        'desc'     => "{List.desc}",
    69         'inherits' => "Yes",
     69        'abstract' => "no",
     70        'inherits' => "yes",
    7071        'args'     => $arguments };
    7172

  • trunk/gsdl/perllib/classify/Phind.pm

    r5645 r6408  
    130130my $options = { 'name'     => "Phind",
    131131        'desc'     => "{Phind.desc}",
    132         'inherits' => "Yes",
     132        'abstract' => "no",
     133        'inherits' => "yes",
    133134        'args'     => $arguments };
    134135
    … …  
    393394sub get_classify_info {
    394395    my $self = shift (@_);
     396    my ($gli) = @_;   
    395397
    396398    close $self->{'dochandle'};
    … …  
    405407    }
    406408
     409    print STDERR "</Stage>\n" if $gli;
     410
    407411    if ($verbosity) {
    408412    print $out "\n*** Phind.pm generating indexes for ", $self->{'indexes'}, "\n";
    … …  
    410414    }
    411415
     416    print STDERR "<Stage name='Phind'>\n" if $gli;
     417
    412418    # Construct phind indexes
    413419    my $suffixmode = $self->{'suffixmode'};
    … …  
    417423    # from the clauses file
    418424    print $out "\nExtracting vocabulary and statistics\n" if $verbosity;
     425    print STDERR "<Phase name='ExtractingVocab'/>\n" if $gli;
    419426    &extract_vocabulary($self);
    420427 
    421428    # Use the suffix program to generate the phind/phrases file
    422429    print $out "\nExtracting phrases from processed text (with suffix)\n" if $verbosity;
     430    print STDERR "<Phase name='ExtractingPhrase'/>\n" if $gli;
    423431    &execute("suffix \"$phinddir\" $suffixmode $verbosity", $verbosity, $out);
    424432
    … …  
    427435    my $phrasesfile=&util::filename_cat($self->{'phinddir'}, 'phrases');
    428436    if (! -r $phrasesfile) {
     437    print STDERR "<Warning name='NoPhrasesFound'/>\n" if $gli;
    429438    print $out "\nNo phrases found for Phind classifier!\n";
    430439    return;
    … …  
    433442    # Create the phrase file and put phrase numbers in phind/phrases
    434443    print $out "\nSorting and renumbering phrases for input to mgpp\n" if $verbosity;
     444    print STDERR "<Phase name='SortAndRenumber'/>\n" if $gli;
    435445    &renumber_phrases($self);
    436446
    437447    print $out "\nCreating phrase databases\n";
     448    print STDERR "<Phase name='PhraseDatabases'/>\n" if $gli;
    438449    my $mg_input = &util::filename_cat($phinddir, "pdata.txt");
    439450    my $mg_stem = &util::filename_cat($phinddir, "pdata");
    … …  
    445456    # create the mg index of words
    446457    print $out "\nCreating word-level search indexes\n";
     458    print STDERR "<Phase name='WordLevelIndexes'/>\n" if $gli;
    447459    $mg_input = &util::filename_cat($phinddir, "pword.txt");
    448460    $mg_stem = &util::filename_cat($phinddir, "pword");
    … …  
    461473    # create the mg document information database
    462474    print $out "\nCreating document information databases\n";
     475    print STDERR "<Phase name='DocInfoDatabases'/>\n" if $gli;
    463476    $mg_input = &util::filename_cat($phinddir, "docs.txt");
    464477    $mg_stem = &util::filename_cat($phinddir, "docs");

  • trunk/gsdl/perllib/classify/SectionList.pm

    r5645 r6408  
    4141my $options = { 'name'     => "SectionList",
    4242        'desc'     => "{SectionList.desc}",
    43         'inherits' => "Yes" };
     43        'abstract' => "no",
     44        'inherits' => "yes" };
    4445
    4546#  sub print_usage {

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

    r6332 r6408  
    4444my $options = { 'name'     => "ArcPlug",
    4545        'desc'     => "{ArcPlug.desc}",
    46         'inherits' => "Yes" };
     46        'abstract' => "no",
     47        'inherits' => "yes" };
    4748
    4849sub gsprintf

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

    r6332 r6408  
    6060    [ { 'name' => "process_exp",
    6161    'desc' => "{BasPlug.process_exp}",
    62     'type' => "string",
     62    'type' => "regexp",
    6363    'deft' => "",
    6464    'reqd' => "no" },
    6565      { 'name' => "block_exp",
    6666    'desc' => "{BasPlug.block_exp}",
    67     'type' => "string",
     67    'type' => "regexp",
    6868    'deft' => "",
    6969    'reqd' => "no" },
    … …  
    130130my $options = { 'name'     => "BasPlug",
    131131        'desc'     => "{BasPlug.desc}",
    132         'inherits' => "No",
     132        'abstract' => "yes",
     133        'inherits' => "no",
    133134        'args'     => $arguments };
    134135
    … …  
    174175    print STDERR "  <Name>$pluginoptions->{'name'}</Name>\n";
    175176    print STDERR "  <Desc>$pluginoptions->{'desc'}</Desc>\n";
     177    print STDERR "  <Abstract>$pluginoptions->{'abstract'}</Abstract>\n";
    176178    print STDERR "  <Inherits>$pluginoptions->{'inherits'}</Inherits>\n";
    177179    print STDERR "  <Arguments>\n";

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

    r6332 r6408  
    5454    [ { 'name' => "process_exp",
    5555    'desc' => "{BasPlug.process_exp}",
    56     'type' => "string",
     56    'type' => "regexp",
    5757    'reqd' => "no",
    58     'deft' => &get_default_process_exp() } ];
     58    'deft' => &get_default_process_exp() },
     59      { 'name' => "split_exp",
     60    'desc' => "{SplitPlug.split_exp}",
     61    'type' => "regexp",
     62    'deft' => &get_default_split_exp(),
     63    'reqd' => "no" }
     64      ];
    5965
    6066my $options = { 'name'     => "BibTexPlug",
    6167        'desc'     => "{BibTexPlug.desc}",
    62         'inherits' => "Yes",
     68        'abstract' => "no",
     69        'inherits' => "yes",
    6370        'args'     => $arguments };
    6471

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

    r6332 r6408  
    6363    [ { 'name' => "process_exp",
    6464    'desc' => "{BasPlug.process_exp}",
    65     'type' => "string",
     65    'type' => "regexp",
    6666    'reqd' => "no",
    6767    'deft' => &get_default_process_exp() },
    6868      { 'name' => "block_exp",
    6969    'desc' => "{BasPlug.block_exp}",
    70     'type' => "string",
     70    'type' => "regexp",
    7171    'reqd' => "no",
    7272    'deft' => &get_default_block_exp() } ];
    … …  
    7474my $options = { 'name'     => "BookPlug",
    7575        'desc'     => "{BookPlug.desc}",
    76         'inherits' => "Yes",
     76        'abstract' => "no",
     77        'inherits' => "yes",
    7778        'args'     => $arguments };
    7879

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

    r5919 r6408  
    5959    'desc' => "{ConvertToPlug.convert_to}",
    6060    'type' => "enum",
    61     'reqd' => "no",
     61    'reqd' => "yes",
    6262    'list' => $convert_to_list,
    6363    'deft' => "html" },
    … …  
    6969my $options = { 'name'     => "ConvertToPlug",
    7070        'desc'     => "{ConvertToPlug.desc}",
    71         'inherits' => "Yes",
     71        'abstract' => "no",
     72        'inherits' => "yes",
    7273        'args'     => $arguments };
    7374

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

    r5924 r6408  
    3838my $options = { 'name'     => "ConvertToRogPlug",
    3939        'desc'     => "{ConvertToRogPlug.desc}",
    40         'inherits' => "Yes" };
     40        'abstract' => "no",
     41        'inherits' => "yes" };
    4142
    4243sub print_usage {

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

    r5924 r6408  
    4747    [ { 'name' => "process_exp",
    4848    'desc' => "{BasPlug.process_exp}",
    49     'type' => "string",
     49    'type' => "regexp",
    5050    'deft' => &get_default_process_exp(),
    5151    'reqd' => "no" }];
    … …  
    5353my $options = { 'name'     => "DBPlug",
    5454        'desc'     => "{DBPlug.desc}",
     55        'abstract' => "no",
    5556        'inherits' => "yes",
    5657        'args'     => $arguments };

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

    r6332 r6408  
    9393    [ { 'name' => "process_exp",
    9494    'desc' => "{BasPlug.process_exp}",
    95     'type' => "string",
     95    'type' => "regexp",
    9696    'reqd' => "no",
    9797    'deft' => &get_default_process_exp() },
    … …  
    102102      { 'name' => "split_exp",
    103103    'desc' => "{EMAILPlug.split_exp}",
    104     'type' => "string",
    105     'deft' => "" } ];
     104    'type' => "regexp",
     105    'reqd' => "no",
     106    'deft' => &get_default_split_exp() }
     107      ];
    106108
    107109my $options = { 'name'     => "EMAILPlug",
    108110        'desc'     => "{EMAILPlug.desc}",
    109         'inherits' => "Yes",
     111        'abstract' => "no",
     112        'inherits' => "yes",
    110113        'args'     => $arguments };
    111114

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

    r5924 r6408  
    3434}
    3535
     36my $arguments =
     37    [ { 'name' => "process_exp",
     38    'desc' => "{BasPlug.process_exp}",
     39    'type' => "regexp",
     40    'reqd' => "no",
     41    'deft' => &get_default_process_exp() }
     42      ];
     43
    3644my $options = { 'name'     => "ExcelPlug",
    3745        'desc'     => "{ExcelPlug.desc}",
    38         'inherits' => "Yes" };
     46        'abstract' => "no",
     47        'inherits' => "yes",
     48        'args'     => $arguments };
    3949
    4050sub new {

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

    r6332 r6408  
    4747my $options = { 'name'     => "FOXPlug",
    4848        'desc'     => "{FOXPlug.desc}",
     49        'abstract' => "no",
    4950        'inherits' => "yes" };
    5051

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

    r6332 r6408  
    4141my $options = { 'name'     => "GAPlug",
    4242        'desc'     => "{GAPlug.desc}",
     43        'abstract' => "no",
    4344        'inherits' => "yes" };
    4445

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

    r6332 r6408  
    3939}
    4040
     41my $arguments =
     42    [ { 'name' => "process_exp",
     43    'desc' => "{BasPlug.process_exp}",
     44    'type' => "regexp",
     45    'deft' =>  &get_default_process_exp() }
     46    ];
     47
    4148my $options = { 'name'     => "GMLPlug",
    4249        'desc'     => "{GMLPlug.desc}",
    43         'inherits' => "yes" };
     50        'abstract' => "no",
     51        'inherits' => "yes",
     52        'args' => $arguments };
    4453
    4554sub new {

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

    r6332 r6408  
    5353}
    5454
     55my $arguments =
     56    [ { 'name' => "process_exp",
     57    'desc' => "{BasPlug.process_exp}",
     58    'type' => "regexp",
     59    'reqd' => "no",
     60    'deft' => &get_default_process_exp() }
     61      ];
     62
    5563my $options = { 'name'     => "HBPlug",
    5664        'desc'     => "{HBPlug.desc}",
    57         'inherits' => "yes" };
     65        'abstract' => "no",
     66        'inherits' => "yes",
     67        'args'     => $arguments };
    5868
    5969sub new {

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

    r6332 r6408  
    5151    [ { 'name' => "process_exp",
    5252    'desc' => "{BasPlug.process_exp}",
    53     'type' => "string",
     53    'type' => "regexp",
    5454    'deft' =>  &get_default_process_exp() },
    5555      { 'name' => "block_exp",
    5656    'desc' => "{BasPlug.block_exp}",
    57     'type' => 'string',
     57    'type' => 'regexp',
    5858    'deft' =>  &get_default_block_exp() },
    5959      { 'name' => "nolinks",
    … …  
    7878      { 'name' => "assoc_files",
    7979    'desc' => "{HTMLPlug.assoc_files}",
    80     'type' => "string",
    81     'deft' => q^(?i)\.(jpe?g|gif|png|css)$^ },
     80    'type' => "regexp",
     81    'deft' => &get_default_block_exp() },
    8282      { 'name' => "rename_assoc_files",
    8383    'desc' => "{HTMLPlug.rename_assoc_files}",
    … …  
    9393my $options = { 'name'     => "HTMLPlug",
    9494        'desc'     => "{HTMLPlug.desc}",
     95        'abstract' => "no",
    9596        'inherits' => "yes",
    9697        'args'     => $arguments };

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

    r6332 r6408  
    3939
    4040my $arguments =
    41     [ { 'name' => "process_exp",
     41    [ { 'name' => "entry_separator",
     42    'desc' => "{ISISPlug.entry_separator}",
     43    'type' => "string",
     44    'reqd' => "no",
     45    'deft' => "<br>" },
     46      { 'name' => "process_exp",
    4247    'desc' => "{BasPlug.process_exp}",
    43     'type' => "string",
     48    'type' => "regexp",
    4449    'reqd' => "no",
    4550    'deft' => &get_default_process_exp() },
    4651      { 'name' => "block_exp",
    4752    'desc' => "{BasPlug.block_exp}",
    48     'type' => "string",
     53    'type' => "regexp",
    4954    'deft' => &get_default_block_exp() },
    5055      { 'name' => "subfield_separator",
    … …  
    5358    'reqd' => "no",
    5459    'deft' => ", " },
    55       { 'name' => "entry_separator",
    56     'desc' => "{ISISPlug.entry_separator}",
    57     'type' => "string",
    58     'reqd' => "no",
    59     'deft' => "<br>" } ];
     60      { 'name' => "split_exp",
     61    'desc' => "{SplitPlug.split_exp}",
     62    'type' => "regexp",
     63    'deft' => &get_default_split_exp(),
     64    'reqd' => "no" }
     65      ];
    6066
    6167my $options = { 'name'     => "ISISPlug",
    6268        'desc'     => "{ISISPlug.desc}",
    63         'inherits' => "Yes",
     69        'abstract' => "no",
     70        'inherits' => "yes",
    6471        'args'     => $arguments };
    6572

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

    r6332 r6408  
    3535    [ { 'name' => "process_exp",
    3636    'desc' => "{BasPlug.process_exp}",
    37     'type' => "string",
     37    'type' => "regexp",
    3838    'deft' => &get_default_process_exp(),
    3939    'reqd' => "no" },
    … …  
    7575my $options = { 'name'     => "ImagePlug",
    7676        'desc'     => "{ImagePlug.desc}",
     77        'abstract' => "no",
    7778        'inherits' => "yes",
    7879        'args'     => $arguments };

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

    r6332 r6408  
    6666my $options = { 'name'     => "IndexPlug",
    6767        'desc'     => "{IndexPlug.desc}",
     68        'abstract' => "no",
    6869        'inherits' => "yes" };
    6970

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

    r6332 r6408  
    3737    [ { 'name' => "process_exp",
    3838    'desc' => "{BasPlug.process_exp}",
    39     'type' => "string",
     39    'type' => "regexp",
    4040    'deft' => &get_default_process_exp(),
    4141    'reqd' => "no" } ];
    … …  
    4343my $options = { 'name'     => "MACROPlug",
    4444        'desc'     => "{MACROPlug.desc}",
     45        'abstract' => "no",
    4546        'inherits' => "yes",
    4647        'args'     => $arguments };

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

    r6332 r6408  
    4343    'type' => "string",
    4444    'deft' => "marctodc.txt",
    45     'reqd' => "no" } ];
     45    'reqd' => "no" },
     46      { 'name' => "process_exp",
     47    'desc' => "{BasPlug.process_exp}",
     48    'type' => "regexp",
     49    'reqd' => "no",
     50    'deft' => &get_default_process_exp() },
     51      { 'name' => "split_exp",
     52    'desc' => "{SplitPlug.split_exp}",
     53    'type' => "regexp",
     54    'reqd' => "no",
     55    'deft' => &get_default_split_exp() }
     56      ];
    4657
    4758my $options = { 'name'     => "MARCPlug",
    4859        'desc'     => "{MARCPlug.desc}",
     60        'abstract' => "no",
    4961        'inherits' => "Yes",
    5062        'args'     => $arguments };

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

    r6332 r6408  
    3636}
    3737
     38my $arguments =
     39    [ { 'name' => "process_exp",
     40    'desc' => "{BasPlug.process_exp}",
     41    'type' => "regexp",
     42    'reqd' => "no",
     43    'deft' => &get_default_process_exp() },
     44      ];
     45
    3846my $options = { 'name'     => "OAIPlug",
    3947        'desc'     => "{OAIPlug.desc}",
    40         'inherits' => "yes" };
     48        'abstract' => "no",
     49        'inherits' => "yes",
     50        'args'     => $arguments };
    4151
    4252#  sub print_usage {

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

    r5924 r6408  
    3535    [ { 'name' => "process_exp",
    3636    'desc' => "{BasPlug.process_exp}",
    37     'type' => "string",
     37    'type' => "regexp",
    3838    'deft' => &get_default_process_exp(),
    3939    'reqd' => "no" },
    4040      { 'name' => "block_exp",
    4141    'desc' => "{BasPlug.block_exp}",
    42     'type' => "string",
     42    'type' => "regexp",
    4343    'deft' => &get_default_block_exp() },
    4444      { 'name' => "noimages",
    … …  
    6161my $options = { 'name'     => "PDFPlug",
    6262        'desc'     => "{PDFPlug.desc}",
     63        'abstract' => "no",
    6364        'inherits' => "yes",
    6465        'args'     => $arguments };

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

    r5924 r6408  
    3434}
    3535
     36my $arguments =
     37    [ { 'name' => "process_exp",
     38    'desc' => "{BasPlug.process_exp}",
     39    'type' => "regexp",
     40    'reqd' => "no",
     41    'deft' => &get_default_process_exp() },
     42      ];
     43
    3644my $options = { 'name'     => "PPTPlug",
    3745        'desc'     => "{PPTPlug.desc}",
    38         'inherits' => "Yes" };
     46        'abstract' => "no",
     47        'inherits' => "Yes",
     48            'args'     => $arguments };
    3949
    4050sub new {

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

    r5924 r6408  
    3838    [ { 'name' => "process_exp",
    3939    'desc' => "{BasPlug.process_exp}",
    40     'type' => "string",
     40    'type' => "regexp",
    4141    'deft' => &get_default_process_exp(),
    4242    'reqd' => "no" },
    4343      { 'name' => "block_exp",
    4444    'desc' => "{BasPlug.block_exp}",
    45     'type' => 'string',
     45    'type' => 'regexp',
    4646    'deft' => &get_default_block_exp() },
    4747      { 'name' => "extract_date",
    … …  
    5757my $options = { 'name'     => "PSPlug",
    5858        'desc'     => "{PSPlug.desc}",
     59        'abstract' => "no",
    5960        'inherits' => "yes",
    6061        'args'     => $arguments };

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

    r5924 r6408  
    3838    [ { 'name' => "process_exp",
    3939    'desc' => "{BasPlug.process_exp}",
    40     'type' => "string",
     40    'type' => "regexp",
    4141    'deft' => &get_default_process_exp(),
    4242    'reqd' => "no" } ];
    … …  
    4444my $options = { 'name'     => "RTFPlug",
    4545        'desc'     => "{RTFPlug.desc}",
     46        'abstract' => "no",
    4647        'inherits' => "yes",
    4748        'args'     => $arguments };

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

    r6332 r6408  
    109109    [ { 'name' => "block_exp",
    110110    'desc' => "{BasPlug.block_exp}",
    111     'type' => "string",
     111    'type' => "regexp",
    112112    'deft' => &get_default_block_exp(),
    113113    'reqd' => "no" },
    … …  
    119119my $options = { 'name'     => "RecPlug",
    120120        'desc'     => "{RecPlug.desc}",
     121        'abstract' => "no",
    121122        'inherits' => "yes",
    122123        'args'     => $arguments };

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

    r6332 r6408  
    7575    [ { 'name' => "process_exp",
    7676    'desc' => "{BasPlug.process_exp}",
    77     'type' => "string",
     77    'type' => "regexp",
    7878    'deft' => &get_default_process_exp(),
    79     'reqd' => "no" } ];
     79    'reqd' => "no" },
     80      { 'name' => "split_exp",
     81    'desc' => "{SplitPlug.split_exp}",
     82    'type' => "regexp",
     83    'reqd' => "no",
     84    'deft' => &get_default_split_exp() }
     85      ];
    8086
    8187my $options = { 'name'     => "ReferPlug",
    8288        'desc'     => "{ReferPlug.desc}",
     89        'abstract' => "no",
    8390        'inherits' => "yes",
    8491        'args'     => $arguments };

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

    r6332 r6408  
    3636}
    3737
     38my $arguments =
     39    [ { 'name' => "process_exp",
     40    'desc' => "{BasPlug.process_exp}",
     41    'type' => "regexp",
     42    'reqd' => "no",
     43    'deft' => &get_default_process_exp() },
     44      ];
     45
    3846my $options = { 'name'     => "RogPlug",
    3947        'desc'     => "{RogPlug.desc}",
    40         'inherits' => "Yes" };
     48        'abstract' => "no",
     49        'inherits' => "Yes",
     50        'args' => $arguments };
    4151
    4252sub new {

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

    r6332 r6408  
    4949    [ { 'name' => "process_exp",
    5050    'desc' => "{BasPlug.process_exp}",
    51     'type' => "string",
     51    'type' => "regexp",
    5252    'deft' => &get_default_process_exp(),
    5353    'reqd' => "no" } ,
    5454      { 'name' => "block_exp",
    5555    'desc' => "{BasPlug.block_exp}",
    56     'type' => 'string',
     56    'type' => "regexp",
    5757    'deft' => &get_default_block_exp(),
    5858    'reqd' => "no" },
    5959      { 'name' => "remove_prefix",
    6060    'desc' => "{SRCPlug.remove_prefix}",
    61     'type' => 'string',
     61    'type' => "regexp",
    6262    'deft' => "^.*[/\\]",
    6363    'reqd' => "no" } ];
    … …  
    6565my $options = { 'name'     => "SRCPlug",
    6666        'desc'     => "{SRCPlug.desc}",
     67        'abstract' => "no",
    6768        'inherits' => "yes",
    6869        'args'     => $arguments };

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

    r6137 r6408  
    5252    [ { 'name' => "split_exp",
    5353    'desc' => "{SplitPlug.split_exp}",
    54     'type' => "string",
     54    'type' => "regexp",
    5555    'deft' => &get_default_split_exp(),
    5656    'reqd' => "no" } ];
    … …  
    5858my $options = { 'name'     => "SplitPlug",
    5959        'desc'     => "{SplitPlug.desc}",
     60        'abstract' => "yes",
    6061        'inherits' => "yes",
    6162            'args'     => $arguments };

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

    r6332 r6408  
    4242    [ { 'name' => "process_exp",
    4343    'desc' => "{BasPlug.process_exp}",
    44     'type' => "string",
     44    'type' => "regexp",
    4545    'deft' => &get_default_process_exp(),
    4646    'reqd' => "no" } ,
    4747      { 'name' => "title_sub",
    4848    'desc' => "{TEXTPlug.title_sub}",
    49     'type' => "string",
     49    'type' => "regexp",
    5050    'deft' => "",
    5151    'reqd' => "no" } ];
    … …  
    5353my $options = { 'name'     => "TEXTPlug",
    5454        'desc'     => "{TEXTPlug.desc}",
     55        'abstract' => "no",
    5556        'inherits' => "yes",
    5657        'args'     => $arguments };

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

    r6332 r6408  
    7878my $options = { 'name'     => "UnknownPlug",
    7979        'desc'     => "{UnknownPlug.desc}",
     80        'abstract' => "no",
    8081        'inherits' => "yes",
    8182        'args'     => $arguments };

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

    r5924 r6408  
    220220my $options = { 'name'     => "W3ImgPlug",
    221221        'desc'     => "{W3ImgPlug.desc}",
     222        'abstract' => "no",
    222223        'inherits' => "yes",
    223224        'args'     => $arguments };

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

    r5924 r6408  
    3737    [ { 'name' => "process_exp",
    3838    'desc' => "{BasPlug.process_exp}",
    39     'type' => "string",
     39    'type' => "regexp",
    4040    'deft' => &get_default_process_exp(),
    4141    'reqd' => "no" } ];
    … …  
    4343my $options = { 'name'     => "WordPlug",
    4444        'desc'     => "{WordPlug.desc}",
     45        'abstract' => "no",
    4546        'inherits' => "yes",
    4647        'args'     => $arguments };

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

    r5924 r6408  
    3939    [ { 'name' => "process_exp",
    4040    'desc' => "{BasPlug.process_exp}",
    41     'type' => "string",
     41    'type' => "regexp",
    4242    'deft' => &get_default_process_exp(),
    4343    'reqd' => "no" } ];
    … …  
    4545my $options = { 'name'     => "XMLPlug",
    4646        'desc'     => "{XMLPlug.desc}",
     47        'abstract' => "no",
    4748        'inherits' => "yes",
    4849        'args'     => $arguments };

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

    r5680 r6408  
    5959my $options = { 'name'     => "ZIPPlug",
    6060        'desc'     => "{ZIPPlug.desc}",
     61        'abstract' => "no",
    6162        'inherits' => "yes" };
    6263

  • trunk/gsdl/perllib/printusage.pm

    r6125 r6408  
    4646    print STDERR "  <!ELEMENT List      (Value*)>\n";
    4747    print STDERR "  <!ELEMENT Value     (Name, Desc?)>\n";
     48    print STDERR "  <!ELEMENT HiddenGLI (#PCDATA)>\n";
    4849    print STDERR "]>\n\n";
    4950}
    … …  
    123124    }
    124125
     126    # If the option is noted as being hidden in GLI, add that to the printout
     127    if (defined($option->{'hiddengli'})) {
     128        print STDERR "      <HiddenGLI>$option->{'hiddengli'}</HiddenGLI>\n";
     129    }
     130    # If the argument is not hidden then print out the lowest detail mode it is visible in
     131    if (defined($option->{'modegli'})) {
     132        print STDERR "      <ModeGLI>$option->{'modegli'}</ModeGLI>\n";
     133    }
     134
    125135    print STDERR "    </Option>\n";
    126136    }
Note: See TracChangeset for help on using the changeset viewer.