Add correct timestamp to mbox when processing.

Picked from upstream.

Signed-off-by: Thomas Hochstein <thh@inter.net>

diff --git a/CHANGES b/CHANGES
index 6ccc966..f73d3d8 100644 (file)
--- a/CHANGES
+++ b/CHANGES
@@ -8,6 +8,9 @@ Version 4.12 (19.01.2014):
 - uvbounce.pl und uvballot.pl benutzen jetzt wieder den uebergebenen
   Dateinamen statt irrtuemlich das Mailboxfile aus usevote.cfg
   (Bugfix in UVreadmail.pm)
 - uvbounce.pl und uvballot.pl benutzen jetzt wieder den uebergebenen
   Dateinamen statt irrtuemlich das Mailboxfile aus usevote.cfg
   (Bugfix in UVreadmail.pm)

+- UVreadmail.pm setzt beim Schreiben eines Mailarchivs nun einen
+  Timestamp in der mbox-Fromline, der aus der Mail stammt
+  (timestamp()-Funktion von Mail::Box) statt dem aktuellen Datum

 - UVreadmail.pm laesst nun Mailboxdateien bzw. -ordner bestehen,
   auch wenn sie leer sind, um Kompatibiliaetsprobleme mit anderen
   Programmen zu vermeiden
 - UVreadmail.pm laesst nun Mailboxdateien bzw. -ordner bestehen,
   auch wenn sie leer sind, um Kompatibiliaetsprobleme mit anderen
   Programmen zu vermeiden

diff --git a/UVreadmail.pm b/UVreadmail.pm
index 35dda15..0a1f98f 100644 (file)
--- a/UVreadmail.pm
+++ b/UVreadmail.pm
@@ -162,7 +162,7 @@ sub process {
       } else {
         $fromline .= 'foo@bar.invalid';
       }
       } else {
         $fromline .= 'foo@bar.invalid';
       }

-      $fromline .= ' ' . localtime() . "\n";  #strftime ('%a %b %d %H:%M:%S %Y', localtime) . "\n";
+      $fromline .= ' ' . localtime($_->timestamp()) . "\n";

       push (@mails, $fromline . $mail);
     }
   }
       push (@mails, $fromline . $mail);
     }
   }