Monotone-Parent: ffb403989e64c7ca37321c15ab24b50155dc2f68

Monotone-Revision: fe50cf1e82dc1e3027fc400eb2f405261b9ad9f3

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2009-10-21T21:17:11
Monotone-Branch: ca.inverse.sogo

Main/SOGo.h

@@ -39,6 +39,8 @@
 - (NSDictionary *) currentLocaleConsideringLanguages:(NSArray *)_langs;
 - (NSDictionary *) localeForLanguageNamed:(NSString *)_name;
 
+- (NSString *) davURLAsString;
+
 @end
 
 #endif /* MAIN_SOGO_H */

Main/SOGo.m

@@ -67,6 +67,7 @@ static BOOL doCrashOnSessionCreate = NO;
 static BOOL hasCheckedTables = NO;
 static BOOL debugRequests = NO;
 static BOOL debugLeaks = NO;
+static BOOL useRelativeURLs = NO;
 
 static BOOL trustProxyAuthentication;
 
@@ -125,6 +126,7 @@ static BOOL debugObjectAllocation = NO;
   [sInfo declareRoles: basicRoles asDefaultForPermission: SoPerm_WebDAVAccess];
 
   trustProxyAuthentication = [ud boolForKey: @"SOGoTrustProxyAuthentication"];
+  useRelativeURLs = [ud boolForKey: @"WOUseRelativeURLs"];
 }
 
 - (id) init
@@ -607,6 +609,15 @@ static BOOL debugObjectAllocation = NO;
   return [self _urlPreferringParticle: @"dav" overThisOne: @"so"];
 }
 
+- (NSString *) davURLAsString
+{
+  NSURL *davURL;
+
+  davURL = [self davURL];
+
+  return (useRelativeURLs ? [davURL path] : [davURL absoluteString]);
+}
+
 - (NSURL *) soURL
 {
   return [self _urlPreferringParticle: @"so" overThisOne: @"dav"];