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:
  46                 @"WEPrototypeScriptAction/default.js"
  47               queryDictionary:nil];
  48
  49   [_response appendContentString:@"<script type=\"text/javascript\" src=\""];
  50   [_response appendContentHTMLAttributeValue:url];
  51   [_response appendContentString:@"\"> </script>"];
  52
  53   [self markDeliveredInContext:_ctx];
  54 }
  55
  56 - (void)appendToResponse:(WOResponse *)_response inContext:(WOContext *)_ctx {
  57   [[self class] appendToResponse:_response inContext:_ctx];
  58 }
  59
  60 @end /* WEPrototypeScript */