Changeset 3540 for trunk/gsdl/perllib/plugins/BibTexPlug.pm

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:

• trunk/gsdl/perllib/plugins/BibTexPlug.pm (modified) (3 diffs)

trunk/gsdl/perllib/plugins/BibTexPlug.pm

@@ -51 +51 @@
 }
 
+my $arguments = 
+[ {     'name' => "process_exp",
+    '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).",
+    'type' => "string",
+    'reqd' => "no" ,
+    'deft' => q^(?i)\.bib$^ }
+];
+
+my $options = 
+{   'name'     => "BibTexPlug",
+    'desc'     => "BibTexPlug reads bibliography files in BibTex format. BibTexPlug creates a document object for every reference a the file. It is a subclass of SplitPlug, so if there are multiple records, all are read.",
+    'inherits' => "Yes",
+    'args'     => $arguments };
+
 # This plugin processes files with the suffix ".bib"
 sub get_default_process_exp {
@@ -59 +73 @@
 sub get_default_split_exp {
     return q^\n+(?=@)^;
+}
+sub new {
+    my $class = shift (@_);
+    my $self = new SplitPlug ($class, @_);
+    # 14-05-02 To allow for proper inheritance of arguments - John Thompson
+    my $option_list = $self->{'option_list'};
+    push( @{$option_list}, $options );
+    return bless $self, $class;
 }
 
@@ -368 +390 @@
  
    $text =~ s/([\w\d\.\-]+@[\w\d\.\-]+)/<a href=\"mailto:$1\">$1<\/a>/g;
-   $text =~ s/(http:\/\/[\w\d\.\-]+[\/\w\d\.\-]*)/<a href=\"$1">$1<\/a>/g;
+   $text =~ s/(http:\/\/[\w\d\.\-]+[\/\w\d\.\-]*)/<a href=\"$1\">$1<\/a>/g;
 
    return $text;