err.no Git - scalable-opengroupware.org/blob - UI/Common/UIxParentFolderActions.m

   1 /* UIxParentFolderActions.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 <Foundation/NSString.h>
  24
  25 #import <NGObjWeb/NSException+HTTP.h>
  26 #import <NGObjWeb/WOContext.h>
  27 #import <NGObjWeb/WOResponse.h>
  28 #import <NGObjWeb/WORequest.h>
  29
  30 #import <UI/Common/WODirectAction+SOGo.h>
  31 #import <SoObjects/SOGo/SOGoParentFolder.h>
  32
  33 #import "UIxParentFolderActions.h"
  34
  35 @implementation UIxParentFolderActions
  36
  37 - (id <WOActionResults>) createFolderAction
  38 {
  39   WOResponse *response;
  40   NSString *name, *nameInContainer;
  41
  42   name = [[context request] formValueForKey: @"name"];
  43   if ([name length] > 0)
  44     {
  45       response = (WOResponse *) [[self clientObject] newFolderWithName: name
  46                                                      nameInContainer: &nameInContainer];
  47       if (!response)
  48         {
  49           response = [self responseWithStatus: 201];
  50           [response setHeader: @"text/plain; charset=us-ascii"
  51                     forKey: @"content-type"];
  52           [response appendContentString: nameInContainer];
  53         }
  54     }
  55   else
  56     response = [NSException exceptionWithHTTPStatus: 400
  57                             reason: @"The name is missing"];
  58
  59   return response;
  60 }
  61
  62 @end