equal
deleted
inserted
replaced
22 --address=s Primary Mail [!$Cf->address!] |
22 --address=s Primary Mail [!$Cf->address!] |
23 --other:s Alternative Mail addresses |
23 --other:s Alternative Mail addresses |
24 (comma sep.) [!$Cf->other!] |
24 (comma sep.) [!$Cf->other!] |
25 --group:s Mail Group(s) this account is member of |
25 --group:s Mail Group(s) this account is member of |
26 (comma sep.) [!$Cf->group!] |
26 (comma sep.) [!$Cf->group!] |
|
27 --forward:s Forwarding [!$Cf->forward!] |
|
28 |
27 --fullname=s Real Name [!$Cf->fullname!] |
29 --fullname=s Real Name [!$Cf->fullname!] |
28 --password=s Passwort [!$Cf->password!] |
30 --password=s Passwort [!$Cf->password!] |
29 |
31 |
30 * alias options * |
32 * alias options * |
31 --members=s List of Members [!$Cf->members!] |
33 --members=s List of Members [!$Cf->members!] |
50 |
52 |
51 use IO::File; |
53 use IO::File; |
52 use Cyrus::IMAP::Admin; |
54 use Cyrus::IMAP::Admin; |
53 use AppConfig qw(:expand); |
55 use AppConfig qw(:expand); |
54 use File::Basename; |
56 use File::Basename; |
|
57 use FindBin; |
55 use Carp; |
58 use Carp; |
56 |
59 |
57 use lib qw(. /usr/local/lib/ma); |
60 use lib ("$FindBin::RealBin/..", "$FindBin::RealBin/../lib/ma"); |
58 use ldapBase; |
61 use ldapBase; |
59 |
62 |
60 use constant ME => basename $0; |
63 use constant ME => basename $0; |
61 use constant CONFIG => ( |
64 use constant CONFIG => ( |
62 { CASE => 1 }, |
65 { CASE => 1 }, |
89 password => { ARGS => "=s" }, |
92 password => { ARGS => "=s" }, |
90 # internal => { ARGS => "!", DEFAULT => ":", ALIAS => "restricted" }, |
93 # internal => { ARGS => "!", DEFAULT => ":", ALIAS => "restricted" }, |
91 |
94 |
92 other => { ARGS => ":s" }, |
95 other => { ARGS => ":s" }, |
93 group => { ARGS => ":s" }, |
96 group => { ARGS => ":s" }, |
|
97 forward => { ARGS => ":s" }, |
94 fullname => { ARGS => "=s", ALIAS => "realname" }, |
98 fullname => { ARGS => "=s", ALIAS => "realname" }, |
95 address => { ARGS => "=s", ALIAS => "primary" }, |
99 address => { ARGS => "=s", ALIAS => "primary" }, |
96 |
100 |
97 # * alias * group * |
101 # * alias * group * |
98 members => { ARGS => ":s" }, |
102 members => { ARGS => ":s" }, |