Freeradius COA trigger

[Johan Meiring]

On 2010/12/13 05:23 AM, Andrew Paternoster wrote:
> Hi Johan
>
> Do you mind sharing a copy of your COA triggers?
>


In Perl (rlm_perl) - Where I make my decision to disconnect.
-------------------
if ($balance <= 0)
{ $RAD_REPLY{'Tmp-String-0'} = 'DISCONNECT'; };


In my virtual server
--------------------
accounting {
   perl
   if ("%{reply:Tmp-String-0}" == "DISCONNECT") {
     update disconnect {
       User-Name = "%{User-Name}"
     }
   }
}




-- 


Johan Meiring
Cape PC Services CC
Tel: (021) 883-8271
Fax: (021) 886-7782