#! /usr/bin/perl
# Modified: 18 October 1992
#
# This is 'digest' a program to run elm on a digest as a folder.
# Copyright (C) 1990-1991 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.
#
#
[email protected] ^ David J. Camp #
# wupost.wustl.edu!campfire!david < * > +1 314 382 0584 #
# v "God loves material things." #
# I am a member of the League for Programming Freedom. #
#
# from the elm menu, type |digest<return>
#
$first = 1;
if (-t STDIN)
{
print STDERR "Usage: \"|digest\" from elm menu\n";
exit 3;
}
$| = 1;
open (FOLDER, ">/tmp/dig$$");
$first = 1;
while (<>)
{
# print $_;
if ($first)
{
if (! m/^From /)
{
print FOLDER "From dummy Wed Feb 29 12:12:12 1990\n";
}
$first = 0;
}
$match = 0;
if (/^[0-9]*\)$/)
{ $match = 1; }
if (/^\([0-9]*\) ----\n$/)
{ $match = 1; }
if (/^*\n$/)
{ $match = 1; }
if (/^------\n$/)
{ $match = 1; }
if (/^-----------------------------\n$/)
{ $match = 1; }
if (/^------------------------------\n$/)
{ $match = 1; }
if (/^-------------------------------------------------------\n$/)
{ $match = 1; }
if (/^============================================================\n$/)
{ $match = 1; }
if
(/^----------------------------------------------------------------------*\n$/)
{ $match = 1; }
if
(/^------------------------------------------------------------------------=\n$/)
{ $match = 1; }
if
(/^=========================================================================$/)
{ $match = 1; }
if
(/^========================================================================/)
{ $match = 1; }
if ($match || $first)
{
$break = $_;
$_ = "";
for ($ctr = 0; ! (eof() || /[\041-\177]/); $ctr++)
{
$_ = <>;
}
if (/^[^ \t\r\n:]+: /)
{
print FOLDER "From dummy Wed Feb 29 12:12:12 1990\n";
}
else
{
print FOLDER $break;
for ($ctr--; $ctr > 0; $ctr--)
{
print FOLDER "\n";
}
}
}
print FOLDER $_;
$first = 0;
}
close (FOLDER);
exec ("elm -f /tmp/dig$$ <&2 ; /bin/rm -f /tmp/dig$$");
