From 05aaadc66b77c9f080b590fa19938de8ec80691d Mon Sep 17 00:00:00 2001
From: Michael Zucci <zucchi@src.gnome.org>
Date: Fri, 24 Nov 2000 07:06:45 +0000
Subject: little util to scan mailboxes for any and every address they contain.

	* tests/data/getaddr.pl: little util to scan mailboxes for any and
	every address they contain.

	* tests/message/test2.c (main): Added a bunch of stuff to test
	decoding/reencoding/etc of internationalised addresses.

	* tests/message/lib/address-data.h: Copy of some unicode/other
	testing data.  **Beware** of editing this file in emacs, it'll
	probably try and convert all the characters to something
	unusable.

	* tests/lib/camel-test.c (camel_test_break): Add a debugger hook
	point.

	* camel-mime-utils.c (quoted_encode): Check for space and convert
	to _ separately.
	(header_decode_mailbox): Fixed the 'check comments for realname'
	code, problem was the domain getting code was skipping all
	whitespace/comments before we could get a look-in.  This is
	approximate but fairly robust.
	(header_decode_text): Dont use the c-type isspace func here, we
	want a specific whitespace only.
	(header_decode_text): If we have decoded words next to each other,
	do not insert whitespaces between them, which is what rfc2047 requires.
	(header_decode_text): Make c unsigned too.

svn path=/trunk/; revision=6658
---
 camel/tests/data/getaddr.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 camel/tests/data/getaddr.pl

(limited to 'camel/tests/data')

diff --git a/camel/tests/data/getaddr.pl b/camel/tests/data/getaddr.pl
new file mode 100755
index 0000000000..74a8a81f74
--- /dev/null
+++ b/camel/tests/data/getaddr.pl
@@ -0,0 +1,32 @@
+#!/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