annotate http/httpRequestTest.k @ 13:0335cdd081d0 draft

modify HttpRequest.k
author Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date Mon, 28 May 2012 23:56:15 +0900
parents
children bc647a5f0421
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
13
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 include "HttpRequest.k"
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 void printResponse(InputStream in) {
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 print("print Response");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 while ( !in.isClosed() ) {
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 String ret = in.readLine();
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
9 OUT << ret << EOL;
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 }
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 }
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 void main(String[] args)
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 {
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 URL url = new URL("http://dimolto.cr.ie.u-ryukyu.ac.jp/~aotokage/post.php");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 HttpRequest r = new HttpRequest(url);
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 r.openConnection();
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 r.setMethod("POST");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 r.setRequestProperty("Connection","close");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 r.setRequestProperty("Accept-Charset","UTF-8");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 r.setRequestProperty("Cache-Control","no-cache");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 r.setRequestProperty("Accept-Language","en");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 r.setRequestProperty("Content-Type", "application/x-www-form-urlencoded");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 r.setBody("sub=AAAAAAAA&txt=BBB");
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 r.writeRequest();
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 r.printRequest();
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
28
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
29
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 InputStream in = r.getInputStream();
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 printResponse(in);
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 r.close();
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
33
0335cdd081d0 modify HttpRequest.k
Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 }