Changeset 2918 for trunk/gsdl

Timestamp:

2002-01-24T15:28:47+13:00 (22 years ago)

Author:

jrm21

Message:

Add [Title] metadata so that the default format strings will show something
other than "Untitled". These titles currently have html tags in them, which
might possibly cause problems (eg this becomes the title for the browser
window).

File:

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

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -48 +48 @@
 #   $DateText     Date: header
 #   $Date         Date: header in GSDL format (eg: 19990924)
+#
+#   $Title    made up of Subject, Date and Sender (for default formatting)
 #
 #
@@ -242 +244 @@
     $doc_obj->add_utf8_metadata ($cursection, "FromName", $fromnamemeta);
 
-    # Escape < and > in the whole From field;
     $raw{"From"}=$frommeta;
 
@@ -319 +320 @@
     $doc_obj->add_utf8_metadata ($cursection, "Headers", $Headers);
 
+
+    # Add Title metadata
+    my $Title = text_into_html($raw{'Subject'});
+    $Title .= "<br>From: " . text_into_html($raw{'From'});
+    $Title .= "<br>Date: " . text_into_html($raw{'DateText'});
+
+    $doc_obj->add_utf8_metadata ($cursection, "Title", $Title);
+    
+
     # Add text to document object
     if ($mimetype eq "text/plain") {
@@ -355 +365 @@
 #    $text =~ s/([\w\d\.\-]+@[\w\d\.\-]+)/<a href=\"mailto:$1\">$1<\/a>/g;
 
+    # try to munge email addresses a little bit...
+    $text =~ s/@/&#64;/;
     # assume hostnames are \.\w\- only, then might have a trailing '/.*'
     # assume URI doesn't finish with a '.'
@@ -569 +581 @@
     }
     } # end of ($mimetype !~ multipart)
-    else {
+    elsif ($mimetype =~ m@message/rfc822@) {
+    my $msg_header = $text;
+    $msg_header =~ s/\r?\n\r?\n(.*)$//s;
+    $text = $1;
+
+    if ($msg_header =~ /^content\-type:\s*([\w\/\-]+)\s*\;?\s*(.+?)\s*$/mi)
+    {
+        $mimetype=$1;
+        $mimetype =~ tr/[A-Z]/[a-z]/;
+        $mimeinfo=$2;
+        if ($mimeinfo =~ /charset=\"([^\"]+)\"/) {
+        $charset = $1;
+        }
+        my $msg_text;
+        if ($mimetype =~ m@multipart/@) {
+        $msg_text = text_from_mime_message($self, $mimetype, $mimeinfo,
+                           $text, $outhandle);
+        } else {$msg_text=$text;}
+
+        my $brief_header="";
+        if ($msg_header =~ /^(From:.*)$/im) {$brief_header.="$1<br>";}
+        if ($msg_header =~ /^(To:.*)$/im) {$brief_header.="$1<br>";}
+        if ($msg_header =~ /^(Cc:.*)$/im) {$brief_header.="$1<br>";}
+        if ($msg_header =~ /^(Subject:.*)$/im) {$brief_header.="$1<br>";}
+        if ($msg_header =~ /^(Date:.*)$/im) {$brief_header.="$1<br>";}
+        $text= "\n<b>&lt;&lt;attached message&gt;&gt;</b><br>";
+        $text.= "<table><tr><td width=\"5%\"> </td>\n";
+        $text.="<td>" . $brief_header . "\n</p>" . $msg_text 
+        . "</td></tr></table>";
+    }
+    } else {
     # we don't do any processing of the content.
     }