[comp.mail.elm] 'digest' - a perl-based dedigestifier

david@wubios.wustl.edu (David J. Camp) (03/12/91)

Here is the latest version of 'digest', a perl-based dedigestifier.
It has had no changes on a month or so, so it should be fairly stable.
It requires 'perl' to operate, and assumes that 'elm' is your mailer.
-David-

#! /usr/bin/perl
#
#    This is 'digest' a program to run elm on a digest as a folder.
#    Copyright (C) 1990  David J. Camp
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 1, or (at your option)
#    any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
#
# david@wubios.wustl.edu             ^     Mr. David J. Camp
# david%wubios@wugate.wustl.edu    < * >   +1 314 382 0584
# ...!uunet!wugate!wubios!david      v     "God loves material things."
#
$| = 1;
open (FOLDER, ">/tmp/dig$$");
while (<>)
    {
    if (/^------(\n|-----------------------(\n|-(\n|----------------------------------------\n)))/)
        {
        print FOLDER "From dummy Wed Feb  29 12:12:12 1990\n";
        do
            {
            $_ = <>;
            }
            until (eof() || /[\041-\177]/);
        }
    print FOLDER $_;
    }
close (FOLDER);
exec ("elm -f /tmp/dig$$ <&2 ; /bin/rm -f /tmp/dig$$");