From: short <>
Date: Sat, 14 May 2005 08:46:30 +0000 (+0000)
Subject: Obsolete, use: formail -s
X-Git-Url: https://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=48ea0832f4e7a887778ba80f2907cb007ee9f19f

Obsolete, use: formail -s
---

diff --git a/bin/From-split.perl b/bin/From-split.perl
deleted file mode 100755
index 6df4389..0000000
--- a/bin/From-split.perl
+++ /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";