[Mimedefang] how to undo Verisigns mess

[John Rowan Littell]

-----BEGIN PGP SIGNED MESSAGE-----

Correction to the code snippet I just posted:

14,15c14,15
<       $tld =~ s/.*(\.\w+)$/$1/;
<       $domain =~ s/.*[\@\.](\w+\.\w+)$/$1/;
- ---
>       $tld =~ s/^<?.*(\.\w+)>?$/$1/;
>       $domain =~ s/^<?.*[\@\.](\w+\.\w+)>?$/$1/;

The original did not catch addresses in the form of <user at domain.tld>.

More corrections/suggestions welcome.

  --rowan

- -- 
John "Rowan" Littell
Systems Administrator
Earlham College Computing Services
http://www.earlham.edu/~littejo/
2003-09-16 10:08
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.2 (Darwin)
Comment: Made with pgp4pine 1.76

iQCVAwUBP2coiJdUNSJ2nf/5AQGxWgP9EQRY0CXMuQ7paDVdz4BCR4DuIyoaMTah
L6zWRBc+hNF/7APzFiElD2McY9H5KmI8cVZgVmABHe7wENZlPs5kpjM7iStKmebd
c2rB+TZ5QG+sABYymZGDVw9aLhSxM5bysn/JhYX7r3jADeJ4vTB/DHLsqLHI/wKd
zUJgBTa3nBs=
=Q6G0
-----END PGP SIGNATURE-----