[freeside-commits] freeside/FS/FS Conf.pm, 1.249, 1.250 svc_phone.pm, 1.10, 1.11

[Ivan,,,]

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

Modified Files:
	Conf.pm svc_phone.pm 
Log Message:
add phone_sqlradius export

Index: svc_phone.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_phone.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- svc_phone.pm	3 Aug 2008 02:15:07 -0000	1.10
+++ svc_phone.pm	24 Oct 2008 01:19:46 -0000	1.11
@@ -2,6 +2,7 @@
 
 use strict;
 use vars qw( @ISA @pw_set );
+use FS::Conf;
 #use FS::Record qw( qsearch qsearchs );
 use FS::svc_Common;
 
@@ -217,6 +218,35 @@
   $check_pin eq $self->pin;
 }
 
+=item radius_reply
+
+=cut
+
+sub radius_reply {
+  my $self = shift;
+  #XXX Session-Timeout!  holy shit, need rlm_perl to ask for this in realtime
+  {};
+}
+
+=item radius_check
+
+=cut
+
+sub radius_check {
+  my $self = shift;
+  my %check = ();
+
+  my $conf = new FS::Conf;
+
+  $check{'User-Password'} = $conf->config('svc_phone-radius-default_password');
+
+  %check;
+}
+
+sub radius_groups {
+  ();
+}
+
 =back
 
 =head1 BUGS

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.249
retrieving revision 1.250
diff -u -d -r1.249 -r1.250
--- Conf.pm	16 Oct 2008 05:29:00 -0000	1.249
+++ Conf.pm	24 Oct 2008 01:19:46 -0000	1.250
@@ -2491,6 +2491,13 @@
     'type'        => 'text',
   },
 
+  {
+    'key'         => 'svc_phone-radius-default_password',
+    'section'     => '',
+    'description' => 'Default password when exporting svc_phone records to RADIUS',
+    'type'        => 'text',
+  },
+
 );
 
 1;