diff options
| author | Mark Wells <mark@freeside.biz> | 2012-03-20 11:32:58 -0700 |
|---|---|---|
| committer | Mark Wells <mark@freeside.biz> | 2012-03-20 11:32:58 -0700 |
| commit | a655e41afacdc0bbfbde4c8ee07e8656ed2b6b57 (patch) | |
| tree | 96949b8c479722023ed4d91c0ceeb87bdbde6247 | |
| parent | e7d79a187ead74cb89c3b6203ffff735e1ee4df8 (diff) | |
warn during upgrade if addr_block records are missing, #17040
| -rwxr-xr-x | FS/FS/svc_broadband.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/svc_broadband.pm b/FS/FS/svc_broadband.pm index 668a3cf64..3a936a972 100755 --- a/FS/FS/svc_broadband.pm +++ b/FS/FS/svc_broadband.pm @@ -639,6 +639,11 @@ sub _upgrade_data { routernum => '' })) { my $addr_block = $self->addr_block; + if ( !$addr_block ) { + # super paranoid mode + warn "WARNING: svcnum ".$self->svcnum." is assigned to addr_block ".$self->blocknum.", which does not exist; skipped.\n"; + next; + } my $ip_addr = $self->ip_addr; my $routernum = $addr_block->routernum; if ( $routernum ) { |