Changeset 2450

Timestamp:

2001-05-21T18:00:29+12:00 (23 years ago)

Author:

jrm21

Message:

now accepts the "-title_sub" option, a regexp to remove when automatically
extracting title from text.

File:

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

trunk/gsdl/perllib/plugins/TEXTPlug.pm

@@ -30 +30 @@
 
 use BasPlug;
+use parsargv;
+
 
 sub BEGIN {
@@ -35 +37 @@
 }
 
+sub print_usage {
+    print STDERR "\n  usage: plugin TEXTPlug [options]\n\n";
+    print STDERR "  options:\n";
+    print STDERR "   -title_sub\t     Substitution expression to modify string stored as Title.\n";
+    print STDERR "\t\t     Used by, for example, PSPlug to remove \"Page 1\" etc from\n";
+    print STDERR "\t\t     text used as the title.\n";
+
+    print STDERR "\n";
+}
+
 sub new {
     my ($class) = @_;
     my $self = new BasPlug ($class, @_);
+
+    if (!parsargv::parse(\@_, 
+             q^title_sub/.*/^, \$self->{'title_sub'},
+             "allow_extra_options")) {
+    print STDERR "\nIncorrect options passed to TEXTPlug, check your collect.cfg configuration file\n";
+    &print_usage();
+        die "\n";
+    }
+
 
     return bless $self, $class;
@@ -63 +84 @@
     # in from another plugin)
     if (!defined $metadata->{'Title'}) {
-    my ($title) = $$textref =~ /^\s*([^\n]*)/;
+    my ($title) = $$textref;
+    $title =~ /^\s+/s;
+    if (defined $self->{'title_sub'}) {$title =~ s/$self->{'title_sub'}//;}
+    $title =~ /^\s*([^\n]*)/s; $title=$1;
     if (length($title) > 100) {
-        $title = substr ($title, 0, 100);
+        $title = substr ($title, 0, 100) . "...";
     }
     $doc_obj->add_utf8_metadata ($cursection, "Title", $title);