Changeset 94

Timestamp:

07.12.2006 19:57:42 (2 years ago)

Author:

decoder

Message:

Added Logline for message id, sender and receipients at infolog level

Files:

• trunk/devel/FuzzyOcr.pm (modified) (1 diff)

trunk/devel/FuzzyOcr.pm

@@ -123 +123 @@
-    my $main     = $self->{main};
-
+    my $from = $pms->get('From') ? $pms->get('From') : "<no sender>";
+    my $to = $pms->get('To') ? $pms->get('To') : "<no receipients>";
+    my $msgid = $pms->get('Message-Id') ? $pms->get('Message-Id') : "<no messageid>";
+
+    chomp($from, $to, $msgid);
+
-    debuglog("Starting FuzzyOcr...");
+    infolog("Processing Message with ID \"$msgid\" ($from -> $to)");
-    foreach my $p (
-        $pms->{msg}->find_parts(qr(^image\b)i),