[freeside-commits] freeside/fs_selfservice/FS-SelfService/SelfService FreeRadiusVoip.pm, NONE, 1.1

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/fs_selfservice/FS-SelfService/SelfService
In directory wavetail.420.am:/tmp/cvs-serv8127/SelfService

Added Files:
	FreeRadiusVoip.pm 
Log Message:
rlm_perl hook for prepaid voip radius, RT#4100

--- NEW FILE: FreeRadiusVoip.pm ---
# Add this to the modules section of radiusd.conf
#  #path to this module
#  module=/usr/local/share/perl/5.8.8/FS/SelfService/FreeRadiusVoip.pm
#  func_autheenticate = authenticate
#
#In the Authorize section 
#Make sure that you have 'files' uncommented. Then add a line containing 'perl'
# after it. 
#
#In the Authentication section add 
# Auth-Type Perl { 
#   perl 
# } 
#
# #N/A# Add a line containing 'perl' to the Accounting section. 
# 
# In the users file comment the 'DEFAULT Auth-Type = System' lines 
# and then add 
#  DEFAULT Auth-Type = Perl 
#  Fall-Through = 1 

BEGIN { $FS::SelfService::skip_uid_check = 1; } 

use strict;
use vars qw(%RAD_REQUEST %RAD_REPLY %RAD_CHECK);
#use Data::Dumper;
use FS::SelfService qw(call_time);

use constant RLM_MODULE_REJECT=>   0; #immediately reject the request
use constant RLM_MODULE_FAIL=>     1; #module failed, don't reply
use constant RLM_MODULE_OK=>       2; #the module is OK, continue
use constant RLM_MODULE_HANDLED=>  3; #the module handled the request, so stop
use constant RLM_MODULE_INVALID=>  4; #the module considers the request invalid
use constant RLM_MODULE_USERLOCK=> 5; #reject the request (user is locked out)
use constant RLM_MODULE_NOTFOUND=> 6; #user not found
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 authenticate {

  #my $src = $RAD_REQUEST{'User-Name'};

#  my $response = call_time( 'src' => $RAD_REQUEST{'Calling-Station-Id'},
#                            'dst' => $RAD_REQUEST{'Called-Station-Id'},  );
#
#  if $response{$

  $RAD_REPLY{'Session-Timeout'} = 420;
  return RLM_MODULE_UPDATED;

}

sub log_request_attributes {
       # This shouldn't be done in production environments!
       # This is only meant for debugging!
       for (keys %RAD_REQUEST) {
               &radiusd::radlog(1, "RAD_REQUEST: $_ = $RAD_REQUEST{$_}");
       }
}