david@wubios.wustl.edu (David J. Camp) (03/20/91)
I have upgraded the 'digest' program to support the 'linguist' digest format. Please inform me of any digests that are not handled, including a uu (or xx) encoded sample of an entire digest. Thanks, -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 (/(^\([0-9]*\) |^--)----(\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$$");