err.no Git - scalable-opengroupware.org/blob - SOPE/sope-patchset-r1546.diff

   1 Index: sope-mime/NGImap4/NGImap4Connection.m
   2 ===================================================================
   3 --- sope-mime/NGImap4/NGImap4Connection.m       (révision 1546)
   4 +++ sope-mime/NGImap4/NGImap4Connection.m       (copie de travail)
   5 @@ -381,7 +381,7 @@
   6
   7    if (debugCache) [self logWithFormat:@"  no folders cached yet .."];
   8
   9 -  result = [[self client] list:(onlyFetchInbox ? @"INBOX" : @"*")
  10 +  result = [[self client] list:(onlyFetchInbox ? @"INBOX" : @"")
  11                           pattern:@"*"];
  12    if (![[result valueForKey:@"result"] boolValue]) {
  13      [self errorWithFormat:@"Could not list mailbox hierarchy!"];
  14 Index: sope-mime/NGImap4/NGImap4ResponseNormalizer.m
  15 ===================================================================
  16 --- sope-mime/NGImap4/NGImap4ResponseNormalizer.m       (révision 1546)
  17 +++ sope-mime/NGImap4/NGImap4ResponseNormalizer.m       (copie de travail)
  18 @@ -648,14 +648,13 @@
  19    enumerator = [_flags objectEnumerator];
  20    cnt = 0;
  21    while ((obj = [enumerator nextObject])) {
  22 -    if (![obj isNotEmpty])
  23 -      continue;
  24 -
  25 -    if (![[obj substringToIndex:1] isEqualToString:@"\\"])
  26 -      continue;
  27 -
  28 -    objs[cnt] = [obj substringFromIndex:1];
  29 -    cnt++;
  30 +    if ([obj isNotEmpty]) {
  31 +      if ([obj hasPrefix:@"\\"])
  32 +       objs[cnt] = [obj substringFromIndex:1];
  33 +      else
  34 +       objs[cnt] = obj;
  35 +      cnt++;
  36 +    }
  37    }
  38    result = [NSArray arrayWithObjects:objs count:cnt];
  39    if (objs) free(objs);
  40 Index: sope-mime/NGImap4/NGImap4ResponseParser.m
  41 ===================================================================
  42 --- sope-mime/NGImap4/NGImap4ResponseParser.m   (révision 1546)
  43 +++ sope-mime/NGImap4/NGImap4ResponseParser.m   (copie de travail)
  44 @@ -84,6 +84,8 @@
  45  static NSDictionary *_parseMultipartBody(NGImap4ResponseParser *self,
  46                                          BOOL isBodyStructure);
  47
  48 +static NSArray *_parseLanguages();
  49 +
  50  static NSString *_parseBodyString(NGImap4ResponseParser *self,
  51                                    BOOL _convertString);
  52  static NSString *_parseBodyDecodeString(NGImap4ResponseParser *self,
  53 @@ -111,6 +113,7 @@
  54  static NSNumber *_parseUnsigned(NGImap4ResponseParser *self);
  55  static NSString *_parseUntil(NGImap4ResponseParser *self, char _c);
  56  static NSString *_parseUntil2(NGImap4ResponseParser *self, char _c1, char _c2);
  57 +static BOOL _endsWithCQuote(NSString *_string);
  58
  59  static __inline__ NSException *_consumeIfMatch
  60    (NGImap4ResponseParser *self, unsigned char _m);
  61 @@ -649,12 +652,31 @@
  62  }
  63
  64  - (NSString *)_parseQuotedString {
  65 +  NSMutableString *quotedString;
  66 +  NSString *tmpString;
  67 +  BOOL stop;
  68 +
  69    /* parse a quoted string, eg '"' */
  70    if (_la(self, 0) == '"') {
  71      _consume(self, 1);
  72 -    return _parseUntil(self, '"');
  73 +    quotedString = [NSMutableString string];
  74 +    stop = NO;
  75 +    while (!stop) {
  76 +      tmpString = _parseUntil(self, '"');
  77 +      [quotedString appendString: tmpString];
  78 +      if(_endsWithCQuote(tmpString)) {
  79 +       [quotedString deleteSuffix: @"\\"];
  80 +       [quotedString appendString: @"\""];
  81 +      }
  82 +      else {
  83 +       stop = YES;
  84 +      }
  85 +    }
  86    }
  87 -  return nil;
  88 +  else {
  89 +    quotedString = nil;
  90 +  }
  91 +  return quotedString;
  92  }
  93  - (void)_consumeOptionalSpace {
  94    if (_la(self, 0) == ' ') _consume(self, 1);
  95 @@ -1185,7 +1207,7 @@
  96    route   = [self _parseQuotedStringOrNIL]; [self _consumeOptionalSpace];
  97    mailbox = [self _parseQuotedStringOrNIL]; [self _consumeOptionalSpace];
  98    host    = [self _parseQuotedStringOrNIL]; [self _consumeOptionalSpace];
  99 -
 100 +
 101    if (_la(self, 0) != ')') {
 102      [self logWithFormat:@"WARNING: IMAP4 envelope "
 103             @"address not properly closed (c0=%c,c1=%c): %@",
 104 @@ -1197,6 +1219,7 @@
 105    address = [[NGImap4EnvelopeAddress alloc] initWithPersonalName:pname
 106                                             sourceRoute:route mailbox:mailbox
 107                                             host:host];
 108 +
 109    return address;
 110  }
 111
 112 @@ -1627,6 +1650,29 @@
 113    return _parseBodyDecodeString(self, _convertString, NO /* no decode */);
 114  }
 115
 116 +static NSArray *_parseLanguages(NGImap4ResponseParser *self) {
 117 +  NSMutableArray *languages;
 118 +  NSString *language;
 119 +
 120 +  languages = [NSMutableArray array];
 121 +  if (_la(self, 0) == '(') {
 122 +    while (_la(self, 0) != ')') {
 123 +      _consume(self,1);
 124 +      language = _parseBodyString(self, YES);
 125 +      if ([language length])
 126 +       [languages addObject: language];
 127 +    }
 128 +    _consume(self,1);
 129 +  }
 130 +  else {
 131 +    language = _parseBodyString(self, YES);
 132 +    if ([language length])
 133 +      [languages addObject: language];
 134 +  }
 135 +
 136 +  return languages;
 137 +}
 138 +
 139  static NSDictionary *_parseBodyParameterList(NGImap4ResponseParser *self)
 140  {
 141    NSMutableDictionary *list;
 142 @@ -1734,10 +1780,11 @@
 143                       *encoding, *bodysize;
 144    NSDictionary        *parameterList;
 145    NSMutableDictionary *dict;
 146 +  NSArray            *languages;
 147
 148    type = [_parseBodyString(self, YES) lowercaseString];
 149    _consumeIfMatch(self, ' ');
 150 -  subtype = _parseBodyString(self, YES);
 151 +  subtype = [_parseBodyString(self, YES) lowercaseString];
 152    _consumeIfMatch(self, ' ');
 153    parameterList = _parseBodyParameterList(self);
 154    _consumeIfMatch(self, ' ');
 155 @@ -1762,7 +1809,8 @@
 156      _consumeIfMatch(self, ' ');
 157      [dict setObject:_parseBodyString(self, YES) forKey:@"lines"];
 158    }
 159 -  else if ([type isEqualToString:@"message"]) {
 160 +  else if ([type isEqualToString:@"message"]
 161 +          && [subtype isEqualToString:@"rfc822"]) {
 162      if (_la(self, 0) != ')') {
 163        _consumeIfMatch(self, ' ');
 164        _consumeIfMatch(self, '(');
 165 @@ -1805,14 +1853,9 @@
 166               forKey: @"disposition"];
 167         if (_la(self, 0) != ')') {
 168           _consume(self,1);
 169 -         if (_la(self, 0) == '(') {
 170 -           [dict setObject: _parseBodyParameterList(self)
 171 -                 forKey: @"language"];
 172 -         }
 173 -         else {
 174 -           [dict setObject: _parseBodyString(self, YES)
 175 -                 forKey: @"language"];
 176 -         }
 177 +         languages = _parseLanguages(self);
 178 +         if ([languages count])
 179 +           [dict setObject: languages forKey: @"languages"];
 180           if (_la(self, 0) != ')') {
 181             _consume(self,1);
 182             [dict setObject: _parseBodyString(self, YES)
 183 @@ -1829,6 +1872,7 @@
 184  static NSDictionary *_parseMultipartBody(NGImap4ResponseParser *self,
 185                                          BOOL isBodyStructure) {
 186    NSMutableArray *parts;
 187 +  NSArray       *languages;
 188    NSString       *kind;
 189    NSMutableDictionary *dict;
 190
 191 @@ -1854,14 +1898,9 @@
 192               forKey: @"disposition"];
 193         if (_la(self, 0) != ')') {
 194           _consume(self,1);
 195 -         if (_la(self, 0) == '(') {
 196 -           [dict setObject: _parseBodyParameterList(self)
 197 -                 forKey: @"language"];
 198 -         }
 199 -         else {
 200 -           [dict setObject: _parseBodyString(self, YES)
 201 -                 forKey: @"language"];
 202 -         }
 203 +         languages = _parseLanguages(self);
 204 +         if ([languages count])
 205 +           [dict setObject: languages forKey: @"languages"];
 206           if (_la(self, 0) != ')') {
 207             _consume(self,1);
 208             [dict setObject: _parseBodyString(self, YES)
 209 @@ -2170,6 +2209,21 @@
 210    }
 211  }
 212
 213 +static BOOL _endsWithCQuote(NSString *_string){
 214 +  unsigned int quoteSlashes;
 215 +  int pos;
 216 +
 217 +  quoteSlashes = 0;
 218 +  pos = [_string length] - 1;
 219 +  while (pos > -1
 220 +        && [_string characterAtIndex: pos] == '\\') {
 221 +    quoteSlashes++;
 222 +    pos--;
 223 +  }
 224 +
 225 +  return ((quoteSlashes % 2) == 1);
 226 +}
 227 +
 228  - (NSException *)exceptionForFailedMatch:(unsigned char)_match
 229    got:(unsigned char)_avail
 230  {
 231 Index: sope-mime/NGMime/NGMimeRFC822DateHeaderFieldParser.m
 232 ===================================================================
 233 --- sope-mime/NGMime/NGMimeRFC822DateHeaderFieldParser.m        (révision 1546)
 234 +++ sope-mime/NGMime/NGMimeRFC822DateHeaderFieldParser.m        (copie de travail)
 235 @@ -285,24 +285,16 @@
 236  - (id)parseValue:(id)_data ofHeaderField:(NSString *)_field {
 237    // TODO: use UNICODE
 238    NSCalendarDate *date       = nil;
 239 -  unsigned char  buf[256];
 240 -  unsigned char  *bytes = buf, *pe;
 241 +  unsigned char  *bytes, *pe;
 242    unsigned       length = 0;
 243    NSTimeZone     *tz = nil;
 244    char  dayOfMonth, monthOfYear, hour, minute, second;
 245    short year;
 246    BOOL  flag;
 247 -
 248 -  if ((length = [_data cStringLength]) > 254) {
 249 -    [self logWithFormat:
 250 -           @"header field value to large for date parsing: '%@'(%i)",
 251 -           _data, length];
 252 -    length = 254;
 253 -  }
 254 -
 255 -  [_data getCString:(char *)buf maxLength:length];
 256 -  buf[length] = '\0';
 257 -
 258 +
 259 +  length = [_data length];
 260 +  bytes = [_data cString];
 261 +
 262    /* remove leading chars (skip to first digit, the day of the month) */
 263    while (length > 0 && (!isdigit(*bytes))) {
 264      bytes++;
 265 Index: sope-mime/NGMime/NGMimeBodyPart.m
 266 ===================================================================
 267 --- sope-mime/NGMime/NGMimeBodyPart.m   (révision 1546)
 268 +++ sope-mime/NGMime/NGMimeBodyPart.m   (copie de travail)
 269 @@ -31,18 +31,6 @@
 270    return 2;
 271  }
 272
 273 -static NGMimeType *defaultType = nil;
 274 -
 275 -+ (void)initialize {
 276 -  static BOOL isInitialized = NO;
 277 -  if (!isInitialized) {
 278 -    isInitialized = YES;
 279 -
 280 -    defaultType =
 281 -      [[NGMimeType mimeType:@"text/plain; charset=us-ascii"] retain];
 282 -  }
 283 -}
 284 -
 285  + (id)bodyPartWithHeader:(NGHashMap *)_header {
 286    return [[[self alloc] initWithHeader:_header] autorelease];
 287  }
 288 @@ -156,13 +144,12 @@
 289    if (!Fields)
 290      Fields = (NGMimeHeaderNames *)[NGMimePartParser headerFieldNames];
 291
 292 -
 293    type = [self->header objectForKey:Fields->contentType];
 294
 295    if (![type isKindOfClass:[NGMimeType class]])
 296      type = [NGMimeType mimeType:[type stringValue]];
 297
 298 -  return (type != nil ? type : (id)defaultType);
 299 +  return type;
 300  }
 301
 302  - (NSString *)contentId {
 303 Index: sope-mime/NGMime/NGMimeBodyParser.m
 304 ===================================================================
 305 --- sope-mime/NGMime/NGMimeBodyParser.m (révision 1546)
 306 +++ sope-mime/NGMime/NGMimeBodyParser.m (copie de travail)
 307 @@ -67,7 +67,10 @@
 308    if (_data == nil) return nil;
 309
 310    ctype = [_part contentType];
 311 -
 312 +  if (!ctype
 313 +      && [_d respondsToSelector: @selector(parser:contentTypeOfPart:)])
 314 +    ctype = [_d parser: self contentTypeOfPart: _part];
 315 +
 316    if (![ctype isKindOfClass:[NGMimeType class]])
 317      ctype = [NGMimeType mimeType:[ctype stringValue]];
 318
 319 Index: sope-mime/NGMime/NGMimePartParser.h
 320 ===================================================================
 321 --- sope-mime/NGMime/NGMimePartParser.h (révision 1546)
 322 +++ sope-mime/NGMime/NGMimePartParser.h (copie de travail)
 323 @@ -117,6 +117,7 @@
 324      BOOL parserParseRawBodyDataOfPart:1;
 325      BOOL parserBodyParserForPart:1;
 326      BOOL parserDecodeBodyOfPart:1;
 327 +    BOOL parserContentTypeOfPart:1;
 328    } delegateRespondsTo;
 329
 330
 331 @@ -275,6 +276,9 @@
 332  - (id<NGMimeBodyParser>)parser:(NGMimePartParser *)_parser
 333    bodyParserForPart:(id<NGMimePart>)_part;
 334
 335 +- (NGMimeType *)parser:(id)_parser
 336 +  contentTypeOfPart:(id<NGMimePart>)_part;
 337 +
 338  @end /* NSObject(NGMimePartParserDelegate) */
 339
 340  @interface NSObject(NGMimePartParser)
 341 Index: sope-mime/NGMime/NGMimePartParser.m
 342 ===================================================================
 343 --- sope-mime/NGMime/NGMimePartParser.m (révision 1546)
 344 +++ sope-mime/NGMime/NGMimePartParser.m (copie de travail)
 345 @@ -1091,7 +1091,10 @@
 346    id<NGMimeBodyParser> bodyParser   = nil;
 347
 348    ctype = [_p contentType];
 349 -
 350 +  if (!ctype
 351 +      && self->delegateRespondsTo.parserContentTypeOfPart)
 352 +    ctype = [self->delegate parser: self contentTypeOfPart: _p];
 353 +
 354    contentType = ([ctype isKindOfClass:[NGMimeType class]])
 355      ? ctype
 356      : [NGMimeType mimeType:[ctype stringValue]];
 357 Index: sope-gdl1/PostgreSQL/PostgreSQL72Channel.m
 358 ===================================================================
 359 --- sope-gdl1/PostgreSQL/PostgreSQL72Channel.m  (révision 1546)
 360 +++ sope-gdl1/PostgreSQL/PostgreSQL72Channel.m  (copie de travail)
 361 @@ -713,6 +713,39 @@
 362    return ms;
 363  }
 364
 365 +/* GCSEOAdaptorChannel protocol */
 366 +static NSString *sqlFolderFormat = (@"CREATE TABLE %@ (\n"     \
 367 +                                   @"  c_name VARCHAR (256) NOT NULL,\n"
 368 +                                   @"  c_content VARCHAR (100000) NOT NULL,\n"
 369 +                                   @"  c_creationdate INT4 NOT NULL,\n"
 370 +                                   @"  c_lastmodified INT4 NOT NULL,\n"
 371 +                                   @"  c_version INT4 NOT NULL,\n"
 372 +                                   @"  c_deleted INT4 NULL\n"
 373 +                                   @")");
 374 +static NSString *sqlFolderACLFormat = (@"CREATE TABLE %@ (\n"  \
 375 +                                      @"  c_uid VARCHAR (256) NOT NULL,\n"
 376 +                                      @"  c_object VARCHAR (256) NOT NULL,\n"
 377 +                                      @"  c_role VARCHAR (80) NOT NULL\n"
 378 +                                      @")");
 379 +
 380 +- (NSException *) createGCSFolderTableWithName: (NSString *) tableName
 381 +{
 382 +  NSString *sql;
 383 +
 384 +  sql = [NSString stringWithFormat: sqlFolderFormat, tableName];
 385 +
 386 +  return [self evaluateExpressionX: sql];
 387 +}
 388 +
 389 +- (NSException *) createGCSFolderACLTableWithName: (NSString *) tableName
 390 +{
 391 +  NSString *sql;
 392 +
 393 +  sql = [NSString stringWithFormat: sqlFolderACLFormat, tableName];
 394 +
 395 +  return [self evaluateExpressionX: sql];
 396 +}
 397 +
 398  @end /* PostgreSQL72Channel */
 399
 400  @implementation PostgreSQL72Channel(PrimaryKeyGeneration)
 401 Index: sope-gdl1/Oracle8/GNUmakefile
 402 ===================================================================
 403 --- sope-gdl1/Oracle8/GNUmakefile       (révision 1546)
 404 +++ sope-gdl1/Oracle8/GNUmakefile       (copie de travail)
 405 @@ -28,15 +28,23 @@
 406  SOPE_ROOT=../..
 407  ORACLE_VERSION=10.2.0.3
 408  #ORACLE_VERSION=11.1.0.1
 409 -ADDITIONAL_INCLUDE_DIRS += -I../GDLAccess -I.. -I/usr/include/oracle/$(ORACLE_VERSION)/client
 410 +ADDITIONAL_INCLUDE_DIRS += -I../../sope-core -I../../sope-core/NGExtensions -I../GDLAccess -I.. -I/usr/include/oracle/$(ORACLE_VERSION)/client
 411
 412 +local_arch = $(subst 64,,$(shell uname -m))
 413 +
 414 +ifeq ($(local_arch),ppc)
 415 +PPC_LDFLAGS=-L/opt/ibmcmp/lib -libmc++
 416 +else
 417 +PPC_LDFLAGS=
 418 +endif
 419 +
 420  ifneq ($(frameworks),yes)
 421 -Oracle8_BUNDLE_LIBS += -L/usr/lib/oracle/$(ORACLE_VERSION)/client/lib/ -locci -lociei -lclntsh -lnnz10 -lGDLAccess -lEOControl
 422 -otest_TOOL_LIBS   += -L/usr/lib/oracle/$(ORACLE_VERSION)/client/lib/ -locci -lociei -lclntsh -lnnz10 -lGDLAccess -lEOControl
 423 +common_LIBS = -L/usr/lib/oracle/$(ORACLE_VERSION)/client/lib/ -locci -lociei -lclntsh -lnnz10 -L../GDLAccess/obj -lGDLAccess -L../../sope-core/EOControl/obj -lEOControl $(PPC_LDFLAGS)
 424  else
 425 -Oracle8_BUNDLE_LIBS += -L/usr/lib/oracle/$(ORACLE_VERSION)/client/lib/ -locci -lociei -lclntsh -lnnz10 -framework GDLAccess -framework EOControl
 426 -otest_TOOL_LIBS   += -L/usr/lib/oracle/$(ORACLE_VERSION)/client/lib/ -locci -lociei -lclntsh -lnnz10 -framework GDLAccess -framework EOControl
 427 +common_LIBS = -L/usr/lib/oracle/$(ORACLE_VERSION)/client/lib/ -locci -lociei -lclntsh -lnnz10 -framework GDLAccess -framework EOControl $(PPC_LDFLAGS)
 428  endif
 429 +Oracle8_BUNDLE_LIBS += $(common_LIBS)
 430 +otest_TOOL_LIBS   += $(common_LIBS)
 431
 432  # Bundle
 433  BUNDLE_NAME = Oracle8
 434 Index: sope-gdl1/Oracle8/OracleAdaptorChannel.m
 435 ===================================================================
 436 --- sope-gdl1/Oracle8/OracleAdaptorChannel.m    (révision 1546)
 437 +++ sope-gdl1/Oracle8/OracleAdaptorChannel.m    (copie de travail)
 438 @@ -53,14 +53,17 @@
 439    while (c--)
 440      {
 441        info = [[_row_buffer objectAtIndex: c] pointerValue];
 442 -      [_row_buffer removeObjectAtIndex: c];
 443
 444        // We free our LOB object. If it fails, it likely mean it isn't a LOB
 445        // so we just free the value instead.
 446 -      if (OCIDescriptorFree((dvoid *)info->value, (ub4)OCI_DTYPE_LOB) != OCI_SUCCESS)
 447 -       {
 448 -         free(info->value);
 449 -       }
 450 +      if (info->value)
 451 +       {
 452 +         if (OCIDescriptorFree((dvoid *)info->value, (ub4)OCI_DTYPE_LOB) != OCI_SUCCESS)
 453 +           free(info->value);
 454 +         info->value = NULL;
 455 +       }
 456 +      free(info);
 457 +      [_row_buffer removeObjectAtIndex: c];
 458      }
 459
 460    OCIHandleFree(_current_stm, OCI_HTYPE_STMT);
 461 @@ -138,6 +141,14 @@
 462         {
 463           NSLog(@"FAILED: OCITerminate()");
 464         }
 465 +
 466 +      OCIHandleFree(_oci_ctx, OCI_HTYPE_SVCCTX);
 467 +      OCIHandleFree(_oci_err, OCI_HTYPE_ERROR);
 468 +      OCIHandleFree(_oci_env, OCI_HTYPE_ENV);
 469 +
 470 +      _oci_ctx = (OCISvcCtx *)0;
 471 +      _oci_err = (OCIError *)0;
 472 +      _oci_env = (OCIEnv *)0;
 473      }
 474  }
 475
 476 @@ -151,11 +162,6 @@
 477    [self _cleanup];
 478
 479    RELEASE(_resultSetProperties);
 480 -
 481 -  OCIHandleFree(_oci_ctx, OCI_HTYPE_SVCCTX);
 482 -  OCIHandleFree(_oci_err, OCI_HTYPE_ERROR);
 483 -  OCIHandleFree(_oci_env, OCI_HTYPE_ENV);
 484 -
 485    RELEASE(delegate);
 486
 487    [super dealloc];
 488 Index: sope-gdl1/Oracle8/OracleAdaptorChannelController.m
 489 ===================================================================
 490 --- sope-gdl1/Oracle8/OracleAdaptorChannelController.m  (révision 1546)
 491 +++ sope-gdl1/Oracle8/OracleAdaptorChannelController.m  (copie de travail)
 492 @@ -155,7 +155,9 @@
 493           OCILobFreeTemporary([theChannel serviceContext], [theChannel errorHandle], info->value);
 494           OCIDescriptorFree((dvoid *)info->value, (ub4)OCI_DTYPE_LOB);
 495         }
 496 +      free(info);
 497      }
 498 +  [theColumns release];
 499
 500    OCIHandleFree(theStatement, OCI_HTYPE_STMT);
 501  }
 502 Index: sope-appserver/NGObjWeb/GNUmakefile.postamble
 503 ===================================================================
 504 --- sope-appserver/NGObjWeb/GNUmakefile.postamble       (révision 1546)
 505 +++ sope-appserver/NGObjWeb/GNUmakefile.postamble       (copie de travail)
 506 @@ -23,14 +23,20 @@
 507
 508  # install makefiles
 509
 510 -after-install ::
 511 +after-install :: $(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/Additional/ngobjweb.make
 512 +
 513 +ifneq ($(GNUSTEP_MAKE_VERSION),1.3.0)
 514 +after-install :: $(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/woapp.make $(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/wobundle.make
 515 +endif
 516 +
 517 +$(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/Additional/ngobjweb.make: ngobjweb.make
 518         $(MKDIRS) $(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/Additional/
 519         $(INSTALL_DATA) ngobjweb.make $(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/Additional/ngobjweb.make
 520
 521 -ifneq ($(GNUSTEP_MAKE_VERSION),1.3.0)
 522 -after-install ::
 523 +$(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/woapp.make: woapp-gs.make
 524         $(INSTALL_DATA) woapp-gs.make    \
 525                 $(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/woapp.make
 526 +
 527 +$(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/wobundle.make: wobundle-gs.make
 528         $(INSTALL_DATA) wobundle-gs.make \
 529                 $(INSTALL_ROOT_DIR)/$(GNUSTEP_MAKEFILES)/wobundle.make
 530 -endif
 531 Index: sope-appserver/NGObjWeb/WOContext.m
 532 ===================================================================
 533 --- sope-appserver/NGObjWeb/WOContext.m (révision 1546)
 534 +++ sope-appserver/NGObjWeb/WOContext.m (copie de travail)
 535 @@ -64,11 +64,13 @@
 536  static BOOL     testNSURLs           = NO;
 537  static BOOL     newCURLStyle         = NO;
 538  static NSString *WOApplicationSuffix = nil;
 539 +static NSURL    *redirectURL         = nil;
 540
 541  + (void)initialize {
 542    static BOOL    didInit = NO;
 543    NSUserDefaults *ud;
 544    NSString       *cn;
 545 +  NSString       *url;
 546
 547    if (didInit) return;
 548
 549 @@ -91,6 +93,9 @@
 550    debugCursor         = [ud boolForKey:@"WODebugCursor"] ? 1 : 0;
 551    debugComponentAwake = [ud boolForKey:@"WODebugComponentAwake"];
 552    WOApplicationSuffix = [[ud stringForKey:@"WOApplicationSuffix"] copy];
 553 +  url                 = [ud stringForKey:@"WOApplicationRedirectURL"];
 554 +  if (url != nil)
 555 +    redirectURL       = [NSURL URLWithString: url];
 556  }
 557
 558  + (id)contextWithRequest:(WORequest *)_r {
 559 @@ -503,6 +508,11 @@
 560      return nil;
 561    }
 562
 563 +  if (redirectURL) {
 564 +    // Use URL from user defaults (WOApplicationRedirectURL)
 565 +    return redirectURL;
 566 +  }
 567 +
 568    if ((serverURL = [rq headerForKey:@"x-webobjects-server-url"]) == nil) {
 569      if ((host = [rq headerForKey:@"host"]))
 570        serverURL = [@"http://" stringByAppendingString:host];
 571 Index: sope-appserver/NGObjWeb/DynamicElements/WOHyperlinkInfo.m
 572 ===================================================================
 573 --- sope-appserver/NGObjWeb/DynamicElements/WOHyperlinkInfo.m   (révision 1546)
 574 +++ sope-appserver/NGObjWeb/DynamicElements/WOHyperlinkInfo.m   (copie de travail)
 575 @@ -216,6 +216,12 @@
 576        assocCount++;
 577      }
 578    }
 579 +  if (count > 0) {
 580 +    if ((self->isAbsolute = OWGetProperty(_config, @"absolute"))) {
 581 +      count--;
 582 +      assocCount++;
 583 +    }
 584 +  }
 585
 586    self->rest = _config;
 587
 588 Index: sope-appserver/NGObjWeb/DynamicElements/_WOComplexHyperlink.m
 589 ===================================================================
 590 --- sope-appserver/NGObjWeb/DynamicElements/_WOComplexHyperlink.m       (révision 1546)
 591 +++ sope-appserver/NGObjWeb/DynamicElements/_WOComplexHyperlink.m       (copie de travail)
 592 @@ -40,6 +40,7 @@
 593    WOAssociation *string;
 594    WOAssociation *target;
 595    WOAssociation *disabled;
 596 +  WOAssociation *isAbsolute;
 597    WOElement     *template;
 598
 599    /* new in WO4: */
 600 @@ -359,6 +360,7 @@
 601  {
 602    if ((self = [super initWithName:_name hyperlinkInfo:_info template:_t])) {
 603      self->href = _info->href;
 604 +    self->isAbsolute = _info->isAbsolute;
 605    }
 606    return self;
 607  }
 608 @@ -374,6 +376,9 @@
 609    // TODO: we need a binding to disable rewriting!
 610    NSRange  r;
 611
 612 +  if ([[self->isAbsolute valueInContext:_ctx] boolValue] == YES)
 613 +    return NO;
 614 +
 615    r = [_s rangeOfString:@":"];
 616    if (r.length == 0)
 617      return YES;
 618 Index: sope-appserver/NGObjWeb/DynamicElements/WOHyperlinkInfo.h
 619 ===================================================================
 620 --- sope-appserver/NGObjWeb/DynamicElements/WOHyperlinkInfo.h   (révision 1546)
 621 +++ sope-appserver/NGObjWeb/DynamicElements/WOHyperlinkInfo.h   (copie de travail)
 622 @@ -41,7 +41,8 @@
 623    WOAssociation *pageName;
 624    WOAssociation *actionClass;
 625    WOAssociation *directActionName;
 626 -
 627 +  WOAssociation *isAbsolute;
 628 +
 629    BOOL          sidInUrl;
 630
 631    /* 'ivar' associations */
 632 Index: sope-appserver/NGObjWeb/SoObjects/SoObject.m
 633 ===================================================================
 634 --- sope-appserver/NGObjWeb/SoObjects/SoObject.m        (révision 1546)
 635 +++ sope-appserver/NGObjWeb/SoObjects/SoObject.m        (copie de travail)
 636 @@ -39,22 +39,34 @@
 637  static int debugLookup  = -1;
 638  static int debugBaseURL = -1;
 639  static int useRelativeURLs = -1;
 640 +static int redirectInitted = -1;
 641 +static NSURL *redirectURL = nil;
 642 +
 643  static void _initialize(void) {
 644 +  NSString *url;
 645 +  NSUserDefaults *ud;
 646 +
 647 +  ud = [NSUserDefaults standardUserDefaults];
 648 +
 649    if (debugLookup == -1) {
 650 -    debugLookup = [[NSUserDefaults standardUserDefaults]
 651 -                                  boolForKey:@"SoDebugKeyLookup"] ? 1 : 0;
 652 +    debugLookup = [ud boolForKey:@"SoDebugKeyLookup"] ? 1 : 0;
 653      NSLog(@"Note(SoObject): SoDebugKeyLookup is enabled!");
 654    }
 655    if (debugBaseURL == -1) {
 656 -    debugBaseURL = [[NSUserDefaults standardUserDefaults]
 657 -                                    boolForKey:@"SoDebugBaseURL"] ? 1 : 0;
 658 +    debugBaseURL = [ud boolForKey:@"SoDebugBaseURL"] ? 1 : 0;
 659      NSLog(@"Note(SoObject): SoDebugBaseURL is enabled!");
 660    }
 661    if (useRelativeURLs == -1) {
 662 -    useRelativeURLs = [[NSUserDefaults standardUserDefaults]
 663 -                                      boolForKey:@"WOUseRelativeURLs"] ?1:0;
 664 +    useRelativeURLs = [ud boolForKey:@"WOUseRelativeURLs"] ?1:0;
 665      NSLog(@"Note(SoObject): relative base URLs are enabled.");
 666    }
 667 +  if (redirectInitted == -1) {
 668 +    url = [ud stringForKey:@"WOApplicationRedirectURL"];
 669 +    if ([url length]) {
 670 +      redirectURL = [[NSURL alloc] initWithString: url];
 671 +    }
 672 +    redirectInitted = 1;
 673 +  }
 674  }
 675
 676  /* classes */
 677 @@ -318,56 +330,61 @@
 678
 679    rq = [_ctx request];
 680    ms = [[NSMutableString alloc] initWithCapacity:128];
 681 +
 682 +  if (redirectURL) {
 683 +    [ms appendString: [redirectURL absoluteString]];
 684 +  }
 685 +  else {
 686 +    if (!useRelativeURLs) {
 687 +      port = [[rq headerForKey:@"x-webobjects-server-port"] intValue];
 688
 689 -  if (!useRelativeURLs) {
 690 -    port = [[rq headerForKey:@"x-webobjects-server-port"] intValue];
 691 -
 692 -    /* this is actually a bug in Apache */
 693 -    if (port == 0) {
 694 -      static BOOL didWarn = NO;
 695 -      if (!didWarn) {
 696 -       [self warnWithFormat:@"(%s:%i): got an empty port from Apache!",
 697 -              __PRETTY_FUNCTION__, __LINE__];
 698 -       didWarn = YES;
 699 +      /* this is actually a bug in Apache */
 700 +      if (port == 0) {
 701 +       static BOOL didWarn = NO;
 702 +       if (!didWarn) {
 703 +         [self warnWithFormat:@"(%s:%i): got an empty port from Apache!",
 704 +               __PRETTY_FUNCTION__, __LINE__];
 705 +         didWarn = YES;
 706 +       }
 707 +       port = 80;
 708        }
 709 -      port = 80;
 710 -    }
 711
 712 -    if ((tmp = [rq headerForKey:@"host"]) != nil) {
 713 -      /* check whether we have a host header with port */
 714 -      if ([tmp rangeOfString:@":"].length == 0)
 715 -       tmp = nil;
 716 -    }
 717 -    if (tmp != nil) { /* we have a host header with port */
 718 -      isHTTPS =
 719 -       [[rq headerForKey:@"x-webobjects-server-url"] hasPrefix:@"https"];
 720 -      [ms appendString:isHTTPS ? @"https://" : @"http://"];
 721 -      [ms appendString:tmp];
 722 -    }
 723 -    else if ((tmp = [rq headerForKey:@"x-webobjects-server-url"]) != nil) {
 724 -      /* sometimes the URL is just wrong! (suggests port 80) */
 725 -      if ([tmp hasSuffix:@":0"] && [tmp length] > 2) { // TODO: bad bad bad
 726 -       [self warnWithFormat:@"%s: got incorrect URL from Apache: '%@'",
 727 -             __PRETTY_FUNCTION__, tmp];
 728 -       tmp = [tmp substringToIndex:([tmp length] - 2)];
 729 +      if ((tmp = [rq headerForKey:@"host"]) != nil) {
 730 +       /* check whether we have a host header with port */
 731 +       if ([tmp rangeOfString:@":"].length == 0)
 732 +         tmp = nil;
 733        }
 734 -      else if ([tmp hasSuffix:@":443"] && [tmp hasPrefix:@"http://"]) {
 735 -       /* see OGo bug #1435, Debian Apache hack */
 736 -       [self warnWithFormat:@"%s: got 'http' protocol but 443 port, "
 737 -             @"assuming Debian/Apache bug (OGo #1435): '%@'",
 738 -             __PRETTY_FUNCTION__, tmp];
 739 -       tmp = [tmp substringWithRange:NSMakeRange(4, [tmp length] - 4 - 4)];
 740 -       tmp = [@"https" stringByAppendingString:tmp];
 741 +      if (tmp != nil) { /* we have a host header with port */
 742 +       isHTTPS =
 743 +         [[rq headerForKey:@"x-webobjects-server-url"] hasPrefix:@"https"];
 744 +       [ms appendString:isHTTPS ? @"https://" : @"http://"];
 745 +       [ms appendString:tmp];
 746        }
 747 -      [ms appendString:tmp];
 748 -    }
 749 -    else {
 750 -      // TODO: isHTTPS always no in this case?
 751 -      [ms appendString:isHTTPS ? @"https://" : @"http://"];
 752 +      else if ((tmp = [rq headerForKey:@"x-webobjects-server-url"]) != nil) {
 753 +       /* sometimes the URL is just wrong! (suggests port 80) */
 754 +       if ([tmp hasSuffix:@":0"] && [tmp length] > 2) { // TODO: bad bad bad
 755 +         [self warnWithFormat:@"%s: got incorrect URL from Apache: '%@'",
 756 +               __PRETTY_FUNCTION__, tmp];
 757 +         tmp = [tmp substringToIndex:([tmp length] - 2)];
 758 +       }
 759 +       else if ([tmp hasSuffix:@":443"] && [tmp hasPrefix:@"http://"]) {
 760 +         /* see OGo bug #1435, Debian Apache hack */
 761 +         [self warnWithFormat:@"%s: got 'http' protocol but 443 port, "
 762 +               @"assuming Debian/Apache bug (OGo #1435): '%@'",
 763 +               __PRETTY_FUNCTION__, tmp];
 764 +         tmp = [tmp substringWithRange:NSMakeRange(4, [tmp length] - 4 - 4)];
 765 +         tmp = [@"https" stringByAppendingString:tmp];
 766 +       }
 767 +       [ms appendString:tmp];
 768 +      }
 769 +      else {
 770 +       // TODO: isHTTPS always no in this case?
 771 +       [ms appendString:isHTTPS ? @"https://" : @"http://"];
 772
 773 -      [ms appendString:[rq headerForKey:@"x-webobjects-server-name"]];
 774 -      if ((isHTTPS ? (port != 443) : (port != 80)) && port != 0)
 775 -       [ms appendFormat:@":%i", port];
 776 +       [ms appendString:[rq headerForKey:@"x-webobjects-server-name"]];
 777 +       if ((isHTTPS ? (port != 443) : (port != 80)) && port != 0)
 778 +         [ms appendFormat:@":%i", port];
 779 +      }
 780      }
 781    }
 782
 783 Index: sope-appserver/NGObjWeb/WOHttpAdaptor/WOHttpTransaction.m
 784 ===================================================================
 785 --- sope-appserver/NGObjWeb/WOHttpAdaptor/WOHttpTransaction.m   (révision 1546)
 786 +++ sope-appserver/NGObjWeb/WOHttpAdaptor/WOHttpTransaction.m   (copie de travail)
 787 @@ -31,6 +31,7 @@
 788  #include <NGObjWeb/WOCookie.h>
 789  #include <NGExtensions/NSData+gzip.h>
 790  #include <NGHttp/NGHttp.h>
 791 +#include <NGMime/NGMimeType.h>
 792  #include "common.h"
 793
 794  #include <string.h>
 795 @@ -1016,6 +1017,12 @@
 796  - (void)parser:(NGMimePartParser *)_parser didParseHeader:(NGHashMap *)_header {
 797  }
 798
 799 +- (NGMimeType *)parser:(id)_parser
 800 +  contentTypeOfPart:(id<NGMimePart>)_part
 801 +{
 802 +  return [NGMimeType mimeType: @"text/plain; charset=utf-8"];
 803 +}
 804 +
 805  @end /* WOHttpAdaptor */
 806
 807  @implementation WOCoreApplication(SimpleParserSelection)