Changeset 6916
- Timestamp:
- 2004-03-04T15:25:17+13:00 (20 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/perllib/plugins/EMAILPlug.pm
r6408 r6916 40 40 # 41 41 # Metadata (not Dublin Core!): 42 # $Headers All the header content 42 # $Headers All the header content (optional, not stored by default) 43 43 # $Subject Subject: header 44 44 # $To To: header … … 82 82 use strict; 83 83 no strict "refs"; # so we can use a variable as a filehandle for print $out 84 # sub print_usage {85 # print STDERR "\n usage: plugin EMAILPlug [options]\n\n";86 # print STDERR " options:\n";87 # print STDERR " -split_exp A perl regular expression used to split files\n";88 # print STDERR " containing many messages into individual documents.\n\n";89 # print STDERR " -no_attachments Do not save message attachments.\n\n";90 # }91 84 92 85 my $arguments = … … 100 93 'type' => "flag", 101 94 'reqd' => "no" }, 95 { 'name' => "headers", 96 'desc' => "{EMAILPlug.headers}", 97 'type' => "flag", 98 'reqd' => "no" }, 102 99 { 'name' => "split_exp", 103 100 'desc' => "{EMAILPlug.split_exp}", … … 128 125 q^split_exp/.*/^, \$self->{'split_exp'}, 129 126 q^no_attachments^, \$self->{'ignore_attachments'}, 127 q^headers^, \$self->{'header_metadata'}, 130 128 "allow_extra_options")) { 131 129 print STDERR "\nIncorrect options passed to $class."; … … 410 408 411 409 412 413 414 415 416 417 418 419 420 421 422 423 424 $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers);410 if ($self->{'header_metadata'} && $self->{'header_metadata'} == 1) { 411 # Add "All headers" metadata 412 $Headers = &text_into_html($Headers); 413 414 $Headers = "No headers" unless ($Headers =~ /\w/); 415 $Headers =~ s/@/@\;/g; 416 # escape [] so it isn't re-interpreted as metadata 417 $Headers =~ s/\[/[/g; $Headers =~ s/\]/]/g; 418 $self->convert2unicode($charset, \$Headers); 419 420 $Headers =~ s@_@\\_@g; # protect against GS macro language 421 $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers); 422 } 425 423 426 424
Note:
See TracChangeset
for help on using the changeset viewer.