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/plugins
Files:
35 edited

Legend:

Unmodified
Added
Removed

  • 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
Note: See TracChangeset for help on using the changeset viewer.