1 // Copyright 2021 Ian Jackson and contributors to Hippotat
2 // SPDX-License-Identifier: GPL-3.0-or-later
3 // There is NO WARRANTY.
5 use hippotat::prelude::*;
6 use hippotat_macros::into_crlfs;
8 #[derive(StructOpt,Debug)]
17 type OutstandingRequest<'r> = Pin<Box<
18 dyn Future<Output=Option<Box<[u8]>>> + Send + 'r
21 impl<T> HCC for T where
22 T: hyper::client::connect::Connect + Clone + Send + Sync + 'static { }
23 trait HCC: hyper::client::connect::Connect + Clone + Send + Sync + 'static { }
25 struct ClientContext<'c,C> {
26 ic: &'c InstanceConfig,
27 hclient: &'c Arc<hyper::Client<C>>,
28 reporter: &'c parking_lot::Mutex<Reporter<'c>>,
38 fn submit_request<'r, 'c:'r, C:HCC>(
39 c: &'c ClientContext<C>,
41 reqs: &mut Vec<OutstandingRequest<'r>>,
44 let show_timeout = c.ic.http_timeout
45 .saturating_add(Duration::from_nanos(999_999_999))
48 let time_t = time_t_now();
49 let time_t = format!("{:x}", time_t);
50 let hmac = token_hmac(c.ic.secret.0.as_bytes(), time_t.as_bytes());
51 //dbg!(DumpHex(&hmac));
52 let mut token = time_t;
53 write!(token, " ").unwrap();
54 base64::encode_config_buf(&hmac, BASE64_CONFIG, &mut token);
56 let req_num = { *req_num += 1; *req_num };
58 let prefix1 = format!(into_crlfs!(
60 Content-Type: text/plain; charset="utf-8"
61 Content-Disposition: form-data; name="m"
72 c.ic.target_requests_outstanding,
79 let prefix2 = format!(into_crlfs!(
82 Content-Type: application/octet-stream
83 Content-Disposition: form-data; name="d"
87 let suffix = format!(into_crlfs!(
93 macro_rules! content { {
99 array::IntoIter::new([
103 if upbound.is_empty() { 1 } else { 2 }
105 Itertools::intersperse(
106 upbound.$iter().map(|u| { let out: $out = u.$into(); out }),
107 SLIP_END_SLICE.$into()
113 let body_len: usize = content!(
117 ).map(|b| b.len()).sum();
119 trace!("{} #{}: req; tx body_len={} frames={}",
120 &c.ic, req_num, body_len, upbound.len());
122 let body = hyper::body::Body::wrap_stream(
123 futures::stream::iter(
128 ).map(Ok::<Bytes,Void>)
132 let req = hyper::Request::post(&c.ic.url)
133 .header("Content-Type", r#"multipart/form-data; boundary="b""#)
134 .header("Content-Length", body_len)
136 .context("construct request")?;
138 let resp = c.hclient.request(req);
139 let fut = Box::pin(async move {
140 let r = async { tokio::time::timeout( c.ic.effective_http_timeout, async {
141 let resp = resp.await.context("make request")?;
142 let status = resp.status();
143 let mut resp = resp.into_body();
144 let max_body = c.ic.max_batch_down.sat() + MAX_OVERHEAD;
145 let resp = read_limited_bytes(
146 max_body, default(), default(), &mut resp
148 .discard_data().context("fetching response body")?;
150 if ! status.is_success() {
151 throw!(anyhow!("HTTP error status={} body={:?}",
152 &status, String::from_utf8_lossy(&resp)));
158 let r = c.reporter.lock().filter(Some(req_num), r);
160 if let Some(r) = &r {
161 trace!("{} #{}: rok; rx bytes={}", &c.ic, req_num, r.len());
163 tokio::time::sleep(c.ic.http_retry).await;
170 async fn run_client<C:HCC>(
172 hclient: Arc<hyper::Client<C>>
173 ) -> Result<Void, AE>
175 debug!("{}: config: {:?}", &ic, &ic);
177 let reporter = parking_lot::Mutex::new(Reporter::new(&ic));
179 let c = ClientContext {
185 let mut ipif = Ipif::start(&ic.ipif, Some(ic.to_string()))?;
187 let mut req_num: ReqNum = 0;
189 let mut tx_queue: VecDeque<TxQueued> = default();
190 let mut upbound = Frames::default();
192 let mut reqs: Vec<OutstandingRequest>
193 = Vec::with_capacity(ic.max_requests_outstanding.sat());
195 let mut rx_queue: FrameQueue = default();
197 let trouble = async {
200 if rx_queue.remaining() < ic.max_batch_down.sat() {
209 y = ipif.rx.write_all_buf(&mut rx_queue),
210 if ! rx_queue.is_empty() =>
212 let () = y.context("write rx data to ipif")?;
216 let expires = tx_queue.front().unwrap().expires;
217 tokio::time::sleep_until(expires).await
219 if ! tx_queue.is_empty() =>
221 let _ = tx_queue.pop_front();
224 data = ipif.tx.next_segment(),
225 if tx_queue.is_empty() =>
228 data?.ok_or_else(|| io::Error::from(io::ErrorKind::UnexpectedEof))
229 })().context("read from ipif")?;
230 //eprintln!("data={:?}", DumpHex(&data));
232 match check1(Slip2Mime, ic.mtu, &data, |header| {
233 let saddr = ip_packet_addr::<false>(header)?;
234 if saddr != ic.link.client.0 { throw!(PE::Src(saddr)) }
237 Ok((data, ())) => tx_queue.push_back(TxQueued {
239 expires: Instant::now() + ic.max_queue_time
241 Err(PE::Empty) => { },
242 Err(e@ PE::Src(_)) => debug!("{}: tx discarding: {}", &ic, e),
243 Err(e) => error!("{}: tx discarding: {}", &ic, e),
248 if ! upbound.tried_full() &&
249 ! tx_queue.is_empty() =>
251 while let Some(TxQueued { data, expires }) = tx_queue.pop_front() {
252 match upbound.add(ic.max_batch_up, data.into()/*todo:504*/) {
254 tx_queue.push_front(TxQueued { data: data.into(), expires });
263 if rx_queue_space.is_ok() &&
264 (reqs.len() < ic.target_requests_outstanding.sat() ||
265 (reqs.len() < ic.max_requests_outstanding.sat() &&
266 ! upbound.is_empty()))
269 submit_request(&c, &mut req_num, &mut reqs,
270 mem::take(&mut upbound).into())?;
273 (got, goti, _) = async { future::select_all(&mut reqs).await },
274 if ! reqs.is_empty() =>
276 reqs.swap_remove(goti);
278 if let Some(got) = got {
280 //eprintln!("got={:?}", DumpHex(&got));
281 match checkn(SlipNoConv,ic.mtu, &got, |header| {
282 let addr = ip_packet_addr::<true>(header)?;
283 if addr != ic.link.client.0 { throw!(PE::Dst(addr)) }
286 |(o,())| future::ready(Ok({ rx_queue.push(o); })),
287 |e| Ok::<_,SlipFramesError<Void>>( {
288 error!("{} #{}: rx discarding: {}", &ic, req_num, e);
291 Ok(()) => reporter.lock().success(),
292 Err(SlipFramesError::ErrorOnlyBad) => {
293 reqs.push(Box::pin(async {
294 tokio::time::sleep(ic.http_retry).await;
298 Err(SlipFramesError::Other(v)) => unreachable!(v),
303 _ = tokio::time::sleep(c.ic.effective_http_timeout),
304 if rx_queue_space.is_err() =>
306 reporter.lock().filter(None, Err::<Void,_>(
307 anyhow!("rx queue full, blocked")
314 ipif.quitting(Some(&ic)).await;
320 let opts = Opts::from_args();
321 let (ics,) = config::startup("hippotat", LinkEnd::Client,
322 &opts.config, &opts.log, |ics|Ok((ics,)));
324 let https = HttpsConnector::new();
325 let hclient = hyper::Client::builder()
326 .http1_preserve_header_case(true)
327 .build::<_, hyper::Body>(https);
328 let hclient = Arc::new(hclient);
331 let () = future::select_all(
332 ics.into_iter().map(|ic| Box::pin(async {
333 let assocname = ic.to_string();
334 info!("{} starting", &assocname);
335 let hclient = hclient.clone();
336 let join = task::spawn(async {
337 run_client(ic, hclient).await.void_unwrap_err()
341 error!("{} failed: {}", &assocname, e);
344 error!("{} panicked!", &assocname);
345 panic::resume_unwind(je.into_panic());
351 error!("quitting because one of your client connections crashed");