Skip to content

Commit

Permalink
[cHttpRequest] Make function SetCookie public
Browse files Browse the repository at this point in the history
  • Loading branch information
wqweto committed Jun 3, 2023
1 parent 1deccdf commit f6a4d1a
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 5 deletions.
4 changes: 2 additions & 2 deletions contrib/cHttpRequest.cls
Original file line number Diff line number Diff line change
Expand Up @@ -881,7 +881,7 @@ Private Function pvRecvHeaders(baData() As Byte, uResponse As UcsResponseType, u
End If
If pvIsEqual(CStr(vElem(0)), HDR_SET_COOKIE) Then
With pvParseHeaderAttribs(vElem(1))
pvSetCookie .Item("domain"), .Item("path"), .Item(0)
SetCookie .Item("domain"), .Item("path"), .Item(0)
End With
End If
Else
Expand Down Expand Up @@ -1730,7 +1730,7 @@ Private Function pvToStringAndFree(ByVal lPtr As Long) As Variant
End If
End Function

Private Function pvSetCookie(ByVal sDomain As String, ByVal sPath As String, ByVal sValue As String)
Public Function SetCookie(ByVal sDomain As String, ByVal sPath As String, ByVal sValue As String)
Dim oCol As Collection

If Left$(sDomain, 1) = "." Then
Expand Down
6 changes: 3 additions & 3 deletions contrib/dll/HttpRequest.vbp
Original file line number Diff line number Diff line change
Expand Up @@ -11,18 +11,18 @@ ExeName32="HttpRequest.dll"
Command32=""
Name="HttpRequest"
HelpContextID="0"
Description="Http Request Replacement (1.0.4)"
Description="Http Request Replacement (1.0.5)"
CompatibleMode="2"
CompatibleEXE32="HttpRequest.cmp"
VersionCompatible32="1"
MajorVer=1
MinorVer=0
RevisionVer=4
RevisionVer=5
AutoIncrementVer=0
ServerSupportFiles=0
DllBaseAddress=&H26e20000
VersionCompanyName="wqweto@gmail.com"
VersionFileDescription="Http Request Replacement (1.0.4)"
VersionFileDescription="Http Request Replacement (1.0.5)"
VersionProductName="HttpRequest"
CompilationType=0
OptimizationType=0
Expand Down

0 comments on commit f6a4d1a

Please sign in to comment.