From: ivan <ivan>
Date: Wed, 24 Mar 1999 00:51:55 +0000 (+0000)
Subject: die if no relevant services... cvspain
X-Git-Tag: freeside_1_2_0~49
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=8bc379c21dd64cc9ce29996338917b12529ea8a3

die if no relevant services... cvspain
---

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: ";