From: short <>
Date: Tue, 10 Jul 2001 18:38:34 +0000 (+0000)
Subject: Invokes specified command on each separate mail from the folder separately
X-Git-Tag: rh71~59
X-Git-Url: http://git.jankratochvil.net/?p=nethome.git;a=commitdiff_plain;h=95449c3bc68eaf50ea2a06c20bacbfc100d60d3d

Invokes specified command on each separate mail from the folder separately
---

diff --git a/bin/From-split.perl b/bin/From-split.perl
new file mode 100755
index 0000000..6df4389
--- /dev/null
+++ b/bin/From-split.perl
@@ -0,0 +1,18 @@
+#! /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";