Fuente del cambio en mb2md.pl


— mb2md-3.20.pl 2008-10-29 08:53:18.000000000 -0200
+++ /usr/local/bin/mb2md-3.20.pl 2008-10-29 10:35:52.000000000 -0200
@@ -1104,6 +1104,14 @@
# This first section is if we determine there is one
# (or more . . . ) "@" characters in the line, which
# would normally be the case.
+ # Trato de eliminar todo lo que este entre comillas. Hay direcciones que el Outlook pone que no tienen arroba pero si estan entre comillas, y eso causa que se detecte mal la fecha de los mensajes.
+ if ($fromline =~ m/^\".*\".*/ )
+ {
+ #Mensaje de debug
+ #print "Hay comillas en la fecha\n";
+ # Repitiendo los ejemplos de arriba, elimino todo lo que este entre las comillas. Supuestamente es el
nombre de una persona.
+ $fromline =~ s/^\".*\"//;
+ }

if ($fromline =~ m/@/)
{
@@ -1145,7 +1153,6 @@
# timezone
#
# FIXME: all those regexp should be combined to just one single one

$fromline =~ s/(\((\S*| )+\)|\S+) *//;

chomp $fromline;
@@ -1157,7 +1164,7 @@

# Debugging lines:
#
– # print "$receivedate is the receivedate of message $messagecount.\n";
+ print "$receivedate is the receivedate of message $messagecount.\n";
# $receivedate = "Wed Nov 24 11:05:35 1999";
#
# To look at the exact date-time of files:
[
/plain]

Be the first to comment

Leave a Reply

Your email address will not be published.


*