SB :
Code: Select all
Procedure HttpGetEvent(Success, Result$, UserData)
If Success
;Debug Result$
Else
Debug "HTTPRequest(): Error"
EndIf
EndProcedure
NewMap Headers$()
Headers$("x-customheader") = "test"
Headers$("x-customvalue") = "10"
HTTPRequest(#PB_HTTP_Get, "http://localhost/no/state", "", @HttpGetEvent(), 0, Headers$())
Code: Select all
If Not InitCGI()
End
EndIf
If Not InitFastCGI(5600)
End
EndIf
While WaitFastCGIRequest()
Debug "Request! x-customheader value : " + CGIVariable("HTTP_X_CUSTOMHEADER")
If ReadCGI()
WriteCGIHeader(#PB_CGI_HeaderContentType, "text/plain", #PB_CGI_LastHeader)
WriteCGIString("meh")
EndIf
Wend