aboutsummaryrefslogtreecommitdiffstats
path: root/camel/tests/data
diff options
context:
space:
mode:
authorMichael Zucci <zucchi@src.gnome.org>2000-11-24 15:06:45 +0800
committerMichael Zucci <zucchi@src.gnome.org>2000-11-24 15:06:45 +0800
commit05aaadc66b77c9f080b590fa19938de8ec80691d (patch)
tree29a0a25e2261139de414e4a6172e678fafa4322b /camel/tests/data
parent189cb50426fc12b55a79c67a00064623ec964383 (diff)
downloadgsoc2013-evolution-05aaadc66b77c9f080b590fa19938de8ec80691d.tar.gz
gsoc2013-evolution-05aaadc66b77c9f080b590fa19938de8ec80691d.tar.zst
gsoc2013-evolution-05aaadc66b77c9f080b590fa19938de8ec80691d.zip
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
Diffstat (limited to 'camel/tests/data')
-rwxr-xr-xcamel/tests/data/getaddr.pl32
1 files changed, 32 insertions, 0 deletions
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";
+}