# HG changeset patch
# User Matthias Förste foerste@schlittermann.de
# Date 1322226270 -3600
# Node ID 35441e1ae083acba57d9be8220785b6c8de1b863
# Parent  231984cb81a74470ff47de389a3a81848c713a98
"ma group" and "ma shared" not supported for now

diff -r 231984cb81a7 -r 35441e1ae083 group.pm
--- 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;
 
diff -r 231984cb81a7 -r 35441e1ae083 ma
--- 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();
diff -r 231984cb81a7 -r 35441e1ae083 shared.pm
--- 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;