err.no Git - sope/blob - sope-appserver/WEPrototype/WEPrototypeScript.m

   1 /*
   2   Copyright (C) 2005 Helge Hess
   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 "WEPrototypeScript.h"
  23 #include "common.h"
  24
  25 @implementation WEPrototypeScript
  26
  27 static NSString *WEPrototypeScriptKey = @"WEPrototypeScriptKey";
  28
  29 /* generating response */
  30
  31 + (BOOL)wasDeliveredInContext:(WOContext *)_ctx {
  32   return [[_ctx objectForKey:WEPrototypeScriptKey] boolValue];
  33 }
  34
  35 + (void)markDeliveredInContext:(WOContext *)_ctx {
  36   [_ctx setObject:@"YES" forKey:WEPrototypeScriptKey];
  37 }
  38
  39 + (void)appendToResponse:(WOResponse *)_response inContext:(WOContext *)_ctx {
  40   NSString *url;
  41
  42   if ([self wasDeliveredInContext:_ctx])
  43     return;
  44
  45   url = [_ctx directActionURLForActionNamed:@"WEPrototypeScriptAction/default"
  46               queryDictionary:nil];
  47
  48   [_response appendContentString:@"<script type=\"text/javascript\" src=\""];
  49   [_response appendContentHTMLAttributeValue:url];
  50   [_response appendContentString:@"\"> </script>"];
  51
  52   [self markDeliveredInContext:_ctx];
  53 }
  54
  55 - (void)appendToResponse:(WOResponse *)_response inContext:(WOContext *)_ctx {
  56   [[self class] appendToResponse:_response inContext:_ctx];
  57 }
  58
  59 @end /* WEPrototypeScript */