file transfer API

[Jorge]

Implement a TOL API in order to perform file transfer operations. Consider an implementation based on ​http://personal1.iddeo.es/andresgarci/tclcurl/english/

[Jorge]

(In [2298]) refs #927, including package TclCurl

[Jorge]

(In [2299]) refs #927, implementing Curl::Get

[Jorge]

(In [2301]) refs #927, trick to ensure tcl code is evaluated before invoking any Curl API

[Jorge]

(In [2303]) refs #927, including Curl API

[Víctor de Buen Remiro]

Cuando se le pasan parámetros correctos lo hace todo bien sin problemas, o al menos eso parece, pero si le paso un path local que no existe me devuelve omitido y si le paso una URL que no existe entonces devuelve cierto, cuando debería devolver falso en ambos casos.

En el caso de haber problemas en ejecutar la orden debería mostrar algún mensaje explicativo de porqué ha fallado, pero eso sí de forma opcional, controlada por un argumento extra Real showMsg, porque a veces puede usarse esta herramienta sólo para saber si existe algo.

Quizás habría que ver qué otras capacidades ofrece el TclCurl para saber si existe o no una URL, leer directorios remotos, fechas de última actualización, etc.; lo cual le daría un gran valor añadido.

[Jorge]

(In [2356]) refs #927:

• Curl renamed to CurlApi
• Get renamed to GetUrl
• GetUrl now return a Set with the following elements:
  • Rail failStatus : 0 if not fail otherwise contain the error code
  • Text explain: this item only appear if failStatus != 0 and contains the error description
  • if failStatus == 0 then the following items are returned:
    • Real fileTime
    • Real totalTime
    • Real connectTime
    • Real sizeDownload
    • Real speedDownload

[Víctor de Buen Remiro]

(In [2371]) Refs #927
Renaming Curl to CurlApi and Curl::Get to CurlApi::GetUrl

[Jorge]

(In [2387]) refs #927, in case of error the field status should be named as failStatus

[Jorge]

Consider the implementation of upload operation.

[Víctor de Buen Remiro]

No hay ninguna descripción y la API es inesxcrutable.
No hay forma de averiguar que argumentos espera ni qué cosa devuelve.

Set GetUrl( NameBlock args )

[Jorge]

(In [3575]) - puede resolver #1166

• fixes #927
• el loop de 1 a 100 del ticket #1207 no falla, al menos en linux, habria que reescribirlo asi:

  Set For(1, 100, Set (Real i) {
    WriteLn(""<<i);
    Set CurlApi::GetUrl(
    [[ Text url = "http://packages.tol-project.org/OfficialTolArchiveNetwork/"
      "repository.php?tol_package_version=1.1&tol_version=v2.0.1%20b.4&"
      "action=ping&key=658184943" ]]
    )});
  

[Víctor de Buen Remiro]

(In [3579]) Fixes #1207
Refs #927