meta: Update from upstream.

Author: sleepy-monax

src/clis/dns/main.cpp

@@ -0,0 +1,29 @@
+#include <karm-cli/args.h>
+#include <karm-sys/entry.h>
+#include <karm-sys/proc.h>
+
+import Karm;
+
+Async::Task<> entryPointAsync(Sys::Context& ctx) {
+    auto urlArg = Cli::operand<Str>("url"s, "URL to fetch"s, "localhost"s);
+
+    Cli::Command cmd{
+        "http-get"s,
+        NONE,
+        "Send a GET request to a URL and print the response body"s,
+        {
+            urlArg,
+        }
+    };
+
+    co_trya$(cmd.execAsync(ctx));
+
+    auto url = Mime::parseUrlOrPath(urlArg, co_try$(Sys::pwd()));
+    auto resp = co_trya$(Http::getAsync(url));
+    auto body = resp->body.unwrapOr(Http::Body::empty());
+
+    auto adaptedOut = Aio::adapt(Sys::out());
+    co_trya$(Aio::copyAsync(*body, adaptedOut));
+
+    co_return Ok();
+}

src/clis/fetch/main.cpp

@@ -1,10 +1,10 @@
 {
     "$schema": "https://schemas.cute.engineering/stable/cutekit.manifest.component.v1",
-    "id": "fetch",
+    "id": "http-get",
+    "description": "Send an HTTP GET request",
     "type": "exe",
-    "description": "A simple HTTP fetcher",
     "requires": [
-        "karm-net",
-        "karm-sys"
+        "karm-http",
+        "karm-cli"
     ]
 }

src/clis/http-get/main.cpp

@@ -0,0 +1,26 @@
+#include <karm-cli/args.h>
+#include <karm-sys/entry.h>
+#include <karm-sys/proc.h>
+
+import Karm;
+
+Async::Task<> entryPointAsync(Sys::Context& ctx) {
+    auto urlArg = Cli::operand<Str>("url"s, "URL to fetch"s, "localhost"s);
+
+    Cli::Command cmd{
+        "http-head"s,
+        NONE,
+        "Send a HEAD request to a URL and print the response headers"s,
+        {
+            urlArg,
+        }
+    };
+
+    co_trya$(cmd.execAsync(ctx));
+
+    auto url = Mime::parseUrlOrPath(urlArg, co_try$(Sys::pwd()));
+    auto header = co_trya$(Http::headAsync(url))->header;
+    co_try$(header.unparse(Sys::out()));
+
+    co_return Ok();
+}

src/clis/fetch/manifest.json src/clis/http-get/manifest.jsonsrc/clis/fetch/manifest.json renamed to src/clis/http-get/manifest.json

@@ -1,10 +1,10 @@
 {
     "$schema": "https://schemas.cute.engineering/stable/cutekit.manifest.component.v1",
-    "id": "dns",
+    "id": "http-head",
+    "description": "Send an HTTP HEAD request",
     "type": "exe",
-    "description": "A command line interface for vaev-dns",
     "requires": [
-        "karm-net",
-        "karm-sys"
+        "karm-http",
+        "karm-cli"
     ]
 }

src/clis/http-head/main.cpp

@@ -0,0 +1,29 @@
+#include <karm-cli/args.h>
+#include <karm-sys/entry.h>
+#include <karm-sys/lookup.h>
+#include <karm-sys/proc.h>
+
+import Karm;
+
+Async::Task<> entryPointAsync(Sys::Context& ctx) {
+    auto domainArg = Cli::operand<Str>("domain"s, "Domain name to lookup"s);
+
+    Cli::Command cmd{
+        "net-lookup"s,
+        NONE,
+        "Do a domain name lookup"s,
+        {
+            domainArg,
+        }
+    };
+
+    co_trya$(cmd.execAsync(ctx));
+
+    auto ips = co_trya$(Sys::lookupAsync(domainArg));
+    co_try$(Io::format(Sys::out(), "{}:\n", domainArg.unwrap()));
+    for (auto& ip : ips) {
+        co_try$(Io::format(Sys::out(), "{}\n", ip));
+    }
+
+    co_return Ok();
+}

src/clis/dns/manifest.json src/clis/http-head/manifest.jsonsrc/clis/dns/manifest.json renamed to src/clis/http-head/manifest.json

@@ -1,10 +1,9 @@
 {
     "$schema": "https://schemas.cute.engineering/stable/cutekit.manifest.component.v1",
-    "id": "serv",
+    "id": "net-lookup",
+    "description": "Do a domain name lookup",
     "type": "exe",
-    "description": "A simple HTTP server",
     "requires": [
-        "karm-net",
-        "karm-sys"
+        "karm-cli"
     ]
 }