From 40144dc4027e934a8f485fb16ba44771a0db6602 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Mon, 18 Mar 2013 16:59:27 -0700 Subject: [PATCH] TIPClientHTTP - Added method delete() to post the http verb DELETE required for RESTful implementations. --- contrib/hbtip/httpcli.prg | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/contrib/hbtip/httpcli.prg b/contrib/hbtip/httpcli.prg index a72f3c4bd7..9d18fc242a 100644 --- a/contrib/hbtip/httpcli.prg +++ b/contrib/hbtip/httpcli.prg @@ -70,6 +70,7 @@ CREATE CLASS TIPClientHTTP FROM TIPClient METHOD Get( cQuery ) METHOD Post( xPostData, cQuery ) METHOD Put( xPostData, cQuery ) + METHOD Delete( xPostData, cQuery ) METHOD ReadHeaders( lClear ) METHOD Read( nLen ) METHOD UseBasicAuth() INLINE ::cAuthMode := "Basic" @@ -123,6 +124,10 @@ METHOD Put( xPostData, cQuery ) CLASS TIPClientHTTP RETURN ::postByVerb( xPostData, cQuery, "PUT" ) +METHOD Delete( xPostData, cQuery ) CLASS TIPClientHTTP + + RETURN ::postByVerb( xPostData, cQuery, "DELETE" ) + METHOD PostByVerb( xPostData, cQuery, cVerb ) CLASS TIPClientHTTP LOCAL cData, nI, cTmp, y