use strict;
use vars qw( @ISA @pw_set );
+use FS::Conf;
#use FS::Record qw( qsearch qsearchs );
use FS::svc_Common;
Voicemail PIN
+=item phone_name
+
=back
=head1 METHODS
disable_select => 1,
},
'sip_password' => 'SIP password',
+ 'name' => 'Name',
},
};
}
sub label {
my $self = shift;
- $self->phonenum; #XXX format it better
+ my $phonenum = $self->phonenum; #XXX format it better
+ my $label = $phonenum;
+ $label .= ' ('.$self->phone_name.')' if $self->phone_name;
+ $label;
}
=item insert
|| $self->ut_number('phonenum')
|| $self->ut_anything('sip_password')
|| $self->ut_numbern('pin')
+ || $self->ut_textn('phone_name')
;
return $error if $error;
$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