Changeset 6916

Timestamp:

2004-03-04T15:25:17+13:00 (20 years ago)

Author:

jrm21

Message:

Don't store Headers metadata by default (it's quite wasteful of space),
unless -headers option is given to EMAILPlug in the collect.cfg file.

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (5 diffs)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -40 +40 @@
 #
 # Metadata (not Dublin Core!):
-#   $Headers      All the header content
+#   $Headers      All the header content (optional, not stored by default)
 #   $Subject      Subject: header
 #   $To           To: header
@@ -82 +82 @@
 use strict;
 no strict "refs"; # so we can use a variable as a filehandle for print $out
-#  sub print_usage {
-#      print STDERR "\n  usage: plugin EMAILPlug [options]\n\n";
-#      print STDERR "  options:\n";
-#      print STDERR "   -split_exp        A perl regular expression used to split files\n";
-#      print STDERR "                     containing many messages into individual documents.\n\n";
-#      print STDERR "   -no_attachments   Do not save message attachments.\n\n";
-#  }
 
 my $arguments = 
@@ -100 +93 @@
     'type' => "flag",
     'reqd' => "no" },
+      { 'name' => "headers",
+    'desc' => "{EMAILPlug.headers}",
+    'type' => "flag",
+    'reqd' => "no" },
       { 'name' => "split_exp",
     'desc' => "{EMAILPlug.split_exp}",
@@ -128 +125 @@
              q^split_exp/.*/^, \$self->{'split_exp'},
              q^no_attachments^, \$self->{'ignore_attachments'},
+             q^headers^, \$self->{'header_metadata'},
              "allow_extra_options")) {
     print STDERR "\nIncorrect options passed to $class.";
@@ -410 +408 @@
 
     
-
-    # Add "All headers" metadata
-    $Headers = &text_into_html($Headers);
-
-    $Headers = "No headers" unless ($Headers =~ /\w/);
-    $Headers =~ s/@/&#64\;/g;
-    # escape [] so it isn't re-interpreted as metadata
-    $Headers =~ s/\[/[/g; $Headers =~ s/\]/]/g;
-    $self->convert2unicode($charset, \$Headers);
-
-    $Headers =~ s@_@\\_@g; # protect against GS macro language
-
-    $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers);
+    if ($self->{'header_metadata'} && $self->{'header_metadata'} == 1) {
+    # Add "All headers" metadata
+    $Headers = &text_into_html($Headers);
+
+    $Headers = "No headers" unless ($Headers =~ /\w/);
+    $Headers =~ s/@/&#64\;/g;
+    # escape [] so it isn't re-interpreted as metadata
+    $Headers =~ s/\[/[/g; $Headers =~ s/\]/]/g;
+    $self->convert2unicode($charset, \$Headers);
+
+    $Headers =~ s@_@\\_@g; # protect against GS macro language
+    $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers);
+    }