- a delicious api
16 Jan 2012 — m-%dT%TZ"]
} else {
lappend query [lindex $opt 0] [lindex $opt 1]
}
}
}
append blah [eval ::http::formatQuery $query]
}
proc delicious::get_posts {args} {
set url https://api.del.icio.us/v1/posts
- a rest framework
26 Jun 2016 — proc "set query [::${name}::[dict get $config sign] \$query]"
} else {
lappend proc "set query \[eval ::http::formatQuery \$query]"
}
lappend proc "set result \[::rest::_call \$headers \$url \$query \$body]"
if {[dict exists $config
- A Tcl repository
07 Feb 2018 — We pass the pattern, but the repository MAY ignore it
set token [http::geturl $repository?[http::formatQuery pat $pattern]]
if {![string match 2?? [http::ncode $token]]} {
set msg [join [lrange [split [http
- Akismet spam filtering
07 Jan 2018 — rest.akismet.com/1.1/$type \
-headers [list User-Agent "$app | akismet.tcl/$ver"] \
-query [http::formatQuery blog $blog {*}$args]]
set ncode [http::ncode $token]
set data [http::data $token]
http::cleanup
- An HTTP robot in Tcl
16 Oct 2013 — http man page is a good place to read up on these commands
set query [::http::formatQuery ctystzip $zipcode]
set http [::http::geturl $url -query $query]
set html [::http::data $http]
# we
- Ask, and it shall be given # 1
13 Jul 2018 — and the form name strings of interest, so I used the lines below:
======
set query [http::formatQuery UserName $user Password $passwd]
set http [::http::geturl $url -query $query]
======
However, I believe the
- Ask, and it shall be given # 12
28 Jun 2018 — tcl source {httpCopyDone httpCopyStart httpEof httpEvent httpFinish httpMapReply httpProxyRequired http_code http_config http_data http_formatQuery http_get http_reset http_size http_status http_wait}}}
======
If you just want the
- CGI script to edit csv file
23 Mar 2017 — order back $::back readonly $::readonly mtime $::mtime filter $::filter
return "<a href=\"[ncgi::urlStub]?[eval http::formatQuery $args]\">$title</a>"
}
# Baut Argumentliste für Links auf: link?var1=value1&var2=value2..., aber OHNE
- CkChat
20 Nov 2013 — fetch_id
if {!$connected} {
bell
log "\nCannot poll; not currently connected." system
return
}
set query [::http::formatQuery \
action stillalive \
name $username \
password $password \
color 000000 \
updatefrequency 600 \
new_msg_on_top 0
- Cookies
07 Jul 2012 — to log in to an [OpenACS] 3.x server:
'''Login'''
package require http
set login [::http::formatQuery email spammer@hotmail.com password fooFoo!]
set tok [::http::geturl http://mysite.net/register/user
- Downloading your utility usage from Pacific Gas and Electric using TCL
22 Nov 2011 — usage {month user pass} {
set t [http::geturl "https://www.pge.com/eum/login" -query [http::formatQuery USER $user PASSWORD $pass pass_placeholder Password TARGET https://www.pge.com/myenergyweb/appmanager/pge
- Google AJAX search API
24 Jan 2008 — package require http
package require json
set url "http://google.com/uds/GwebSearch?"
append url [::http::formatQuery callback GwebSearch.RawCompletion context 0 lstkp 0 rsz large hl en sig $api_key q
- Google Translate ajax API
31 Mar 2010 — json
proc g_translate {to_translate} {
set api_key "<your API key here>"
set q [::http::formatQuery sig $api_key q $to_translate v 1.0 ]
set url "http://ajax.googleapis.com
- Google Translation via http Module
12 Feb 2015 — output;
flush stdout;
return;
}
proc translate {text {source en} {destination de}} {
variable postUrl;
set query [http::formatQuery \
hl en \
ie UTF8 \
text $text \
langpair $source|$destination \
];
if {[catch {
set post [http::geturl
- Gravatar
20 Oct 2010 — params d $default
}
if {$rating != ""} {
lappend params r $rating
}
if {[llength $params] > 0} {
append url ?[::http::formatQuery {*}$params]
}
return $url
}
proc ::gravatar::get_secure_url {mail {size 0} {default ""} {rating ""}} {
set url
- How to edit Wikit pages with Emacs
17 May 2006 — proc sendpage {wikiurl N text} {
set answer [http_data [http_get $wikiurl/$N.html \
-query [http_formatQuery C $text]]]
}
proc emacsheader {argv0 wikiurl N} {
return \
"; To send back the edited version, place
- http
03 Oct 2018 — end -1c}]
set login [::http::formatQuery mode login user $::email password $::tpswd ]
set log [http::geturl http://www.tumblr.com/api/authenticate -query $login]
set post [http::formatQuery mode postevent auth_method
- http::formatQuery
11 May 2014 — http::formatQuery umlaut1 ä umlaut2 ö umlaut3 Ü
umlaut1=%c3%a4¨aut2=%c3%b6¨aut3=%c3%9c
% package require ncgi
1.3.2
% ncgi::encode äöÜ
%E4%F6%DC
======
Does http::formatQuery
- Last.FM
21 Jan 2011 — authtoken [string tolower [::md5::md5 -hex [string tolower [::md5::md5 -hex $password]]$timestamp]]
set query [::http::formatQuery hs true p 1.2.1 c tst v 1.0 u $user t $timestamp
- Last.fm cover grabber
27 Aug 2013 — http::formatQuery method $method api_key $api_key artist $artist]
return [___requestData $query]
}
#album.getinfo
proc ___albumGetInfo {artist album} {
global api_key
global user
set method "album.getinfo"
set query [::http::formatQuery
- List of Tcl commands by bytecode status
22 Apr 2014 — history nextid]
[history redo]
[http]
http::cleanup
http::code
http::config
http::data
http::error
http::formatQuery
[http::geturl]
http::meta
http::ncode
http::register
http::reset
http::size
http::status
http
- Matthias Hoffmann
10 Oct 2018 — tk/tclkit.html
* [TIP #305: ANSI Escape Sequence Support for Windows's Console Channel Driver]
* [http::formatQuery]
* [Problems with Tclkitsh 8.5.7]
* [exec on windows oddity?]
* [Icons for Tclkit 8.5
- Poor Yorick
06 Sep 2018 — api.github.com/$::github_repo/$api?$query_string \
-headers [list Authorization "Basic $::github_auth"] \
-query [http::formatQuery {*}$args]]
json::json2dict [http::data $http]
}
proc new_github_issue {title body} {
set query [json
- pop3line
29 Jul 2011 — password" name='([^']*)'} $data -> passfield
debug SID $id
debug NAME $logfield
debug PASS $passfield
set query [http::formatQuery js 0 \
sessionid $id \
$logfield $::login \
$passfield $::password]
# message overview
debug URL $BASE/main.cgp
- Posting to Google's Blogger
27 Jun 2008 — blogger
source <your_company-service-version>
}
::http::register https 443 ::tls::socket
set query [eval ::http::formatQuery [array get login]]
# by specifying the -query option http::geturl sends a POST instead of
- Retrieving movie information from IMDB
28 Aug 2011 — useragent $ua
# don't manually build query strings http can do it better
set query [http::formatQuery btnI "I'm Feeling Lucky" q "site:imdb.com $input"]
set http [http::geturl http
- samoc
29 Jul 2014 — Tcl user since 1995.
`http::formatQuery` patch for RFC 3986 compliance: http://core.tcl.tk/tcl/tktview?name=3498327
`aes::aes` patch for input beginning with `0x2D`: http://core.tcl.tk/tcllib
- Signing a JWT header for Google OAuth2
12 Feb 2015 — sig [base64_url_encode [::pki::sign $signature $key sha256]]
set final "$signature.$sig"
set postdata [::http::formatQuery grant_type "urn:ietf:params:oauth:grant-type:jwt-bearer" assertion $final]
::http::register https
- Sitemap Validator
20 Apr 2006 — using -*-Tcl-*-sh \
exec tclsh "$0" ${1+"$@"}
package require http
proc validate {url} {
set query [::http::formatQuery uri $url]
set p [::http::geturl http://validator.w3.org/check?$query]
upvar 0 $p
- Slashdot MetaModeration
01 Oct 2004 — p}]
if { $fair } {
set choice +
} else {
set choice -
}
lappend q [http::formatQuery $mm $choice]
puts "Posting $mm: $choice"
}
lappend q [http::formatQuery op MetaModerate]
set q [join $q "&"]
set tok3 [::http::geturl
- SMS
13 Jun 2009 — provider?] {
"OgVodafone" {
# send the text message
set token [http::geturl "http://www.ogvodafone.is/" -query \
[http::formatQuery "_ctl1:_oContentSection:_ctl4:txtTelno" [string range $phonenumber 4 end] \
"_ctl1:_oContentSection:_ctl4:txtSMS" [string range
- Speech Synthesis, or Talk to me Tcl
06 May 2012 — KATE_DB
set email somename@mail.ru
set accountId 1234567890
set loginPassword somepassword
set str [::http::formatQuery text $str]
set url "https://tts.neospeech.com/rest_1_1.php?method=ConvertSimple&email
- SQL JSP Tcl Responder
22 Jan 2010 — running.
package require http
puts "--------------------------------SQL JSP Tcl Responder--------------------------------------------------------------"
# Format the JSP URL
set postData [::http::formatQuery sqlquery "Select * from Orders" connection "jdbc:odbc:Northwind" username sa password "" querytype select maxrows 50
- TcLeo
21 Oct 2008 — tdcounter) $item
}
}
}
}
proc query {query} {
variable table
set url http://pda.leo.org
set query [http::formatQuery search $query]
set tok [::http::geturl $url -query $query]
foreach line [split [::http::data $tok
- tinyurl
08 Feb 2013 — The URL to be made tiny
# out: The tiny URL
#
proc TinyURL {url} {
set query [::http::formatQuery url $url]
set token [::http::geturl http://tinyurl.com/create.php -query $query]
if {[::http
- TkMapper
19 Aug 2013 — UI(csz) == ""} return
Init
set url "http://maps.yahoo.com/py/maps.py?"
append url [::http::formatQuery addr $UI(addr) csz $UI(csz)]
INFO "fetching $url"
#set token [::http::geturl $url]
set
- Twitter
02 Jul 2018 — auth POST $url $req $secret]
set tok [http::geturl $url -headers [list Authorization $oauth] \
-query [http::formatQuery status $str]]
puts [http::code $tok]
http::cleanup $tok
}
tweet "Hello, World!"
======
If your application