From: Herwin Weststrate Date: Tue, 12 Jan 2016 16:58:12 +0000 (+0100) Subject: Fixed debugging constants in rlm_perl X-Git-Tag: release_3_0_11~28^2 X-Git-Url: http://www.project-moonshot.org/gitweb/?a=commitdiff_plain;h=f139365be7c8039537ec93c59686347780385833;p=freeradius.git Fixed debugging constants in rlm_perl This is just a workaround, the correct fix would be to push these constants to the perl script from freeradius, instead of duplicating data. --- diff --git a/raddb/mods-config/perl/example.pl b/raddb/mods-config/perl/example.pl index cec4c02..1216e9f 100644 --- a/raddb/mods-config/perl/example.pl +++ b/raddb/mods-config/perl/example.pl @@ -75,13 +75,20 @@ use constant { RLM_MODULE_NUMCODES => 9 # How many return codes there are }; -# Same as src/include/radiusd.h -use constant L_DBG=> 1; -use constant L_AUTH=> 2; -use constant L_INFO=> 3; -use constant L_ERR=> 4; -use constant L_PROXY=> 5; -use constant L_ACCT=> 6; +# Same as src/include/log.h +use constant { + L_AUTH => 2, # Authentication message + L_INFO => 3, # Informational message + L_ERR => 4, # Error message + L_WARN => 5, # Warning + L_PROXY => 6, # Proxy messages + L_ACCT => 7, # Accounting messages + L_DBG => 16, # Only displayed when debugging is enabled + L_DBG_WARN => 17, # Warning only displayed when debugging is enabled + L_DBG_ERR => 18, # Error only displayed when debugging is enabled + L_DBG_WARN_REQ => 19, # Less severe warning only displayed when debugging is enabled + L_DBG_ERR_REQ => 20, # Less severe error only displayed when debugging is enabled +}; # Global variables can persist across different calls to the module. #