Patch from bug #267 Enhancements for rlm_perl

diff --git a/raddb/experimental.conf b/raddb/experimental.conf
index 2aa79c0..2ab36c1 100644 (file)
--- a/raddb/experimental.conf
+++ b/raddb/experimental.conf
@@ -193,19 +193,16 @@
                #  'rlm_exec' module, but it is persistent, and therefore
                #  faster.
                #
-                module = /path/to/your/perl_program
+               module = /path/to/your/perl_module.pm
 
                #
                #  The following hashes are given to the module and
                 #  filled with value-pairs (Attribute names and values)
                #
-               #  %RAD_REPLY           Attributes to go into the reply
-               #  %RAD_REQUEST         Attributes from the request
-               #  %RAD_CHECK           Check items
-               #
-               #  Only the %RAD_REPLY hash can be modified.
-               #  All of the other hashes are read only.
-               #
+               #  %RAD_CHECK           Read-only       Check items
+               #  %RAD_REQUEST         Read-only       Attributes from the request
+               #  %RAD_REPLY           Read-write      Attributes for the reply
+               # 
                #  The return codes from functions in the perl_script
                #  are passed directly back to the server.  These
                #  codes are defined in doc/configurable_failover,
@@ -213,12 +210,43 @@
                #  and are pre-defined in the 'example.pl' program
                #  which is included.
                #               
-                func_accounting = accounting
-                func_authenticate = authenticate
-               func_authorize = authorize
-                func_preacct = preacct
-                func_checksimul = checksimul
-                func_xlat = xlat
+
+               #
+               #  List of functions in the module to call.
+               #  Comment out and change if you want to use other
+               #  function names than the defaults.
+               #
+               #func_authenticate = authenticate
+               #func_authorize = authorize
+               #func_preacct = preacct
+               #func_accounting = accounting
+               #func_checksimul = checksimul
+               #func_pre_proxy = pre_proxy
+               #func_post_proxy = post_proxy
+               #func_post_auth = post_auth
+               #func_xlat = xlat
+               #func_detach = detach
+
+               #
+               #  Comment out the following line if you whish
+               #  to use seperate functions for Start and Stop
+               #  accounting packets. In that case, the 
+               #  func_accounting function is not called.
+               #
+               #func_start_accounting = accounting_start
+               #func_stop_accounting = accounting_stop
+               
+               #  Comment out the following lines if your perl is 
+               #  compiled with ithreads support.
+               #  the settings bellow are the default one.
+               #
+               #max_clones = 32
+               #start_clones = 32
+               #min_spare_clones = 0
+               #max_spare_clones = 32
+               #cleanup_delay = 5
+               #max_request_per_clone = 0
+
        }
 
        #