From edeb6e91840e4110ce41cadcb8d26cfe883b781a Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 24 Oct 2008 19:57:01 +0000
Subject: [PATCH] rlm_perl hook for prepaid voip radius, RT#4100

---
 fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm b/fs_selfservice/FS-SelfService/SelfService/FreeRadiusVoip.pm
index 47a2bfa78..e494f2712 100644
--- 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'};
-- 
2.11.0