martin: server/perl-kolab/Kolab-Cyrus Cyrus.pm,1.4,1.5

[cvs at intevation.de]

Author: martin

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

Modified Files:
	Cyrus.pm 
Log Message:
Martin K.: Add support for posting via SMTP to shared folders. Shared folders now use the prefix 'shared' instead of 'user'.


Index: Cyrus.pm
===================================================================
RCS file: /kolabrepository/server/perl-kolab/Kolab-Cyrus/Cyrus.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- Cyrus.pm	5 Sep 2004 22:11:06 -0000	1.4
+++ Cyrus.pm	5 Jan 2005 15:45:43 -0000	1.5
@@ -76,7 +76,14 @@
 {
     my $user = shift;
     my $sf = shift || 0;
-    return 'user' . ($sf ? '.' : '/') . $user;
+    my $seperator = '/';
+    my $uidprefix = 'user';
+    if ($sf) { 
+      $seperator = '.'; 
+      $uidprefix = 'shared';
+    } 
+    return $uidprefix . $seperator . $user;
+#    return 'user' . ($sf ? '.' : '/') . $user;
 }
 
 sub createMailbox