[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-----