Update to fix background posting.

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@11648 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,8 @@
+2001-12-07  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/GSHTTPURLHandle.m: Understand GSHTPPropertyBodyKey so we
+	can set data to be posted in background.
+
 2001-12-06  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/GNUmakefile: Add library dependencies for SSL bundle ...

Documentation/gsdoc/NSURLHandle.gsdoc

@@ -529,6 +529,10 @@
 	    The property is set as a header in the next request, unless it is
 	    one of the following -
 	    <list>
+	      <item>
+		GSHTTPPropertyBodyKey - set an NSData item to be sent to
+		the server as the body of the request.
+	      </item>
 	      <item>
 		GSHTTPPropertyMethodKey - override the default method of
 		the request (eg. &quot;PUT&quot;).

Documentation/gsdoc/NSURLHandle.html

@@ -543,6 +543,10 @@ Your subclass <em>must </em> override this abstract method.<br>
 	    The property is set as a header in the next request, unless it is
 	    one of the following -
 	    <ul>
+<li >
+		GSHTTPPropertyBodyKey - set an NSData item to be sent to
+		the server as the body of the request.
+	      
 <li >
 		GSHTTPPropertyMethodKey - override the default method of
 		the request (eg. "PUT").

Headers/gnustep/base/NSURLHandle.h

@@ -38,6 +38,7 @@ GS_EXPORT NSString *NSHTTPPropertyRedirectionHeadersKey;
 GS_EXPORT NSString *NSHTTPPropertyErrorPageDataKey;
 
 #ifndef	NO_GNUSTEP
+GS_EXPORT NSString *GSHTTPPropertyBodyKey;
 GS_EXPORT NSString *GSHTTPPropertyMethodKey;
 GS_EXPORT NSString *GSHTTPPropertyProxyHostKey;
 GS_EXPORT NSString *GSHTTPPropertyProxyPortKey;

Source/GSHTTPURLHandle.m

@@ -720,7 +720,7 @@ static void debugWrite(NSData *data)
 
 - (BOOL) writeData: (NSData*)d
 {
-  ASSIGN(wData, d);
+  [self writeProperty: d forKey: GSHTTPPropertyBodyKey];
   [self loadInForeground];
   return YES;
 }
@@ -732,7 +732,11 @@ static void debugWrite(NSData *data)
       [NSException raise: NSInvalidArgumentException
 		  format: @"%@ with invalid key", NSStringFromSelector(_cmd)];
     }
-  if ([propertyKey hasPrefix: @"GSHTTPProperty"])
+  if ([propertyKey isEqual: GSHTTPPropertyBodyKey] == YES)
+    {
+      ASSIGN(wData, property);
+    }
+  else if ([propertyKey hasPrefix: @"GSHTTPProperty"])
     {
       if (property == nil)
 	{

Source/externs.m

@@ -283,6 +283,8 @@ NSString *NSHTTPPropertyRedirectionHeadersKey;
 NSString *NSHTTPPropertyErrorPageDataKey;
  
 /* These are GNUstep extras */
+NSString *GSHTTPPropertyBodyKey;
+
 NSString *GSHTTPPropertyMethodKey;
 
 NSString *GSHTTPPropertyProxyHostKey;
@@ -517,6 +519,8 @@ GSBuildStrings()
       NSHTTPPropertyErrorPageDataKey
 	= [[SClass alloc] initWithCString: "HTTPPropertyErrorPageDataKey"];
 
+      GSHTTPPropertyBodyKey
+	= [[SClass alloc] initWithCString: "GSHTTPPropertyBodyKey"];
       GSHTTPPropertyMethodKey
 	= [[SClass alloc] initWithCString: "GSHTTPPropertyMethodKey"];
       GSHTTPPropertyProxyHostKey