Monotone-Parent: d24f07174457ea6b1b468933be949003bde413ed

Monotone-Revision: 0fdbd40e83a190f1d39914851c8f51231d0ca200

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-07-04T15:40:22
Monotone-Branch: ca.inverse.sogo

UI/MailerUI/UIxMailSourceView.m

@@ -0,0 +1,48 @@
+/* UIxMailSourceView.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 <Foundation/NSString.h>
+#import <SoObjects/Mailer/SOGoMailObject.h>
+
+#import "UIxMailSourceView.h"
+
+@implementation UIxMailSourceView
+
+- (WOResponse *) viewSourceAction
+{
+  NSString *source;
+  WOResponse *response;
+
+  source = [[self clientObject] contentAsString];
+
+  response = [context response];
+  [response setStatus: 200];
+  [response setHeader: @"text/plain; charset=utf-8"
+	    forKey: @"content-type"];
+  [response appendContentString: source];
+
+  return response;
+}
+
+@end