I will use only &radiusd::radlog(L_INFO, ""); with text "Error: ", "Info: ", "Debug: " in the text... And with configurable variable debug_level in the program. if (debug_level == 3) - print everything, if == 2, err and info, if ==1, then only err. I just wonder, what is the point of all of this &radiusd::radlog(L_DBG, ""); &radiusd::radlog(L_AUTH, ""); &radiusd::radlog(L_INFO, ""); &radiusd::radlog(L_ERR, ""); &radiusd::radlog(L_PROXY, ""); &radiusd::radlog(L_ACCT, ""); ? It doesn't work, when log configured as syslog. If destination configured as "files", then log looks like: Tue Jan 12 17:42:22 2016 : rlm_perl: authenticate - L_DBG Tue Jan 12 17:42:22 2016 : Auth: rlm_perl: authenticate - L_AUTH Tue Jan 12 17:42:22 2016 : Info: rlm_perl: authenticate - L_INFO Tue Jan 12 17:42:22 2016 : Error: rlm_perl: authenticate - L_ERR Tue Jan 12 17:42:22 2016 : Warning: rlm_perl: authenticate - L_PROXY (???) Tue Jan 12 17:42:22 2016 : Proxy: rlm_perl: authenticate - L_ACCT (???) It seems, that something politically incorrect here... Цитирование A.L.M.Buxey@lboro.ac.uk:
Hi,
if you want a custom log file tha only contains things you want then either
1) use linelog module
2) write your own logfile from your PERL code
alan