summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com>2011-06-15 18:12:50 (GMT)
committerJeroen van Meeuwen (Kolab Systems) <vanmeeuwen@kolabsys.com>2011-06-15 18:12:50 (GMT)
commitbaa2d91f5ba5deae5d2c5d1c26471166f187490d (patch)
tree5b94a18863ec8c41a4a255a69a00b91bf4ad63fe
parent381f418a1f6cd0ac1aae4da79f1ca4e33dad0a04 (diff)
downloadperl-Kolab-baa2d91f5ba5deae5d2c5d1c26471166f187490d.tar.gz
Insert return codes on Kolab::cyrusMurderRenameMailbox()
-rw-r--r--lib/Kolab.pm2
-rw-r--r--lib/Kolab/Cyrus.pm3
2 files changed, 4 insertions, 1 deletions
diff --git a/lib/Kolab.pm b/lib/Kolab.pm
index 91ae68c..710c29f 100644
--- a/lib/Kolab.pm
+++ b/lib/Kolab.pm
@@ -727,7 +727,7 @@ Example usage:
# folder a boolean.
my $sharedFolder = ( $mailboxType eq 'user' ? 0 : 1 );
- Kolab::Cyrus::renameMailbox(
+ return Kolab::Cyrus::renameMailbox(
$cyrus,
$mailboxName,
$newMailboxName,
diff --git a/lib/Kolab/Cyrus.pm b/lib/Kolab/Cyrus.pm
index 1cabab1..7ed630a 100644
--- a/lib/Kolab/Cyrus.pm
+++ b/lib/Kolab/Cyrus.pm
@@ -219,7 +219,10 @@ sub renameMailbox
if (!$cyrus->renamemailbox($mailboxPath, $newMailboxPath)) {
Kolab::log('Y', "Unable to rename mailbox `$mailboxPath' to `$newMailboxPath', Error = `" . $cyrus->error . "'", KOLAB_WARN);
+ return 1;
}
+
+ return 0;
}
sub transferMailbox