err.no Git - scalable-opengroupware.org/blob - UI/Common/WODirectAction+SOGo.m

   1 /* WODirectAction+SOGo.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
  24 #import <NGObjWeb/WOContext.h>
  25 #import <NGObjWeb/WOResponse.h>
  26
  27 #import "WODirectAction+SOGo.h"
  28
  29 @implementation WODirectAction (SOGoExtension)
  30
  31 - (WOResponse *) responseWithStatus: (unsigned int) status
  32 {
  33   WOResponse *response;
  34
  35   response = [context response];
  36   [response setStatus: status];
  37
  38   return response;
  39 }
  40
  41 - (WOResponse *) responseWith204
  42 {
  43   return [self responseWithStatus: 204];
  44 }
  45
  46 - (WOResponse *) redirectToLocation: (NSString *) newLocation
  47 {
  48   WOResponse *response;
  49
  50   response = [self responseWithStatus: 302];
  51   [response setHeader: newLocation forKey: @"location"];
  52
  53   return response;
  54 }
  55
  56
  57 @end