From b1b8ce2aa313bd0b878b03fa041268000178bd9f Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <wsourdeau@inverse.ca>
Date: Wed, 5 Aug 2009 15:19:01 +0000
Subject: [PATCH] Monotone-Parent: 42e38d681c5b553626459ab2c9fc83fa9d65d3b0
 Monotone-Revision: 4ac197b200da843253c472d28004ce7d849b7299

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2009-08-05T15:19:01
Monotone-Branch: ca.inverse.sogo
---
 ChangeLog                        |  6 +++++
 SoObjects/SOGo/GNUmakefile       |  2 ++
 SoObjects/SOGo/WOResponse+SOGo.h | 36 +++++++++++++++++++++++++
 SoObjects/SOGo/WOResponse+SOGo.m | 46 ++++++++++++++++++++++++++++++++
 4 files changed, 90 insertions(+)
 create mode 100644 SoObjects/SOGo/WOResponse+SOGo.h
 create mode 100644 SoObjects/SOGo/WOResponse+SOGo.m

diff --git a/ChangeLog b/ChangeLog
index f335bb8ad..982191472 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2009-08-05  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
+
+	* SoObjects/SOGo/WOResponse+SOGo.m: new class module.
+	(-appendDAVError:): utility method that adds and formats the XML
+	body of a DAV error, with the error condition passed as argument.
+
 2009-08-03  Ludovic Marcotte  <lmarcotte@inverse.ca>
 
 	* Dropped the current caching subsystem based on
diff --git a/SoObjects/SOGo/GNUmakefile b/SoObjects/SOGo/GNUmakefile
index 6db8b586a..335778d72 100644
--- a/SoObjects/SOGo/GNUmakefile
+++ b/SoObjects/SOGo/GNUmakefile
@@ -58,6 +58,7 @@ SOGo_HEADER_FILES = \
 	DOMNode+SOGo.h			\
 	\
 	WORequest+SOGo.h		\
+	WOResponse+SOGo.h		\
 	WOContext+SOGo.h
 
 #	SOGoCustomGroupFolder.m		\
@@ -106,6 +107,7 @@ SOGo_OBJC_FILES = \
 	DOMNode+SOGo.m			\
 	\
 	WORequest+SOGo.m		\
+	WOResponse+SOGo.m		\
 	WOContext+SOGo.m
 
 SOGo_RESOURCE_FILES = \
diff --git a/SoObjects/SOGo/WOResponse+SOGo.h b/SoObjects/SOGo/WOResponse+SOGo.h
new file mode 100644
index 000000000..cc9c56a9e
--- /dev/null
+++ b/SoObjects/SOGo/WOResponse+SOGo.h
@@ -0,0 +1,36 @@
+/* WOResponse+SOGo.h - this file is part of SOGo
+ *
+ * Copyright (C) 2009 Inverse inc.
+ *
+ * Author: Wolfgang Sourdeau <wsourdeau@inverse.ca>
+ *
+ * This file is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This file is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+#ifndef WORESPONSE_SOGo_H
+#define WORESPONSE_SOGo_H
+
+#import <NGObjWeb/WOResponse.h>
+
+@class NSDictionary;
+
+@interface WOResponse (SOGoSOPEUtilities)
+
+- (void) appendDAVError: (NSDictionary *) errorCondition;
+
+@end
+
+#endif /* WORESPONSE_SOGo_H */
diff --git a/SoObjects/SOGo/WOResponse+SOGo.m b/SoObjects/SOGo/WOResponse+SOGo.m
new file mode 100644
index 000000000..737577769
--- /dev/null
+++ b/SoObjects/SOGo/WOResponse+SOGo.m
@@ -0,0 +1,46 @@
+/* WOResponse+SOGo.m - this file is part of SOGo
+ *
+ * Copyright (C) 2009 Inverse inc.
+ *
+ * Author: Wolfgang Sourdeau <wsourdeau@inverse.ca>
+ *
+ * This file is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2, or (at your option)
+ * any later version.
+ *
+ * This file is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; see the file COPYING.  If not, write to
+ * the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+#import <Foundation/NSString.h>
+
+#import <SaxObjC/XMLNamespaces.h>
+
+#import "NSDictionary+DAV.h"
+#import "NSObject+DAV.h"
+
+#import "WOResponse+SOGo.h"
+
+@implementation WOResponse (SOGoSOPEUtilities)
+
+- (void) appendDAVError: (NSDictionary *) errorCondition
+{
+  NSDictionary *error;  
+
+  error = davElementWithContent (@"error", XMLNS_WEBDAV, errorCondition);
+
+  [self setStatus: 403];
+  [self appendContentString: @"<?xml version=\"1.0\""
+            @" encoding=\"utf-8\"?>\r\n"];
+  [self appendContentString: [error asWebDavStringWithNamespaces: nil]];
+}
+
+@end