05aaadc66b
* 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
33 lines
477 B
Perl
Executable File
33 lines
477 B
Perl
Executable File
#!/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";
|
|
}
|