kaggle-email-sign-in ( json -- json' )

Vocabulary

kaggle

Inputs

json

an object

Outputs

json'

an object

Definition

USING: accessors assocs discord hashtables http http.client
kernel ;

IN: kaggle

: kaggle-email-sign-in ( json -- json' )
    [
        "https://www.kaggle.com/account/login" http-get drop
        cookies>> [
            "XSRF-TOKEN" find-cookie-by-name
            [ value>> "X-XSRF-TOKEN" associate ] [ H{ } clone ]
            if*
        ] [ ] bi
    ] dip
    "/users.LegacyUsersService/EmailSignIn" >kaggle-internal-url
    <post-request>
    "https://www.kaggle.com/account/login?phase=emailSignIn&return..."
    "referer" set-header swap >>cookies swap
    [ swap set-header ] assoc-each json-request ;