diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-06-01 11:31:43 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-06-01 11:31:43 -0700 |
commit | bcf01bf689f81ab879c9241a902535f381c86095 (patch) | |
tree | 604650914c3207bbee66e01a37cd97ea6a9caa02 | |
parent | 38f947640357484d1f38c2cb8ffe1924446ede73 (diff) |
svc_alarm.cs_receiver is <= 9 digits so we don't perl barf trying to store a bigint, RT#35176
-rw-r--r-- | FS/FS/svc_alarm.pm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/FS/FS/svc_alarm.pm b/FS/FS/svc_alarm.pm index 0624f18a8..2332f11b6 100644 --- a/FS/FS/svc_alarm.pm +++ b/FS/FS/svc_alarm.pm @@ -214,6 +214,10 @@ sub check { ; return $error if $error; + #really just an signed int, but to discourage storing other data (e.g. phone) + return 'CS Receiver must be 9 digits or less' + if $self->cs_receiver =~ /\d{10}/; + $self->SUPER::check; } |