From: helge <helge@e4a50df8-12e2-0310-a44c-efbce7f8a7e3>
Date: Thu, 5 May 2005 15:22:01 +0000 (+0000)
Subject: added Perl HTTP::DAV as a known WebDAV client
X-Git-Url: https://err.no/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c7ef311686318b2008e9d08f92239c64f6c13f85;p=sope

added Perl HTTP::DAV as a known WebDAV client


git-svn-id: http://svn.opengroupware.org/SOPE/trunk@796 e4a50df8-12e2-0310-a44c-efbce7f8a7e3
---

diff --git a/sope-appserver/NGObjWeb/ChangeLog b/sope-appserver/NGObjWeb/ChangeLog
index 1cb388b7..af8f40c1 100644
--- a/sope-appserver/NGObjWeb/ChangeLog
+++ b/sope-appserver/NGObjWeb/ChangeLog
@@ -1,3 +1,8 @@
+2005-05-05  Helge Hess  <helge.hess@opengroupware.org>
+
+	* WEClientCapabilities.m: added Perl HTTP::DAV as a known WebDAV user
+	  agent (v4.5.160)
+
 2005-05-03  Helge Hess  <helge.hess@skyrix.com>
 
 	* Templates/WOApplication+Builders.m: fixed a typo (v4.5.159)
diff --git a/sope-appserver/NGObjWeb/Version b/sope-appserver/NGObjWeb/Version
index adab951a..21496a2b 100644
--- a/sope-appserver/NGObjWeb/Version
+++ b/sope-appserver/NGObjWeb/Version
@@ -1,6 +1,6 @@
 # version file
 
-SUBMINOR_VERSION:=159
+SUBMINOR_VERSION:=160
 
 # v4.5.122 requires libNGExtensions v4.5.153
 # v4.5.91  requires libNGExtensions v4.5.134
diff --git a/sope-appserver/NGObjWeb/WEClientCapabilities.m b/sope-appserver/NGObjWeb/WEClientCapabilities.m
index c6156dcc..e0b96bbd 100644
--- a/sope-appserver/NGObjWeb/WEClientCapabilities.m
+++ b/sope-appserver/NGObjWeb/WEClientCapabilities.m
@@ -68,6 +68,7 @@
 #define WEUA_Ecto             38
 #define WEUA_NewsFire         39
 #define WEUA_Goliath          40
+#define WEUA_PerlHTTPDAV      41
 
 #define WEOS_UNKNOWN   0
 #define WEOS_WINDOWS   1
@@ -232,6 +233,10 @@
     /* Adobe GoLive */
     self->browser = WEUA_GOLIVE;
   }
+  else if (strstr(ua, "DAV.pm")) {
+    /* Perl HTTP::DAV */
+    self->browser = WEUA_PerlHTTPDAV;
+  }
   else if (strstr(ua, "Darwin") != NULL && strstr(ua, "fetch/") != NULL) {
     /* MacOSX 10.0 DAV FileSystem */
     self->browser = WEUA_MACOSX_DAVFS;
@@ -431,6 +436,7 @@
     case WEUA_Ecto:             return @"Ecto";
     case WEUA_NewsFire:         return @"NewsFire";
     case WEUA_Goliath:          return @"Goliath";
+    case WEUA_PerlHTTPDAV:      return @"PerlHTTPDAV";
     default:                    return @"unknown";
   }
 }
@@ -537,7 +543,7 @@
 }
 
 - (BOOL)isXULBrowser {
-  if (self->browser == WEUA_Safari)
+  if (self->browser == WEUA_Safari) // TODO: Safari supports some XUL stuff
     return NO;
   if ((self->browser == WEUA_Netscape) && (self->browserMajorVersion >= 6))
     return YES;
@@ -586,6 +592,7 @@
   if (self->browser == WEUA_Entourage)        return YES;
   if (self->browser == WEUA_Morgul)           return YES;
   if (self->browser == WEUA_Goliath)          return YES;
+  if (self->browser == WEUA_PerlHTTPDAV)      return YES;
   return NO;
 }
 
@@ -1038,4 +1045,7 @@ static NSString *WEClientDetectorFormName = @"WEClientDetect";
   
   Goliath
     'Goliath/1.0.1 (Macintosh-Carbon; PPC)'
+
+  PERL HTTP::DAV
+    'DAV.pm/v0.31'
 */