err.no Git - scalable-opengroupware.org/blob - UI/PreferencesUI/UIxJSONPreferences.m

   1 /* UIxJSONPreferences.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/NSUserDefaults.h>
  24
  25 #import <NGObjWeb/WOContext+SoObjects.h>
  26 #import <NGObjWeb/WODirectAction.h>
  27 #import <NGObjWeb/WOResponse.h>
  28
  29 #import <SoObjects/SOGo/NSObject+Utilities.h>
  30 #import <SoObjects/SOGo/SOGoUser.h>
  31
  32 #import "UIxJSONPreferences.h"
  33
  34 @implementation UIxJSONPreferences
  35
  36 - (WOResponse *) _makeResponse: (NSString *) jsonText
  37 {
  38   WOResponse *response;
  39
  40   response = [context response];
  41   [response setHeader: @"text/plain; charset=utf-8"
  42             forKey: @"content-type"];
  43   [response appendContentString: jsonText];
  44
  45   return response;
  46 }
  47
  48 - (WOResponse *) jsonDefaultsAction
  49 {
  50   NSUserDefaults *defaults;
  51
  52   defaults = [[context activeUser] userDefaults];
  53
  54   return [self _makeResponse: [defaults jsonRepresentation]];
  55 }
  56
  57 - (WOResponse *) jsonSettingsAction
  58 {
  59   NSUserDefaults *settings;
  60
  61   settings = [[context activeUser] userSettings];
  62
  63   return [self _makeResponse: [settings jsonRepresentation]];
  64 }
  65
  66 @end