Re: Archiving by month

1999-09-06

Hi Jeff,

I'm sorry you had problems with my previous date code - hope it hasn't
caused you much grief.  I just didn't realise there were mail clients out
there which produced malformed date strings (well, ones that date(1) can't
read at least).

The last patch to mailme I sent was (again) incorrect as it didn't
take care of multiple Received: lines, and the junk on a Received line
before the semicolon.  I've attached a patch (again from your original
source) which deals with this (it uses the top Received: line which I think
is safest), and also skips the date code completely unless it's a monthly
list, just so that any problems don't affect non-monthly lists at all.  But
providing x-archive-with-list is formatted ok, or Received:  lines are
sensible (which come from your server so they are), malformed dates
hopefully should be a thing of the past.

With regard to attachments: I copied over your own MIMEargs (just added a
target=), and I've gone back and regenerated my archives here with your
rcfile alone: and yes, I think it's with text/plain attachments that the
msg* subdirectory gets created.  I don't know why they don't tack
.dir on the end for these attachments, at least here, but I'm sure
it's not a worry.

Paul

--- mailme.jeff Mon Sep  6 21:17:09 1999
+++ mailme  Mon Sep  6 21:01:19 1999
@@ -103,6 +103,25 @@
 } '
 }
 
+# Special case of grab() for Received: lines
+# This is because we want to take first occurrence
+# Example usage: cat messageheaders | receiveme
+receiveme() {
+$NAWK '
+BEGIN {
+m = ^Received:
+}
+{
+if (match($0, m)) {
+print $0
+getline
+while ( $0 ~ /^[ \t]+/) {
+print $0; getline
+}
+}
+} '
+}
+
 # Get all email addresses, and precede them with a carat.
 # Example usage: cat RMAIL | waterfall
 waterfall () {
@@ -318,10 +337,6 @@
 X13=`echo $T | grab mailing-list` #use later
 X14=`echo $T | grab list-post`
 
-# If indexing by month, we care about the date
-DATE=`echo $T | grab date`
-JUSTDATE=`echo $DATE | sed 's/^date: //i'`
-
 # Extract email addresses
 CHANCE=$(echo $TO $CC $X1 $X2 $X3 $X4 $X5 $X6 $X7 $X8 $X9 $X10 $X11 $X14 |\
 waterfall)
@@ -453,6 +468,29 @@
 MONFLAG=$HOME/vault/$ESCAPED_NAME/monthly
 if [ -f $MONFLAG ]
 then
+
+# If indexing by month, we care about the date
+# If importing, see if x-archive-with-date is set first.
+# Use Date: as last resort because of mis-set clocks.
+   XDATE=`echo $T | grab x-archive-with-date`
+   [ ! $XDATE ]  XDATE=`echo $T | receiveme`
+   [ ! $XDATE ]  XDATE=`echo $T | grab date`
+   if [ ! $XDATE ]
+   then
+   emergency_divert NODATE Unable to find any date field.
+   exit -1
+   fi
+   JUSTDATE=`echo $XDATE | sed -e 's/^date: //i' \
+  -e 's/^x-archive-with-date: //i' \
+  -e 's/^received:.*; //i'`
+   date -d $JUSTDATE  /dev/null 21
+   ex=$?
+   if [ $ex != 0 ]
+   then
+   emergency_divert NODATE Unable to find valid date field.
+   exit -1
+   fi
+
 echok info Now switching to monthly indexing
 MM=`date -d $JUSTDATE +%Y-month-%m`
 MONBEG=`date -d $JUSTDATE +%m/01/%Y:00:00:00.00`




Re: Archiving by month