diff options
| author | ivan <ivan> | 2000-12-03 15:14:00 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-12-03 15:14:00 +0000 |
| commit | 3a95cc316da367ffd248ba29ac594f3efbc9db61 (patch) | |
| tree | 41dc8b729cb8098713d643d19cdb58425e27af89 /bin | |
| parent | 65dea21c4088a0dbf3e8863a6dadc39aed67d4db (diff) | |
bugfixes from Jeff Finucane <jeff@cmh.net>, thanks!
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/svc_acct_sm.import | 9 |
1 files changed, 6 insertions, 3 deletions
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 <jeff@cmh.net>, 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 (<VIRTUSERTABLE>) { 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); |