diff options
Diffstat (limited to 'FS/FS/svc_phone.pm')
| -rw-r--r-- | FS/FS/svc_phone.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/FS/FS/svc_phone.pm b/FS/FS/svc_phone.pm index 00ccc1958..90ba24945 100644 --- a/FS/FS/svc_phone.pm +++ b/FS/FS/svc_phone.pm @@ -175,6 +175,18 @@ sub check { $self->SUPER::check; } +=item check_pin + +Checks the supplied PIN against the PIN in the database. Returns true for a +sucessful authentication, false if no match. + +=cut + +sub check_pin { + my($self, $check_pin) = @_; + $check_pin eq $self->pin; +} + =back =head1 BUGS |