Changeset 3143

Timestamp:

2002-06-11T14:21:46+12:00 (22 years ago)

Author:

jrm21

Message:

Minor tweak for badly formatted dates. We now use a window, so anything less than 20 is assumed to be 2000 - 2020, and anything over 20 is assumed to be 1920. (I got spam dated "22 May 01" or some such). Previously we were just adding 1900, which meant 1901 in this case.

File:

• trunk/gsdl/perllib/plugins/EMAILPlug.pm (modified) (1 diff)

trunk/gsdl/perllib/plugins/EMAILPlug.pm

@@ -274 +274 @@
     $value = $raw{"Date"};
     my ($day, $month, $year) = $value =~ /(\d?\d)\s([A-Z][a-z][a-z])\s(\d\d\d?\d?)/;
-    if ($year < 100) { $year += 1900; }
+    # make some assumptions about the year formatting...
+    # some (old) software thinks 2001 is 101, some think 2001 is 01
+    if ($year < 20) { $year += 2000; } # assume not really 1920...
+    elsif ($year < 150) { $year += 1900; } # assume not really 2150...
     $raw{"Date"} = &sorttools::format_date($day, $month, $year);