TclGoo

Check-in [d46df15780]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Removed debug
Timelines: family | ancestors | trunk
Files: files | file ages | folders
SHA1:d46df15780c9e0e828aa26d8e9ffcc50f1764993
User & Date: setok 2014-02-01 19:57:14
Context
2014-02-01
19:57
Removed debug Leaf check-in: d46df15780 user: setok tags: trunk
2014-01-07
18:21
Fetched the shortened version of an URL from Google's shortener check-in: f1dda5d765 user: setok tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tclGoo.tcl.

26
27
28
29
30
31
32
33
34
35
36
37
38
39
40


    proc shortenURL {url} {
        variable GooURL
        variable apiKey

        if {[info exists apiKey]} {
            puts "Got apikey"
            set requestURL "$GooURL?key=$apiKey"
        } else {
            set requestURL $GooURL
        }

        #set queryString [::http::formatQuery longUrl $url]








<







26
27
28
29
30
31
32

33
34
35
36
37
38
39


    proc shortenURL {url} {
        variable GooURL
        variable apiKey

        if {[info exists apiKey]} {

            set requestURL "$GooURL?key=$apiKey"
        } else {
            set requestURL $GooURL
        }

        #set queryString [::http::formatQuery longUrl $url]