Allow binary data in response

[jonathanstowe]

Hi Jonathan,

I am having trouble serving binary files with FastCGI::NativeCall::PSGI

I have traced this through to a call to XS_Print which takes a C-style string, so there seems to be no way to send binary data via FastCGI::NativeCall.

I have successfully hacked around it by adding a XS_Write that takes a length argument (and a Write method that takes a Blob instead of Str.) I am just wondering if I missed something and I'm using the API wrong, or if this is actually a missing feature.

Regards
Aleks

[jonathanstowe]

It's make the Print method a multi and alter the XS_print

[aleksb]

This is what I added to XS.c

int XS_Write(void *buf, int len, FCGX_Request *request)
{
        int ret;
        if (!request->out)
                return -1;
        ret = FCGX_PutStr(buf, len, request->out);
        return ret;
}

and NativeCall.rakumod:

method Write(Blob $content) {
    XS_Write(nativecast(Pointer, $content), $content.bytes, $!fcgx_req);
}

Maybe a multimethod would be better.