diff options
author | ivan <ivan> | 2002-02-12 18:37:43 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-02-12 18:37:43 +0000 |
commit | f3a66fc4b25eb9fcc74a9fea56c48a61a1eea012 (patch) | |
tree | 640fb89c81736a87f1ac07c34fef0807ac99ab2c /bin/svc_acct.export | |
parent | 04ccbc0a0d5a09a8522427bcb278fa1b96826d74 (diff) |
fixes:
In string, @domain now must be written as \@domain at ./svc_acct.export
line 292, near "^append @domain"
Global symbol "@domain" requires explicit package name at
./svc_acct.export line 292.
Execution of ./svc_acct.export aborted due to compilation errors.
Diffstat (limited to 'bin/svc_acct.export')
-rwxr-xr-x | bin/svc_acct.export | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/svc_acct.export b/bin/svc_acct.export index e28de4a..3ea444d 100755 --- a/bin/svc_acct.export +++ b/bin/svc_acct.export @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: svc_acct.export,v 1.29 2002-02-12 02:11:07 ivan Exp $ +# $Id: svc_acct.export,v 1.30 2002-02-12 18:37:43 ivan Exp $ # # Create and export password, radius and vpopmail password files: # passwd, passwd.adjunct, shadow, acp_passwd, acp_userinfo, acp_dialup @@ -289,7 +289,7 @@ foreach $svc_domain (sort {$a->domain cmp $b->domain} @svc_domain) { $username=$svc_acct->username . $svc_domain->domain; } elsif ($userpolicy =~ /^append domain$/) { $username=$svc_acct->username . $svc_domain->domain; - } elsif ($userpolicy =~ /^append @domain$/) { + } elsif ($userpolicy =~ /^append \@domain$/) { $username=$svc_acct->username . '@'. $svc_domain->domain; } else { die "Unknown policy in username_policy\n"; |