GET.d

module owl_delivery.GET;
import owl_delivery;

auto GET(string url, Duration duration = seconds(1))
{
	string result;

	auto
		http = HTTP(url);
		http.operationTimeout(duration);
		http.onReceive((ubyte[] data) { result = strip(cast(string) data); return data.length; });
		http.perform();

	return Response(
		Response.Status(http.statusLine.code, http.statusLine.reason), result);
}

struct Response
{
	Status status;
	string result; alias result this;

	this(Status status, string result)
	{
		this.status = status;
		this.result = result;

		if (status.code / 100 != 2)
			throw new Exception(toStatusString());
	}

	auto toStatusString()
	{
		return format("%-(%s %s%)%s",
			status, !result.length ? "" : format(" %s", toSampleString()));
	}

	auto toSampleString(size_t len = 80)
	{
		return result.length <= len ?
			result : format("%s...", result[0 .. len - 3]);
	}

	alias Tuple!(ushort, "code", string, "info") Status;
}

import core.time, std.net.curl, std.string, std.typecons, std.format;