annotate src/luan/modules/url/LuanUrl.java @ 780:6a87d51ae0ed

allow parameters for HTTP DELETE
author Franklin Schmidt <fschmidt@gmail.com>
date Mon, 29 Aug 2016 21:47:19 -0600
parents 1a68fc55a80c
children a04da9a3e9eb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
725
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
1 package luan.modules.url;
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
2
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
3 import java.io.InputStream;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
4 import java.io.InputStreamReader;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
5 import java.io.OutputStream;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
6 import java.io.Reader;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
7 import java.io.IOException;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
8 import java.io.UnsupportedEncodingException;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
9 import java.net.URL;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
10 import java.net.URLConnection;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
11 import java.net.HttpURLConnection;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
12 import java.net.URLEncoder;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
13 import java.util.Map;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
14 import java.util.HashMap;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
15 import java.util.List;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
16 import java.util.Base64;
733
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
17 import luan.Luan;
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
18 import luan.LuanState;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
19 import luan.LuanTable;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
20 import luan.LuanJavaFunction;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
21 import luan.LuanException;
725
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
22 import luan.modules.IoLuan;
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
23 import luan.modules.Utils;
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
24
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
25
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
26 public final class LuanUrl extends IoLuan.LuanIn {
725
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
27
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
28 private static enum Method { GET, POST, DELETE }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
29
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
30 private URL url;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
31 private Method method = Method.GET;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
32 private Map headers;
725
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
33 private String content = null;
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
34 private MultipartClient multipart = null;
733
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
35 private int timeout = 0;
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
36
725
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
37 public LuanUrl(LuanState luan,URL url,LuanTable options) throws LuanException {
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
38 this.url = url;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
39 if( options != null ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
40 Map map = options.asMap(luan);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
41 String methodStr = getString(map,"method");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
42 if( methodStr != null ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
43 methodStr = methodStr.toUpperCase();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
44 try {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
45 this.method = Method.valueOf(methodStr);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
46 } catch(IllegalArgumentException e) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
47 throw new LuanException( "invalid method: "+methodStr );
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
48 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
49 }
723
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
50 Map headerMap = getMap(luan,map,"headers");
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
51 if( headerMap != null ) {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
52 headers = new HashMap();
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
53 for( Object hack : headerMap.entrySet() ) {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
54 Map.Entry entry = (Map.Entry)hack;
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
55 String key = (String)entry.getKey();
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
56 Object val = entry.getValue();
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
57 String name = toHttpHeaderName(key);
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
58 if( val instanceof String ) {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
59 headers.put(name,val);
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
60 } else {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
61 if( !(val instanceof LuanTable) )
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
62 throw new LuanException( "header '"+key+"' must be string or table" );
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
63 LuanTable t = (LuanTable)val;
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
64 if( !t.isList() )
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
65 throw new LuanException( "header '"+key+"' table must be list" );
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
66 headers.put(name,t.asList());
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
67 }
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
68 }
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
69 }
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
70 Map auth = getMap(luan,map,"authorization");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
71 if( auth != null ) {
723
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
72 if( headers!=null && headers.containsKey("Authorization") )
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
73 throw new LuanException( "can't define authorization with header 'Authorization' defined" );
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
74 String user = getString(auth,"user");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
75 String password = getString(auth,"password");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
76 if( !auth.isEmpty() )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
77 throw new LuanException( "unrecognized authorization options: "+auth );
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
78 StringBuilder sb = new StringBuilder();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
79 if( user != null )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
80 sb.append(user);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
81 sb.append(':');
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
82 if( password != null )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
83 sb.append(password);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
84 String val = "Basic " + Base64.getEncoder().encodeToString(sb.toString().getBytes());
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
85 if( headers == null )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
86 headers = new HashMap();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
87 headers.put("Authorization",val);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
88 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
89 Map params = getMap(luan,map,"parameters");
726
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
90 String enctype = getString(map,"enctype");
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
91 if( enctype != null ) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
92 if( !enctype.equals("multipart/form-data") )
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
93 throw new LuanException( "unrecognized enctype: "+enctype );
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
94 if( this.method!=Method.POST )
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
95 throw new LuanException( "multipart/form-data can only be used with POST" );
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
96 if( params==null )
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
97 throw new LuanException( "multipart/form-data requires parameters" );
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
98 if( params.isEmpty() )
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
99 throw new LuanException( "multipart/form-data parameters can't be empty" );
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
100 multipart = new MultipartClient(params);
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
101 }
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
102 else if( params != null ) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
103 StringBuilder sb = new StringBuilder();
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
104 for( Object hack : params.entrySet() ) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
105 Map.Entry entry = (Map.Entry)hack;
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
106 String key = (String)entry.getKey();
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
107 Object val = entry.getValue();
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
108 String keyEnc = encode(key);
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
109 if( val instanceof String ) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
110 and(sb);
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
111 sb.append( keyEnc ).append( '=' ).append( encode((String)val) );
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
112 } else {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
113 if( !(val instanceof LuanTable) )
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
114 throw new LuanException( "parameter '"+key+"' must be string or table" );
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
115 LuanTable t = (LuanTable)val;
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
116 if( !t.isList() )
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
117 throw new LuanException( "parameter '"+key+"' table must be list" );
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
118 for( Object obj : t.asList() ) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
119 if( !(obj instanceof String) )
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
120 throw new LuanException( "parameter '"+key+"' values must be strings" );
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
121 and(sb);
726
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
122 sb.append( keyEnc ).append( '=' ).append( encode((String)obj) );
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
123 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
124 }
726
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
125 }
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
126 if( this.method==Method.POST ) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
127 content = sb.toString();
780
6a87d51ae0ed allow parameters for HTTP DELETE
Franklin Schmidt <fschmidt@gmail.com>
parents: 775
diff changeset
128 } else {
726
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
129 String urlS = this.url.toString();
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
130 if( urlS.indexOf('?') == -1 ) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
131 urlS += '?';
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
132 } else {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
133 urlS += '&';
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
134 }
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
135 urlS += sb;
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
136 try {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
137 this.url = new URL(urlS);
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
138 } catch(IOException e) {
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
139 throw new RuntimeException(e);
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
140 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
141 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
142 }
733
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
143 Integer timeout = getInt(map,"time_out");
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
144 if( timeout != null )
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
145 this.timeout = timeout;
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
146 if( !map.isEmpty() )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
147 throw new LuanException( "unrecognized options: "+map );
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
148 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
149 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
150
723
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
151 public static String toHttpHeaderName(String luanName) {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
152 luanName = luanName.toLowerCase();
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
153 StringBuilder buf = new StringBuilder();
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
154 boolean capitalize = true;
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
155 char[] a = luanName.toCharArray();
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
156 for( int i=0; i<a.length; i++ ) {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
157 char c = a[i];
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
158 if( c == '_' || c == '-' ) {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
159 a[i] = '-';
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
160 capitalize = true;
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
161 } else if( capitalize ) {
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
162 a[i] = Character.toUpperCase(c);
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
163 capitalize = false;
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
164 }
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
165 }
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
166 return String.valueOf(a);
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
167 }
eaf30d5aaf6a handle url headers
Franklin Schmidt <fschmidt@gmail.com>
parents: 722
diff changeset
168
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
169 private static void and(StringBuilder sb) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
170 if( sb.length() > 0 )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
171 sb.append('&');
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
172 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
173
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
174 private static String encode(String s) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
175 try {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
176 return URLEncoder.encode(s,"UTF-8");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
177 } catch(UnsupportedEncodingException e) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
178 throw new RuntimeException(e);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
179 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
180 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
181
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
182 private static String getString(Map map,String key) throws LuanException {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
183 Object val = map.remove(key);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
184 if( val!=null && !(val instanceof String) )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
185 throw new LuanException( "parameter '"+key+"' must be a string" );
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
186 return (String)val;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
187 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
188
733
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
189 private static Integer getInt(Map map,String key) throws LuanException {
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
190 Object val = map.remove(key);
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
191 if( val==null )
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
192 return null;
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
193 Integer i = Luan.asInteger(val);
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
194 if( i==null )
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
195 throw new LuanException( "parameter '"+key+"' must be an integer" );
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
196 return i;
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
197 }
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
198
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
199 private static LuanTable getTable(Map map,String key) throws LuanException {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
200 Object val = map.remove(key);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
201 if( val!=null && !(val instanceof LuanTable) )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
202 throw new LuanException( "parameter '"+key+"' must be a table" );
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
203 return (LuanTable)val;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
204 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
205
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
206 private static Map getMap(LuanState luan,Map map,String key) throws LuanException {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
207 LuanTable t = getTable(map,key);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
208 return t==null ? null : t.asMap(luan);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
209 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
210
725
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
211 @Override public InputStream inputStream() throws IOException, LuanException {
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
212 URLConnection con = url.openConnection();
733
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
213 if( timeout != 0 ) {
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
214 con.setConnectTimeout(timeout);
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
215 con.setReadTimeout(timeout);
ffbbe25dab09 add http option time_out
Franklin Schmidt <fschmidt@gmail.com>
parents: 726
diff changeset
216 }
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
217 if( headers != null ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
218 for( Object hack : headers.entrySet() ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
219 Map.Entry entry = (Map.Entry)hack;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
220 String key = (String)entry.getKey();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
221 Object val = entry.getValue();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
222 if( val instanceof String ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
223 con.addRequestProperty(key,(String)val);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
224 } else {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
225 List list = (List)val;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
226 for( Object obj : list ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
227 con.addRequestProperty(key,(String)obj);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
228 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
229 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
230 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
231 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
232 if( method==Method.GET ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
233 return con.getInputStream();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
234 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
235
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
236 HttpURLConnection httpCon = (HttpURLConnection)con;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
237
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
238 if( method==Method.DELETE ) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
239 httpCon.setRequestMethod("DELETE");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
240 return httpCon.getInputStream();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
241 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
242
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
243 // POST
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
244
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
245 // httpCon.setRequestProperty("Content-Type","application/x-www-form-urlencoded");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
246 httpCon.setDoOutput(true);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
247 httpCon.setRequestMethod("POST");
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
248
725
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
249 OutputStream out;
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
250 if( multipart != null ) {
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
251 out = multipart.write(httpCon);
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
252 } else {
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
253 byte[] post = content.getBytes();
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
254 // httpCon.setRequestProperty("Content-Length",Integer.toString(post.length));
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
255 out = httpCon.getOutputStream();
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
256 out.write(post);
a741a3a33423 add url support for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 723
diff changeset
257 }
726
14f136a4641f use enctype for multipart/form-data
Franklin Schmidt <fschmidt@gmail.com>
parents: 725
diff changeset
258 out.flush();
722
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
259 try {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
260 try {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
261 return httpCon.getInputStream();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
262 } catch(IOException e) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
263 InputStream is = httpCon.getErrorStream();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
264 if( is == null )
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
265 throw e;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
266 Reader in = new InputStreamReader(is);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
267 String msg = Utils.readAll(in);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
268 in.close();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
269 throw new LuanException(msg,e);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
270 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
271 } finally {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
272 out.close();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
273 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
274 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
275
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
276 @Override public String to_string() {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
277 return url.toString();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
278 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
279
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
280 @Override public String to_uri_string() {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
281 return url.toString();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
282 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
283 /*
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
284 public String post(String postS) throws IOException {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
285 return new UrlCall(url).post(postS);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
286 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
287
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
288 @Override public LuanTable table() {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
289 LuanTable tbl = super.table();
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
290 try {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
291 tbl.rawPut( "post", new LuanJavaFunction(
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
292 LuanUrl.class.getMethod( "post", String.class ), this
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
293 ) );
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
294 } catch(NoSuchMethodException e) {
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
295 throw new RuntimeException(e);
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
296 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
297 return tbl;
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
298 }
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
299 */
647602e8291a add url options
Franklin Schmidt <fschmidt@gmail.com>
parents:
diff changeset
300 }