This commit was manufactured by cvs2svn to create branch 'unlabeled-1.25.2'.

[nethome.git] / bin / From-split.perl

diff --git a/bin/From-split.perl b/bin/From-split.perl
deleted file mode 100755 (executable)
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";