rlm_perl hook for prepaid voip radius, RT#4100

diff --git a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
index 47a2bfa..e494f27 100644 (file)
--- a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
+++ b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
@@ -44,6 +44,10 @@ use constant RLM_MODULE_NOOP=>     7; #module succeeded without doing anything
 use constant RLM_MODULE_UPDATED=>  8; #OK (pairs modified)
 use constant RLM_MODULE_NUMCODES=> 9; #How many return codes there are
 
+sub authorize {
+  return $LM_MODULE_OK;
+}
+
 sub authenticate {
 
   #my $src = $RAD_REQUEST{'User-Name'};