Monotone-Parent: e55c7e9b0d4eff602ecb06071b3c60c6e2c19bf0

Monotone-Revision: 509b02f4f9f2961c7946b8a808d6fe29000b8cc9

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2010-08-11T19:23:51
Monotone-Branch: ca.inverse.sogo

SoObjects/SOGo/WORequest+SOGo.h

@@ -34,6 +34,7 @@
 - (BOOL) isIPhone;
 - (BOOL) isICal;
 - (BOOL) isICal4;
+- (BOOL) isAddressBookApp;
 
 @end
 

SoObjects/SOGo/WORequest+SOGo.m

@@ -137,4 +137,14 @@
   return [self isAppleDAVWithSubstring: @"iCal/4."];
 }
 
+- (BOOL) isAddressBookApp
+{
+  WEClientCapabilities *cc;
+
+  cc = [self clientCapabilities];
+
+  return ([[cc userAgent] rangeOfString: @"CFNetwork"].location != NSNotFound
+          && [[cc userAgent] rangeOfString: @"Darwin"].location != NSNotFound);
+}
+
 @end