From 910c37630c3ae4122fecc2fb76ef392a22524309 Mon Sep 17 00:00:00 2001
From: Wolfgang Sourdeau <wsourdeau@inverse.ca>
Date: Wed, 15 Aug 2007 20:58:11 +0000
Subject: [PATCH] Monotone-Parent: 816db06aee9785af6aa925f49d048c13e5e1c3b9
 Monotone-Revision: 5bce3a87176ed761bf8feda7215d3760e631b7f3

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-08-15T20:58:11
Monotone-Branch: ca.inverse.sogo
---
 ChangeLog                       |  6 +++++
 UI/Common/GNUmakefile           |  4 +++-
 UI/Common/WODirectAction+SOGo.h | 37 +++++++++++++++++++++++++++++
 UI/Common/WODirectAction+SOGo.m | 42 +++++++++++++++++++++++++++++++++
 4 files changed, 88 insertions(+), 1 deletion(-)
 create mode 100644 UI/Common/WODirectAction+SOGo.h
 create mode 100644 UI/Common/WODirectAction+SOGo.m

diff --git a/ChangeLog b/ChangeLog
index b3b1fd46f..c038a6eec 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,11 @@
 2007-08-15  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* UI/Common/WODirectAction+SOGo.m ([WODirectAction
+	-redirectToLocation:newLocation]): new method that implements the
+	same functionality as WOComponent.
+
+	* UI/Common/WODirectAction+SOGo.[hm]: new class extension module.
+
 	* UI/MailerUI/UIxMailView.m ([UIxMailView -mailIsDraft]): new
 	method that returns whether the current mail is store in the
 	drafts folder hierarchy.
diff --git a/UI/Common/GNUmakefile b/UI/Common/GNUmakefile
index cd4320a21..455202c20 100644
--- a/UI/Common/GNUmakefile
+++ b/UI/Common/GNUmakefile
@@ -22,7 +22,9 @@ CommonUI_OBJC_FILES +=		\
 	UIxTabItem.m		\
 	UIxUserRightsEditor.m	\
 	\
-	UIxToolbar.m
+	UIxToolbar.m		\
+	\
+	WODirectAction+SOGo.m \
 
 CommonUI_RESOURCE_FILES += \
 	Version			\
diff --git a/UI/Common/WODirectAction+SOGo.h b/UI/Common/WODirectAction+SOGo.h
new file mode 100644
index 000000000..92ec03206
--- /dev/null
+++ b/UI/Common/WODirectAction+SOGo.h
@@ -0,0 +1,37 @@
+/* WODirectAction+SOGo.h - this file is part of SOGo
+ *
+ * Copyright (C) 2007 Inverse groupe conseil
+ *
+ * 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 WODIRECTACTION_SOGO_H
+#define WODIRECTACTION_SOGO_H
+
+#import <NGObjWeb/WODirectAction.h>
+
+@class NSString;
+@class WOResponse;
+
+@interface WODirectAction (SOGoExtension)
+
+- (WOResponse *) redirectToLocation: (NSString *) newLocation;
+
+@end
+
+#endif /* WODIRECTACTION_SOGO_H */
diff --git a/UI/Common/WODirectAction+SOGo.m b/UI/Common/WODirectAction+SOGo.m
new file mode 100644
index 000000000..ddeea2aaa
--- /dev/null
+++ b/UI/Common/WODirectAction+SOGo.m
@@ -0,0 +1,42 @@
+/* WODirectAction+SOGo.m - this file is part of SOGo
+ *
+ * Copyright (C) 2007 Inverse groupe conseil
+ *
+ * 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 <NGObjWeb/WOContext.h>
+#import <NGObjWeb/WOResponse.h>
+
+#import "WODirectAction+SOGo.h"
+
+@implementation WODirectAction (SOGoExtension)
+
+- (WOResponse *) redirectToLocation: (NSString *) newLocation
+{
+  WOResponse *response;
+
+  response = [context response];
+  [response setStatus: 302 /* moved */];
+  [response setHeader: newLocation forKey: @"location"];
+
+  return response;
+}
+
+@end