Freeradius 3.0 hints, rlm_perl

[Thomas Glanzmann]

Hello Arran,

> Oh I have a pretty good idea of what's gone on. Could you git pull and
> rebuild. You'll probably see an abort this time round.

I did a 

git pull
# Wipe the working directory clean
git reset --hard HEAD; git clean -f -x -d
./configure --prefix=/local/freeradius-head; make -j; make install
And yes, I see an ABORT, what is going on?

Ready to process requests.
rad_recv: Access-Request packet from host 127.0.0.1 port 47420, id=99, length=43
        User-Name = 'bla'
        User-Password = 'fasel'
(0) # Executing section authorize from file /local/freeradius-head/etc/raddb/sites-enabled/smsotp
(0)   group authorize {
(0)  - entering group authorize {...}
(0)   update control {
(0)             Auth-Type := perl
(0)   } # update control = notfound
(0) Found Auth-Type = perl
(0) # Executing group from file /local/freeradius-head/etc/raddb/sites-enabled/smsotp
(0)   group authenticate {
(0)  - entering group authenticate {...}
rlm_perl: Added pair User-Name = bla
rlm_perl: Added pair User-Password = fasel
rlm_perl: Added pair Auth-Type = perl
(0)   [perl] = reject
(0) Failed to authenticate the user.
(0) Using Post-Auth-Type Reject
(0) # Executing group from file /local/freeradius-head/etc/raddb/sites-enabled/smsotp
(0)   group REJECT {
(0)  - entering group REJECT {...}
(0) attr_filter.access_reject :         expand: "%{User-Name}" -> 'bla'
(0) attr_filter.access_reject : Matched entry DEFAULT at line 11
(0)   [attr_filter.access_reject] = updated
(0) Finished request 0.
Waking up in 0.3 seconds.
Waking up in 0.6 seconds.
(0) Sending delayed reject
Sending Access-Reject of id 99 from 0.0.0.0 port 1812 to 127.0.0.1 port 47420
Waking up in 4.9 seconds.
rad_recv: Access-Request packet from host 127.0.0.1 port 33829, id=101, length=43
        User-Name = 'bla'
        User-Password = 'fasel'
(1) # Executing section authorize from file /local/freeradius-head/etc/raddb/sites-enabled/smsotp
(1)   group authorize {
(1)  - entering group authorize {...}
(1)   update control {
(1)             Auth-Type := perl
(1)   } # update control = notfound
(1) Found Auth-Type = perl
(1) # Executing group from file /local/freeradius-head/etc/raddb/sites-enabled/smsotp
(1)   group authenticate {
(1)  - entering group authenticate {...}
rlm_perl: Added pair User-Name = bla
rlm_perl: Added pair User-Password = fasel
rlm_perl: Added pair Auth-Type = perl
(1)   [perl] = reject
(1) Failed to authenticate the user.

Program received signal SIGABRT, Aborted.
0xf7fdf430 in __kernel_vsyscall ()
(gdb) bt
#0  0xf7fdf430 in __kernel_vsyscall ()
#1  0xf7b92941 in *__GI_raise (sig=6) at ../nptl/sysdeps/unix/sysv/linux/raise.c:64
#2  0xf7b95d72 in *__GI_abort () at abort.c:92
#3  0xf7d47c83 in ?? () from /usr/lib/i386-linux-gnu/libtalloc.so.2
#4  0xf7d498cc in talloc_get_name () from /usr/lib/i386-linux-gnu/libtalloc.so.2
#5  0xf7d4bbde in _talloc_get_type_abort () from /usr/lib/i386-linux-gnu/libtalloc.so.2
#6  0x08052f97 in rad_authenticate (request=0x863eeb8) at src/main/auth.c:541
#7  0x080741f3 in request_running (request=0x863eeb8, action=1) at src/main/process.c:1185
#8  0x08073545 in request_queue_or_run (request=0x863eeb8, process=0x8074124 <request_running>) at src/main/process.c:828
#9  0x08074856 in request_receive (listener=0x8480a98, packet=0x863edb8, client=0x81e4828, fun=0x8052a0b <rad_authenticate>) at src/main/process.c:1377
#10 0x0805930c in auth_socket_recv (listener=0x8480a98) at src/main/listen.c:1449
#11 0x08079b29 in event_socket_handler (xel=0x846f4d8, fd=7, ctx=0x8480a98) at src/main/process.c:3483
#12 0xf7d7e0cd in fr_event_loop (el=0x846f4d8) at src/lib/event.c:414
#13 0x0807adb1 in radius_event_process () at src/main/process.c:4272
#14 0x0806a3a4 in main (argc=2, argv=0xffffcc14) at src/main/radiusd.c:475
(gdb) quit

Cheers,
        Thomas