#
# Pseudo-authentication for INND.
# Juliano Ravasi Ferraz < jferraz users sourceforge net >
#
# Version: 1.0
# Date: Apr 21, 2005
# License: GNU General Public License
#

use Digest::SHA1  qw(sha1_base64);

$hash_salt = "d2d29f1d27c0a0255741f01029d36ea0";

sub filter_post {
	if ($hdr{"X-UBr-PseudoID"}) {
		return "Nananinanao... mamae vai ficar chateada se voce nao se comportar...";
	}

	if ($hdr{"From"} =~ /#/) {
		if ($hdr{"From"} =~ /#([^#<@>"]*)#/) {
			$userkey = "U-Br::(" . $hash_salt . ")::(" . $1 . ")";
			$hash_full = sha1_base64($userkey);
			$hash_short = substr($hash_full, 0, 6);

			$hdr{"X-UBr-PseudoID"} = $hash_full;
			$hdr{"From"} =~ s/#[^#<@>"]*#/#$hash_short#/;

			$modify_headers = 1;
			return "";
		}

		return "Caractere '#' no campo remetente impropriamente usado.";
	}

	return "";
}

# vim: set ts=4 sw=4 ai :