jer/hare-http
1
Fork 0
Code Actions Activity

cmd/http: add headers via getopt

Browse source
This commit is contained in:
Drew DeVault 2023-10-07 12:57:35 +02:00
parent d798088e9e
commit 380d174beb
1 changed files with 21 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
cmd/http/main.ha
View file

@ -1,15 +1,35 @@
use getopt;
use io;
use log;
use net::dial;
use net::http;
use net::uri;
use os;
use strings;
export fn main() void = {
const client = http::newclient("Hare net::http test client");
defer http::client_finish(&client);
const target = match (uri::parse(os::args[1])) {
const cmd = getopt::parse(os::args,
"HTTP client",
('H', "Name:value", "Sets an HTTP header"),
"url");
defer getopt::finish(&cmd);
let head = http::client_default_header(&client);
for (let i = 0z; i < len(cmd.opts); i += 1) {
const (opt, val) = cmd.opts[i];
switch (opt) {
case 'H' =>
const (name, val) = strings::cut(val, ":");
http::header_add(head, name, val);
case => abort();
};
};
const target = cmd.args[0];
const target = match (uri::parse(target)) {
case let u: uri::uri =>
yield u;
case uri::invalid =>