!!!!$T configure -state disabled

    set post [http::formatQuery paste_code $CODE \
    paste_format $LANG paste_name $NAME]

    set token [http::geturl $URL -query $post \
        -command [list ${NS}::http_complite $T]]
    http::wait $token

    if [string equal [http::status $token] ok] {
        add_history "[get_time]\t$LANG - \
            [http::data $token]:\n\n$HISTORY\
            \n...\n[string repeat _ 20]\n\n"
    }

    http::cleanup $token
}