jsparkes@bwdls49.bnr.ca (Jeff Sparkes) (11/28/90)
I've been fooling around with perl a bit, trying to clean up my
mailboxes. The problem is that our main gateway, for reasons I'd don't need
to discuss, can only handle so many header lines. It sticks the ones it
needs near the top, and puts one or more blank line after them. It then
adds the leftover headers, followed by the message.
I'm sure there must be an easy way to do this, but I end up writing
a C-like program to do it. The continued "Received" lines are killing me.
Any takers? A sample header is included below.
Return-Path: @BNRCARTA.bnr.ca:storm%texas.dk@NETNORTH
Return-Path: <@BNRCARTA.bnr.ca:storm%texas.dk@NETNORTH>
Received: from BNRCARTA.BNR.CA by bcars85.bnr.ca (4.1/SMI-4.0)
id AA00753; Mon, 14 May 90 08:46:28 EDT
Message-Id: <9005141246.AA00753@bcars85.bnr.ca>
Received: from BNRCARTA.BNR.CA by BNRCARTA.BNR.CA (IBM VM SMTP R1.2.1) with BSMTP id 7609; Mon, 14 May 90 08:46:40 EDT
Date: 14 May 90 08:37:00 EDT
To: JSPARKES@BCARS85 (Jeffrey J.D. Sparkes :Dept 4P27)
From: <storm@texas.dk>@NETNORTH
Subject: auto select-same
Sender: <storm@texas.dk>@NETNORTH
Status: OR
Received: from utorugw by BNR.CA (Mailer R2.04) with BSMTP id 5101; Mon, 14 May
90 08:37:07 EDT
Received: from mcsun.EU.net by ugw.utcs.utoronto.ca with SMTP id 57500;
Mon, 14 May 90 08:34:44 EDT
Received: by mcsun.EU.net via EUnet; Mon, 14 May 90 14:33:24 +0200 (MET)
Received: from texas.dk by dkuug.dk via EUnet with UUCP (5.61++/IDA-1.2.8)
id AA18721; Mon, 14 May 90 14:19:47 +0200
Received: by texas.dk (smail2.5)
id AA06275; 14 May 90 14:19:49 MET (Mon)
To: jsparkes@bnr.ca
In-Reply-To: Jeff Sparkes's message of 10 May 90 15:37:57 GMT <.642353877@
bcars85>
Subject: auto select-same
Message-Id: <9005141419.AA06269@texas.dk>
Date: Mon, 14 May 90 09:19:48 EDT
From: storm@texas.dk (Kim F. Storm)
X-Charset: US-DK
X-Char-Esc: 29
--
Jeff Sparkes jsparkes@bnr.ca Bell-Northern Research, Ottawa (613)765-2503
Another feature is that the seats float, so that the airline can recover
them if the plane crashes into the ocean. -- Dave Barry
BOB drives a TuRBO!