Frugan frugan-dev

🍎

VegDev

mmriis / auth.pl

Created November 30, 2011 11:31

IMAP/POP3 proxy authentication script for nginx. See http://www.whatastruggle.com/nginx-as-an-imappop3-proxy-part-2.

	#!/usr/bin/perl

	use Digest::HMAC_MD5 qw/ hmac_md5_hex /;
	use DBI;
	use URI::Escape;
	use CGI;

	print "Content-type: text/html\n";

	my $q = CGI->new;