scrape-url ( metainfo -- url/f )

Vocabulary

bittorrent

Inputs

metainfo

an object

Outputs

url/f

an object

Definition

USING: accessors kernel sequences splitting ;

IN: bittorrent

: scrape-url ( metainfo -- url/f )
    announce-url dup path>> "announce" subseq-of?
    [ [ "announce" "scrape" replace ] change-path ] [ drop f ]
    if ;