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