]> err.no Git - scalable-opengroupware.org/blob - UI/MailerUI/UIxMailSourceView.m
git-svn-id: http://svn.opengroupware.org/SOGo/inverse/trunk@1173 d1b88da0-ebda-0310...
[scalable-opengroupware.org] / UI / MailerUI / UIxMailSourceView.m
1 /* UIxMailSourceView.m - this file is part of SOGo
2  *
3  * Copyright (C) 2007 Inverse groupe conseil
4  *
5  * Author: Wolfgang Sourdeau <wsourdeau@inverse.ca>
6  *
7  * This file is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 2, or (at your option)
10  * any later version.
11  *
12  * This file is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; see the file COPYING.  If not, write to
19  * the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
20  * Boston, MA 02111-1307, USA.
21  */
22
23 #import <NGObjWeb/WOContext.h>
24 #import <NGObjWeb/WOResponse.h>
25 #import <Foundation/NSString.h>
26 #import <SoObjects/Mailer/SOGoMailObject.h>
27
28 #import <UI/Common/WODirectAction+SOGo.h>
29
30 #import "UIxMailSourceView.h"
31
32 @implementation UIxMailSourceView
33
34 - (WOResponse *) viewSourceAction
35 {
36   NSString *source;
37   WOResponse *response;
38
39   source = [[self clientObject] contentAsString];
40
41   response = [self responseWithStatus: 200];
42   [response setHeader: @"text/plain; charset=utf-8"
43             forKey: @"content-type"];
44   [response appendContentString: source];
45
46   return response;
47 }
48
49 @end