martin: server/perl-kolab/Kolab-Cyrus Cyrus.pm,1.7,1.8

cvs at intevation.de cvs at intevation.de
Sun Mar 26 23:55:32 CEST 2006


Author: martin

Update of /kolabrepository/server/perl-kolab/Kolab-Cyrus
In directory doto:/tmp/cvs-serv32423

Modified Files:
	Cyrus.pm 
Log Message:
Martin Konold: Integrated patch from Tobias Koenig


Index: Cyrus.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Cyrus/Cyrus.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- Cyrus.pm	8 Jun 2005 12:44:35 -0000	1.7
+++ Cyrus.pm	26 Mar 2006 21:55:30 -0000	1.8
@@ -3,7 +3,7 @@
 ##
 ##  Copyright (c) 2003  Code Fusion cc
 ##
-##    Writen by Stuart Bing� <s.binge at codefusion.co.za>
+##    Written by Stuart Bing� <s.binge at codefusion.co.za>
 ##
 ##  This  program is free  software; you can redistribute  it and/or
 ##  modify it  under the terms of the GNU  General Public License as
@@ -181,6 +181,18 @@
         }
     }
     Kolab::log('Y', "Finished modifying ACL of $cyruid", KOLAB_DEBUG);
+}
+
+sub setFolderType {
+  my $cyrus = shift;
+  my $uid = shift;
+  my $sf = shift || 0;
+  my $foldertype = shift || 'mail';
+  my $cyruid = &createUid($uid, $sf);
+    
+  if (!$cyrus->mboxconfig($cyruid, '/vendor/kolab/folder-type', $foldertype)) {
+    Kolab::log('Y', "Unable to set the folder type for mailbox `$cyruid' to `$foldertype', Error = `" . $cyrus->error . "'", KOLAB_WARN);
+  }
 }
 
 1;





More information about the commits mailing list