X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fsvc_acct_sm.import;h=0714af3f190e338aa15f31adca8afb87db34ae3a;hp=349c4f26ce34c491991ffb6a023f052afa09ebd0;hb=3a95cc316da367ffd248ba29ac594f3efbc9db61;hpb=65dea21c4088a0dbf3e8863a6dadc39aed67d4db diff --git a/bin/svc_acct_sm.import b/bin/svc_acct_sm.import index 349c4f26c..0714af3f1 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.7 2000-06-29 10:51:52 ivan Exp $ +# $Id: svc_acct_sm.import,v 1.8 2000-12-03 15:14:00 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.7 2000-06-29 10:51:52 ivan +# Revision 1.8 2000-12-03 15:14:00 ivan +# bugfixes from Jeff Finucane , thanks! +# +# Revision 1.7 2000/06/29 10:51:52 ivan # oops, silly mistake # # Revision 1.6 2000/06/29 10:48:25 ivan @@ -252,7 +255,7 @@ END while () { next if /^#/; #comments? next if /^\s*$/; #blank lines - /^([\w\-\.]+)?\@([\w\-\.]+)\t([\w\-\.]+)$/ + /^([\w\-\.]+)?\@([\w\-\.]+)\t+([\w\-\.]+)$/ #or do { warn "Strange virtusertable line: $_"; next; }; or die "Strange virtusertable line: $_"; my($domuser,$domain,$username)=($1,$2,$3);