Obsolete, use: formail -s
authorshort <>
Sat, 14 May 2005 08:46:30 +0000 (08:46 +0000)
committershort <>
Sat, 14 May 2005 08:46:30 +0000 (08:46 +0000)
bin/From-split.perl [deleted file]

diff --git a/bin/From-split.perl b/bin/From-split.perl
deleted file mode 100755 (executable)
index 6df4389..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-#! /usr/bin/perl -w
-use strict;
-use vars qw/$cmd/;
-
-$/="\nFrom ";
-$|=1;
-while (<STDIN>) {
-       s/^From //s;
-       s/From $//s;
-       $_="From ".$_;
-       $cmd=$ARGV[0];
-       $cmd=~s/%/$./;
-       open(OUT,"|".$cmd.";cat >/dev/null") or die "Cannot open $cmd";
-       print OUT $_ or die "Cannot write";
-       close(OUT) or die "Cannot close";
-       print STDOUT ".";
-       }
-print STDOUT " done.\n";