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 1cb388b7acc90c148b2b414d070c302be1c4eec3..af8f40c1149550a3425bf8fb507764680722d3a4 100644 (file)
--- 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 adab951afe7a62d785fd195e299718076e0b0103..21496a2b943b7f10a3e529c4b30bbfb9294236ce 100644 (file)
--- 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 c6156dccb428f46614249c23de3f71d0cd29ac61..e0b96bbd726560977af1bf1f728e7cf806429a8a 100644 (file)
--- 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'
 */