diff options
Diffstat (limited to 'bin/svc_acct_sm.import')
| -rwxr-xr-x | bin/svc_acct_sm.import | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/bin/svc_acct_sm.import b/bin/svc_acct_sm.import index f94bda637..647e5c2ee 100755 --- a/bin/svc_acct_sm.import +++ b/bin/svc_acct_sm.import @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: svc_acct_sm.import,v 1.2 1998-12-10 07:23:18 ivan Exp $ +# $Id: svc_acct_sm.import,v 1.3 1999-03-24 00:51:55 ivan Exp $ # # ivan@sisd.com 98-mar-9 # @@ -16,7 +16,10 @@ # ivan@sisd.com 98-jul-13 # # $Log: svc_acct_sm.import,v $ -# Revision 1.2 1998-12-10 07:23:18 ivan +# Revision 1.3 1999-03-24 00:51:55 ivan +# die if no relevant services... cvspain +# +# Revision 1.2 1998/12/10 07:23:18 ivan # use FS::Conf, need user (for datasrc) # @@ -47,6 +50,9 @@ my(%mta) = ( %m_part_svc = map { $_->svcpart, $_ } qsearch('part_svc',{'svcdb'=>'svc_acct_sm'}); +die "No services with svcdb svc_domain!\n" unless %d_part_svc; +die "No services with svcdb svc_svc_acct_sm!\n" unless %m_part_svc; + print "\n\n", ( join "\n", map "$_: ".$d_part_svc{$_}->svc, sort keys %d_part_svc ), "\n\nEnter part number for domains: "; |