Scol

h1. Requete POST and base64

How to send datas using base64 encoding by a POST request ?

* Base64-encoded data takes about 33% more space than the original data. 

* This encoding is designed to make binary data survive transport through transport layers that are not 8-bit clean, such as mail bodies.

You should know how to send a POST request : [[Request_POST]] before continue

In Scol, to encode to base64, use "_base64_encode_":http://www.scolring.org/files/doc_html/not_doc.html#kernel function.

<pre>

base64_encode : fun [S] S

</pre>

The first step is the encoding. The second step should be the conversion from any character to _web_ character : "_strtoweb_":http://www.scolring.org/files/doc_html/strtoweb.html

<pre>

strtoweb : fun [S] S

</pre>

This example sends an image to a server (via a PHP script).

<pre>

fun CBreceive (inet, u, data, err)=

  if err == 0 then

  (

    _fooS strcat ">>>>>>>CBreceive current>>>>>>> " data;

    let u -> [s] in

    mutate u <- [strcat s data];

    0

  )

  else if err == 1 then

  (

    let u -> [s] in

    _fooS strcat ">>>>>>>CBreceive end>>>>>>> " s;

    _closemachine

  )

  else

  (

    _fooS strcat ">>>>>>>CBreceive err>>>>>>> " itoa err;

    0

  );;

fun main ()=

  _showconsole;

  let _getpack _checkpack "examples/image.jpg" -> file in  // get the file content

  let base64_encode file -> file64 in  // encode to base64

  let strtoweb file64 -> file64web in  // convert to web character

  let "http://domin.tld/post.php" -> url in

  let strcat "image=" file64web -> data in

  INETGetURLex2 _channel "POST" url "content-type: application/x-www-form-urlencoded" data 0 @CBreceive [""];

  0;;

</pre>

* With the SYSPACK API, you can use _base64encodePweb_ :

<pre>

fun CBreceive (inet, u, data, err)=

  // the same thing than above

  0;;

fun main ()=

  _showconsole;

  let _getpack _checkpack "examples/image.jpg" -> file in  // get the file content

  let base64encodePweb file -> file64web in  // encode to base64 and convert it

  let "http://domin.tld/post.php" -> url in

  let strcat "image=" file64web -> data in

  INETGetURLex2 _channel "POST" url "content-type: application/x-www-form-urlencoded" data 0 @CBreceive [""];

  0;;

</pre>

_base64encodePweb_ seems slightly faster than _base64_encode_ and _strtoweb_. _base64encodePweb_ is based from the PHP source code.

Author : iri

Date   : december 2011

*Return to [[Examples]]*