: Allrighty.... The module is called from FreeRadius itself, so if : there really is nothing wrong with my code (which I suspect there : isn't), then I guess this must be moved to the FR list. But let's : rather make sure it's not the code first.
To set up a test case we can assume that the while loop has started and we are in the 'else' block which affects $RAD_REPLY{'Recv-Limit'} and $RAD_REPLY{'Xmit-Limit'}.
When I tested this, I found this part okay. Since %RAD_REPLY is not accessed in this script, I don't know how you determined there was failure.
That's correct yes. FreeRadius has a built in perl module that process the hash received from the script (that I am trying to write). I'm pretty confident this is a possible bug in the rlm_perl module of freeradius. While FR (FreeRadius) runs in debug mode, it outputs the values that is inside the hash. All the values are printed back to me from FR, with the exception of Recv-Limit and Xmit-Limit *IF* they are not assigned from the variable substraction.
I'll go and moan there rather ;) It's definately a problem in the module somewhere... As you said (and I concur), there really isn't anything in my perl code that will make this not work.
BTW, we don't normally quote numbers in perl The following line, for example, could be written better.
if (!$SQL->numrows == "1") {
if ( $SQL->numrows != 1 ) {
Thanks :) I must be getting sleepy!!! I don't normally do it either.
Cheers, Chris.
-- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
