[tpop3d-discuss] auth-perl onlogin handler

Kevin Bonner keb at pa.net
Mon, 25 Aug 2003 17:11:48 -0400


=2D----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

After seeing the ease of supporting bulletins with auth-perl, I got curious=
=20
and started playing around.  The code in my script works (at the moment it=
=20
just updates a database field), but I keep seeing the following error when =
a=20
successful connection is made:

Attempt to free unreferenced scalar.

I'm using perl 5.6.1 and the '-d' and '-v' options for testing.  This error=
=20
happens at FREETMPS of auth_perl_callfn in auth_perl.c.  I tried just using=
=20
the following as the onlogin function and see the same results:

sub onlogin_handler ($) {
	my $req =3D shift;
	return { };
}

The relevant config I have is:
	auth-perl-enable: true
	auth-perl-start: do '/usr/local/etc/tpop3d/tpop3d.pl'
	auth-perl-onlogin: onlogin_handler

onlogin-child-wait is not enabled.  I've tried numerous changes to the sour=
ce=20
without any results, other than determining where the message is displayed.=
 =20
Is this anything to worry about?  I'm inclined to say no, as the script doe=
s=20
complete what I want it to, but would like the input of others.

Kevin Bonner
=2D----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.7 (GNU/Linux)

iD8DBQE/Snud/9i/ml3OBYMRAnCDAJ0bIdV/+3HtLRyYy3kp7jioeMESGwCdH/6m
sqh+j+MCzaudxqLR3++iEtw=3D
=3Df9T/
=2D----END PGP SIGNATURE-----