added mod_objc

[sope] / Recycler / ApacheWO / WOResponse+Apache.m

diff --git a/Recycler/ApacheWO/WOResponse+Apache.m b/Recycler/ApacheWO/WOResponse+Apache.m
new file mode 100644 (file)
index 0000000..48f201c
--- /dev/null
+++ b/Recycler/ApacheWO/WOResponse+Apache.m
@@ -0,0 +1,146 @@
+// $Id: WOResponse+Apache.m,v 1.1 2004/06/08 11:06:00 helge Exp $
+
+#include "WOResponse+Apache.h"
+#include <ApacheAPI/ApacheRequest.h>
+#include <ApacheAPI/ApacheModule.h>
+#include <ApacheAPI/ApacheTable.h>
+#include "common.h"
+
+@implementation WOResponse(Apache)
+
+- (BOOL)applyHeadersOnApacheRequest:(ApacheRequest *)_rq {
+  static NSMutableSet *ignoredHeaders = nil;
+  ApacheTable  *apHeaders;
+  NSString     *ctype;
+  NSEnumerator *keys;
+  NSString     *key;
+  
+  if (_rq == nil)
+    return NO;
+  
+  if (ignoredHeaders == nil) {
+    ignoredHeaders = [[NSMutableSet alloc] initWithObjects:
+                                            @"content-type",
+                                            nil];
+  }
+  
+  if ((ctype = [self headerForKey:@"content-type"]))
+    [_rq setContentType:ctype];
+  
+  /* apply all headers ... */
+  
+  apHeaders = [_rq headersOut];
+  
+  keys = [[self headerKeys] objectEnumerator];
+  while ((key = [keys nextObject])) {
+    NSString *svalue;
+    
+    if ([ignoredHeaders containsObject:key])
+      continue;
+    
+    svalue = [[self headersForKey:key] componentsJoinedByString:@", "];
+    [apHeaders setObject:svalue forKey:key];
+  }
+  return YES;
+}
+
+- (int)sendContentUsingApacheRequest:(ApacheRequest *)_rq {
+  return [_rq rwriteData:[self content]];
+}
+
+- (int)sendResponseUsingApacheRequest:(ApacheRequest *)_rq {
+  NSAutoreleasePool *pool;
+  int result;
+  
+  result = [self status];
+  
+  pool = [[NSAutoreleasePool alloc] init];
+
+  [_rq setStatus:[self status]];
+  
+  if (![self applyHeadersOnApacheRequest:_rq])
+    result = 500;
+  else {
+#if DONT_SEND_CONTENT_IN_SUBREQUESTS
+    if ([_rq mainRequest]) {
+      [self logWithFormat:@"is subrequest (no content is send) ..."];
+    }
+    else {
+#endif
+      [_rq sendHttpHeader];
+      
+      if (![_rq isHeadRequest])
+       result = [self sendContentUsingApacheRequest:_rq];
+#if DONT_SEND_CONTENT_IN_SUBREQUESTS
+    }
+#endif
+  }
+  
+  RELEASE(pool);
+  return ApacheHandledRequest;
+}
+
+@end /* WOResponse(Apache) */
+
+@implementation WOResponse(ApacheAppend)
+
+- (void)appendApacheResponseInfo:(ApacheRequest *)_request {
+  [self appendContentString:@"<table border='1' width=\"100%\">"];
+
+#if 0
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>Description:</td><td><pre>"];
+  [self appendContentHTMLString:[_request description]];
+  [self appendContentString:@"</pre></td></tr>"];
+#endif
+
+  [self appendContentString:
+          @"<tr><td width='25%' valign='top' align='right'>Status:</td><td>"];
+  [self appendContentHTMLString:[NSString stringWithFormat:@"%i",[_request status]]];
+  [self appendContentString:@"</td></tr>"];
+  
+  [self appendContentString:
+          @"<tr><td width='25%' valign='top' align='right'>unparsed URI:</td><td>"];
+  [self appendContentHTMLString:[_request unparsedURI]];
+  [self appendContentString:@"</td></tr>"];
+  
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>URI:</td><td>"];
+  [self appendContentHTMLString:[_request uri]];
+  [self appendContentString:@"</td></tr>"];
+  
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>filename:</td><td>"];
+  [self appendContentHTMLString:[_request filename]];
+  [self appendContentString:@"</td></tr>"];
+
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>filetype:</td><td>"];
+  [self appendContentHTMLString:[_request fileType]];
+  [self appendContentString:@"</td></tr>"];
+
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>content-type:</td><td>"];
+  [self appendContentHTMLString:[_request contentType]];
+  [self appendContentString:@"</td></tr>"];
+  
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>queryargs:</td><td>"];
+  [self appendContentHTMLString:[_request queryArgs]];
+  [self appendContentString:@"</td></tr>"];
+  
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>pathinfo:</td><td>"];
+  [self appendContentHTMLString:[_request pathInfo]];
+  [self appendContentString:@"</td></tr>"];
+
+  [self appendContentString:
+          @"<tr><td valign='top' align='right'>Headers:</td><td><pre>"];
+  [self appendContentHTMLString:
+          [[[_request headersOut] asDictionary] description]];
+  [self appendContentString:@"</pre></td></tr>"];
+  
+  [self appendContentString:@"</table>"];
+}
+
+@end /* WOResponse(ApacheAppend) */