From c7ef311686318b2008e9d08f92239c64f6c13f85 Mon Sep 17 00:00:00 2001 From: helge Date: Thu, 5 May 2005 15:22:01 +0000 Subject: [PATCH] added Perl HTTP::DAV as a known WebDAV client git-svn-id: http://svn.opengroupware.org/SOPE/trunk@796 e4a50df8-12e2-0310-a44c-efbce7f8a7e3 --- sope-appserver/NGObjWeb/ChangeLog | 5 +++++ sope-appserver/NGObjWeb/Version | 2 +- sope-appserver/NGObjWeb/WEClientCapabilities.m | 12 +++++++++++- 3 files changed, 17 insertions(+), 2 deletions(-) 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 + + * WEClientCapabilities.m: added Perl HTTP::DAV as a known WebDAV user + agent (v4.5.160) + 2005-05-03 Helge Hess * 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' */ -- 2.39.5