tcllib/modules/rest/yboss


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

# documentation: http://developer.yahoo.com/search/boss/boss_guide/

package require rest

set yboss(web) {
   url http://boss.yahooapis.com/ysearch/web/v1/%query%
   req_args { appid: }
   opt_args { start: count: lang: region: sites: filter: type: }
   post_transform { return [dict get $result ysearchresponse] }
   check_result { {[dict get $result responsecode] == "200"} {} }
}

set yboss(news) {
   url http://boss.yahooapis.com/ysearch/news/v1/%query%
   req_args { appid: }
   opt_args { start: count: lang: region: sites: age: }
   post_transform { return [dict get $result ysearchresponse] }
   check_result { {[dict $result responsecode] == "200"} {} }
}

set yboss(images) {
   url http://boss.yahooapis.com/ysearch/images/v1/%query%
   req_args { appid: }
   opt_args { start: count: lang: region: sites: filter: dimensions: refererurl: url: }
   post_transform { return [dict get $result ysearchresponse] }
   check_result { {[dict $result responsecode] == "200"} {} }
}

set yboss(spelling) {
   url http://boss.yahooapis.com/ysearch/spelling/v1/%query%
   req_args { appid: }
   post_transform { return [dict get $result ysearchresponse] }
   check_result { {[dict $result responsecode] == "200"} {} }
}

rest::create_interface yboss