Changeset 9427

Timestamp:

2005-03-15T15:19:28+13:00 (19 years ago)

Author:

mdewsnip

Message:

Added the "-process_extension" option: a simpler alternative to "-process_exp" where a filename extension is specified instead of a regular expression.

File:

• trunk/gsdl/perllib/plugins/UnknownPlug.pm (modified) (4 diffs)

trunk/gsdl/perllib/plugins/UnknownPlug.pm

@@ -69 +69 @@
     'type' => "string",
     'deft' => "",
-    'reqd' => "no" } ,
+    'reqd' => "no" },
       { 'name' => "file_format",
     'desc' => "{UnknownPlug.file_format}",
@@ -77 +77 @@
       { 'name' => "mime_type",
     'desc' => "{UnknownPlug.mime_type}",
+    'type' => "string",
+    'deft' => "",
+    'reqd' => "no" },
+      { 'name' => "process_extension",
+    'desc' => "{UnknownPlug.process_extension}",
     'type' => "string",
     'deft' => "",
@@ -100 +105 @@
              q^file_format/.*/^, \$self->{'file_format'},
              q^mime_type/.*/^, \$self->{'mime_type'},
+             q^process_extension/.*/^, \$self->{'process_extension'},
              "allow_extra_options")) {
     print STDERR "\nIncorrect options passed to UnknownPlug, check your collect.cfg configuration file\n";
@@ -106 +112 @@
     }
 
+    # "-process_extension" is a simpler alternative to -process_exp for non-regexp people
+    if (!$self->{'process_exp'} && $self->{'process_extension'}) {
+    $self->{'process_exp'} = "\." . $self->{'process_extension'} . "\$";
+    }
 
     return bless $self, $class;