--- a/group.pm	Fri Nov 25 13:22:20 2011 +0100
+++ b/group.pm	Fri Nov 25 14:04:30 2011 +0100
@@ -8,7 +8,7 @@
 use Net::LDAP;
 use Net::LDAP::Constant qw(LDAP_ALREADY_EXISTS LDAP_NO_SUCH_OBJECT LDAP_TYPE_OR_VALUE_EXISTS);
 use Net::LDAP::Entry;
-use Cyrus::IMAP::Admin;
+#use Cyrus::IMAP::Admin;
 use Text::Wrap;
 use password;
 

--- a/ma	Fri Nov 25 13:22:20 2011 +0100
+++ b/ma	Fri Nov 25 14:04:30 2011 +0100
@@ -35,10 +35,14 @@
 
        * shared mailbox options *
 
+       [ z.Z. nicht unterstützt ]
+
        * group options *
        --members=s	List of Members	[!$Cf->members!]
        --description=s  Descripton      [!$Cf->description!]
 
+       [ z.Z. nicht unterstützt ]
+
 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}!].
 
@@ -109,10 +113,12 @@
 	alias::import($Cf);
 	alias::run();
     } elsif ($_[0] eq 'shared') {
+        die "Command '$_[0]' is currently not supported\n";
 	require shared;
 	shared::import($Cf);
 	shared::run();
     } elsif ($_[0] eq 'group') {
+        die "Command '$_[0]' is currently not supported\n";
 	require group;
 	group::import($Cf);
 	group::run();

--- a/shared.pm	Fri Nov 25 13:22:20 2011 +0100
+++ b/shared.pm	Fri Nov 25 14:04:30 2011 +0100
@@ -8,7 +8,7 @@
 use Net::LDAP;
 use Net::LDAP::Constant qw(LDAP_ALREADY_EXISTS LDAP_NO_SUCH_OBJECT LDAP_TYPE_OR_VALUE_EXISTS);
 use Net::LDAP::Entry;
-use Cyrus::IMAP::Admin;
+#use Cyrus::IMAP::Admin;
 use Text::Wrap;
 use password;