--- a/ma	Wed Dec 07 03:34:59 2005 +0000
+++ b/ma	Wed Dec 07 05:14:27 2005 +0000
@@ -5,7 +5,7 @@
 # $Id$
 #
 use constant USAGE => <<'#';
-Usage: !ME! account|alias --add|--list|--modify|--delete [options] [user|alias]
+Usage: !ME! account|alias --add|--list|--modify|--delete [options] [user|alias|shared mbox]
        * common options *
        --ldap_server=s	LDAP-Server	[!$Cf->ldap_server!]
        --ldap_base=s	LDAP-Basis	[!$Cf->ldap_base!]
@@ -30,6 +30,10 @@
        * alias options *
        --members=s	List of Members	[!$Cf->members!]
 
+       * shared mailbox options *
+       # --access=s	List of users having access 
+					[!$Cf->access!]
+
 Passwords for LDAP and IMAP can be read from environment LDAP_PASS resp. IMAP_PASS.
 Options can be read from config file named in $MA_CONF [!$ENV{MA_CONF}!].
 
@@ -89,6 +93,9 @@
     # * alias *
     members =>	    { ARGS => ":s" },
 
+    # * shared *
+    #access =>	    { ARGS => ":s" },
+
     # * ldap intern *
     ldap_ou_aliases =>	    { ARGS => "=s", DEFAULT => "ou=MailAliases" },
     ldap_ou_accounts =>	    { ARGS => "=s", DEFAULT => "ou=MailAccounts" },
@@ -133,7 +140,7 @@
 
     print help() and exit 0 if $Cf->help;
 
-    @_ = grep { $_ =~ /^\Q$Module\E/ } qw/account alias/;
+    @_ = grep { $_ =~ /^\Q$Module\E/ } qw/account alias shared/;
     die "Need module.  Try --help\n" if @_ == 0;
     die "Module ambigous. (@_)\n" if @_ > 1;
 
@@ -145,6 +152,10 @@
 	require alias;
 	alias::import($Cf);
 	alias::run();
+    } elsif ($_[0] eq 'shared') {
+	require shared;
+	shared::import($Cf);
+	shared::run();
     } else {
 	die "Shit";
     }