diff options
| -rw-r--r-- | FS/FS/svc_phone.pm | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/FS/FS/svc_phone.pm b/FS/FS/svc_phone.pm index 04d5960b7..f7a44892f 100644 --- a/FS/FS/svc_phone.pm +++ b/FS/FS/svc_phone.pm @@ -1,12 +1,15 @@ package FS::svc_phone; use strict; -use vars qw( @ISA ); +use vars qw( @ISA @pw_set ); #use FS::Record qw( qsearch qsearchs ); use FS::svc_Common; @ISA = qw( FS::svc_Common ); +#avoid l 1 and o O 0 +@pw_set = ( 'a'..'k', 'm','n', 'p-z', 'A'..'N', 'P'..'Z' , '2'..'9' ); + =head1 NAME FS::svc_phone - Object methods for svc_phone records @@ -184,6 +187,14 @@ sub check { $self->countrycode(1) unless $self->countrycode; + unless ( length($self->sip_password) ) { + + $self->sip_password( + join('', map $pw_set[ int(rand $#pw_set) ], (0..16) ) + ); + + } + $self->SUPER::check; } |