asp til php (poste xml fil til ssl url)

Er der nogen der kan oversættet følgen asp kode til php? Har prøvet at oversætte med asptophp, men fik ikke et brugbart resultat.
<%
    dim xml
    Response.Buffer = True
    'Response.ContentType = "text/xml"

    if not isEmpty(request("file")) then
        Set xml = Server.CreateObject("Microsoft.XMLHTTP")
        xml.Open "POST", "https://www.server.com/secure/api.asp", false
        xml.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   
        vcXML = ReadTextFile(Server.MapPath(request("file")))
   
        xml.Send "xml=" & server.URLEncode(vcXML)
   
        response.write xml.ResponseText
   
        set xml = Nothing
    else
%>
sample_list.xml: <a href="sample_list.xml">Se input-fil</a> - <a href="<%= request.servervariables("SCRIPT_NAME") %>?file=sample_list.xml">Send til API</a><br>
<%
    end if

    function ReadTextFile (vcFile)
        dim fso, f
        dim vcBody

        set fso = Server.CreateObject ("Scripting.FileSystemObject")
        set f = fso.OpenTextFile (vcFile, 1)
        vcBody = f.ReadAll()
        f.Close()
        set f = nothing
        set fso = nothing

        ReadTextFile = vcBody
    end function
%>

mvh.