From c0552e0f27038eb05002e224fa3c88afeadbc39f Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 16 Dec 1998 05:29:45 +0000 Subject: [PATCH] adminsuidsetup now need user --- eg/TEMPLATE_cust_main.import | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/eg/TEMPLATE_cust_main.import b/eg/TEMPLATE_cust_main.import index 39a5785db..4ac7efdc7 100755 --- a/eg/TEMPLATE_cust_main.import +++ b/eg/TEMPLATE_cust_main.import @@ -2,7 +2,14 @@ # Template for importing legacy customer data # +# $Id: TEMPLATE_cust_main.import,v 1.2 1998-12-16 05:29:45 ivan Exp $ +# # ivan@sisd.com 98-aug-17 - 20 +# +# $Log: TEMPLATE_cust_main.import,v $ +# Revision 1.2 1998-12-16 05:29:45 ivan +# adminsuidsetup now need user +# use strict; use FS::UID qw(adminsuidsetup datasrc); @@ -11,7 +18,8 @@ use FS::cust_main; use FS::cust_pkg; use Date::Parse; -adminsuidsetup; +my $user = shift or die &usage; +adminsuidsetup $user; # use these for the imported cust_main records (unless you have these in legacy # data) @@ -187,3 +195,8 @@ while () { warn "\n$link of $line lines linked\n"; +# --- + +sub usage { + die "Usage:\n\n cust_main.import user\n"; +} -- 2.11.0