tracker-url ( metainfo -- url )

Vocabulary

bittorrent

Inputs

metainfo

an object

Outputs

url

an object

Definition

USING: assocs combinators namespaces sequences urls ;

IN: bittorrent

: tracker-url ( metainfo -- url )
    {
        [ announce-url >url ]
        [
            info-hash "info_hash" set-query-param
            torrent-peer-id get "peer_id" set-query-param
            torrent-port get "port" set-query-param
            0 "uploaded" set-query-param
            0 "downloaded" set-query-param
            1 "compact" set-query-param
        ]
        [
            { "info" "length" } [ of ] each
            "left" set-query-param
        ]
    } cleave ;