aboutsummaryrefslogtreecommitdiffstats
path: root/camel/tests/data/getaddr.pl
diff options
context:
space:
mode:
authornobody <nobody@localhost>2001-08-02 23:43:54 +0800
committernobody <nobody@localhost>2001-08-02 23:43:54 +0800
commit7acab8b24cd9e7e2e32211e77d2a5c2eae1c4bb0 (patch)
tree94acb43d14c571e8ec432fa3650277178741f531 /camel/tests/data/getaddr.pl
parentea4315435238149d387701ed2940bf8c97d4d319 (diff)
downloadgsoc2013-evolution-release-0-2-91.tar
gsoc2013-evolution-release-0-2-91.tar.gz
gsoc2013-evolution-release-0-2-91.tar.bz2
gsoc2013-evolution-release-0-2-91.tar.lz
gsoc2013-evolution-release-0-2-91.tar.xz
gsoc2013-evolution-release-0-2-91.tar.zst
gsoc2013-evolution-release-0-2-91.zip
This commit was manufactured by cvs2svn to create tagrelease-0-2-91
'release-0-2-91'. svn path=/tags/release-0-2-91/; revision=11578
Diffstat (limited to 'camel/tests/data/getaddr.pl')
-rwxr-xr-xcamel/tests/data/getaddr.pl32
1 files changed, 0 insertions, 32 deletions
diff --git a/camel/tests/data/getaddr.pl b/camel/tests/data/getaddr.pl
deleted file mode 100755
index 74a8a81f74..0000000000
--- a/camel/tests/data/getaddr.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#!/usr/bin/perl
-
-# get addresses out of messages
-
-if ($#ARGV < 0) {
- print "Usage: $0 message(s) mbox(es)\n";
- exit 1;
-}
-
-foreach $name (@ARGV) {
- open IN,"<$name";
- while (<IN>) {
- if (/^From: (.*)/i
- || /^To: (.*)/i
- || /^Cc: (.*)/i) {
- $base = $1;
- while (<IN>) {
- if (/^\s+(.*)/) {
- $base .= " ".$1;
- } else {
- last;
- }
- }
- $uniq{$base} = 1;
- }
- }
- close IN;
-}
-
-foreach $key (sort keys %uniq) {
- print $key."\n";
-}