Changeset 15212 for gsdl

Timestamp:

2008-04-24T15:02:54+12:00 (16 years ago)

Author:

kjdon

Message:

for the greenstone archive collection, we are now using monthly archives rather than raw mbox. The date format is slightly different in this case. I have added code to deal with this format too as it may be useful for other people.

File:

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

gsdl/trunk/perllib/plugins/EMAILPlug.pm

@@ -323 +323 @@
     # Convert the date text to internal date format
     $value = $raw{"Date"};
+    # proper mbox format: Tue, 07 Jan 2003 17:27:42 +1300
     my ($day, $month, $year) = $value =~ /(\d?\d)\s([A-Z][a-z][a-z])\s(\d\d\d?\d?)/;
+    if (!defined($day) || !defined($month) || !defined ($year)) {
+        # try monthly archive format: Wed Apr 23 00:26:08 2008
+        ($month,$day, $year) = $value =~ /([A-Z][a-z][a-z])\s\s?(\d?\d)\s\d\d:\d\d:\d\d\s(\d\d\d\d)/;
+    }
+
     # make some assumptions about the year formatting...
     # some (old) software thinks 2001 is 101, some think 2001 is 01