From 33d0bbdc0ce1b25a612c2583c0bfcc3705866ebc Mon Sep 17 00:00:00 2001
From: nobody <nobody@localhost>
Date: Fri, 2 Mar 2001 01:33:29 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'PONG_0_11'.

svn path=/tags/PONG_0_11/; revision=8498
---
 camel/tests/data/getaddr.pl | 32 --------------------------------
 1 file changed, 32 deletions(-)
 delete mode 100755 camel/tests/data/getaddr.pl

(limited to 'camel/tests/data/getaddr.pl')

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";
-}
-- 
cgit v1.2.3