err.no Git - sope/blob - sope-appserver/WEExtensions/WERedirect.m

   1 /*
   2   Copyright (C) 2000-2005 SKYRIX Software AG
   3
   4   This file is part of SOPE.
   5
   6   SOPE is free software; you can redistribute it and/or modify it under
   7   the terms of the GNU Lesser General Public License as published by the
   8   Free Software Foundation; either version 2, or (at your option) any
   9   later version.
  10
  11   SOPE is distributed in the hope that it will be useful, but WITHOUT ANY
  12   WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  14   License for more details.
  15
  16   You should have received a copy of the GNU Lesser General Public
  17   License along with SOPE; see the file COPYING.  If not, write to the
  18   Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
  19   02111-1307, USA.
  20 */
  21
  22 #include <NGObjWeb/WODynamicElement.h>
  23
  24 /*
  25    Q: Whats the difference to WORedirect?
  26    A: It is a dynamic element while WORedirect is a component.
  27
  28    Note: you can also use the WOComponent -redirectToLocation: method.
  29 */
  30
  31 @interface WERedirect : WODynamicElement
  32 {
  33   WOAssociation *setURL;
  34 }
  35 @end
  36
  37 #include "common.h"
  38
  39 @implementation WERedirect
  40
  41 - (id)initWithName:(NSString *)_name
  42   associations:(NSDictionary *)_config
  43   template:(WOElement *)_c
  44 {
  45   if ((self = [super initWithName:_name associations:_config template:_c])) {
  46     self->setURL = WOExtGetProperty(_config, @"setURL");
  47   }
  48   return self;
  49 }
  50
  51 - (void)dealloc {
  52   [self->setURL release];
  53   [super dealloc];
  54 }
  55
  56 /* generating the response */
  57
  58 - (void)appendToResponse:(WOResponse *)_response inContext:(WOContext *)_ctx {
  59   [_response setStatus:302];
  60   [_response setHeader:[self->setURL stringValueInComponent:[_ctx component]]
  61              forKey:@"location"];
  62 }
  63
  64 @end /* WERedirect */