rlm_perl problems]

[Ivan Kalik]

> Garber, Neal wrote:
>> Igor,
>>
>> What version of perl and what O/S are you using?  I'm using FreeBSD 7.2
>> with perl 5.8.9.  The reason I hadn't submitted this sooner is I wanted
>> to rule out an issue with perl (our Productions servers are running an
>> older version of FreeBSD and perl).
> perl, v5.8.8 built for x86_64-linux-thread-multi, installed with yum
> OS: CentOS X64,  kernel 2.6.18-128.1.10.el5
>
> freeradius installed from rpm,
> rpm made with freeradius.spec file:
> %define _prefix /usr/local/freeradius
> %configure --prefix=%{_prefix} \
>         --with-system-libtool \
>         --disable-ltdl-install \
>         --with-ltdl-lib=/usr/lib \
>         --with-ltdl-include=/usr/include \
>         --with-large-files --with-udpfromto --with-edir \
>         --with-rlm-krb5-include-dir=/usr/kerberos/include \
>         --with-rlm-krb5-lib-dir=/usr/kerberos/lib \
>         --with-logdir=/var/log/radius

Slackware 12.1, perl 5.8.7.

I am afraid I can't emulate this. test1 and test2 run copies of
example.pl. I have edited them so they are not identical (just in case).
Result:

...
[files] users: Matched entry tnt at line 1
++[files] returns ok
rlm_perl: Added pair User-Name = tnt
rlm_perl: Added pair User-Password = xxxxx
rlm_perl: Added pair NAS-Port = 0
rlm_perl: Added pair NAS-IP-Address = 212.200.152.xx
rlm_perl: Added pair Cleartext-Password = xxxxx
++[test1] returns ok
++[expiration] returns noop
++[logintime] returns noop
++[pap] returns updated
Found Auth-Type = PAP
+- entering group PAP {...}
[pap] login attempt with password "xxxxx"
[pap] Using clear text password "xxxxx"
[pap] User authenticated successfully
++[pap] returns ok
+- entering group post-auth {...}
rlm_perl: Added pair User-Name = tnt
rlm_perl: Added pair User-Password = xxxxx
rlm_perl: Added pair NAS-IP-Address = 212.200.152.xx
rlm_perl: Added pair NAS-Port = 0
rlm_perl: Added pair Cleartext-Password = xxxxx
rlm_perl: Added pair Auth-Type = PAP
++[test2] returns ok
++[exec] returns noop
Sending Access-Accept of id 104 to 127.0.0.1 port 37266
Finished request 0.
Going to the next request
Waking up in 4.9 seconds.
Cleaning up request 0 ID 104 with timestamp +5
Ready to process requests.

Two perl instances running different perl scripts! I would suggest
following instructions in doc/bugs to find out what is causing the
segfault.

PS. My test server is running 2.1.7 pre-release
(http://git.freeradius.org/pre/). Try upgrading to that and see if the
problem goes away.

Ivan Kalik
Kalik Informatika ISP