upub/web/src/page/debug.rs

use std::sync::Arc;

use leptos::*;
use leptos_router::*;
use crate::prelude::*;

#[component]
pub fn DebugPage() -> impl IntoView {
	let query_params = use_query_map();
	let query = move || {
		query_params.with(|params| params.get("q").cloned().unwrap_or_default())
	};
	let cached_ref: NodeRef<html::Input> = create_node_ref();
	let auth = use_context::<Auth>().expect("missing auth context");
	let (text, set_text) = create_signal("".to_string());
	let navigate = use_navigate();

	let object = create_local_resource(
		query,
		move |q| async move {
			set_text.set(q.clone());
			if q.is_empty() { return serde_json::Value::Null };
			let cached = cached_ref.get().map(|x| x.checked()).unwrap_or_default();
			if cached {
				match CACHE.get(&q) {
					Some(x) => (*x).clone(),
					None => serde_json::Value::Null,
				}
			} else {
				debug_fetch(&format!("{URL_BASE}/proxy?id={q}"), auth).await
			}
		}
	);
	let loading = object.loading();


	view! {
		<div>
			<Breadcrumb back=true>config :: devtools</Breadcrumb>
			<div class="mt-1" >
				<form on:submit=move|ev| {
					ev.prevent_default();
					navigate(&format!("/web/config/dev?q={}", text.get()), NavigateOptions::default());
				} >
				<table class="align w-100" >
					<tr>
						<td>
							<small><a
								href={move|| Uri::web(U::Object, &text.get())}
							>obj</a>
								" "
							<a
								href={move|| Uri::web(U::User, &text.get())}
							>usr</a></small>
						</td>
						<td class="w-100">
							<input class="w-100" type="text"
								prop:value=text
								on:input=move|ev| set_text.set(event_target_value(&ev))
								placeholder="AP id"
							/>
						</td>
						<td><input type="submit" class="w-100" value="fetch" /></td>
						<td><input type="checkbox" class:loader=loading title="cached" value="cached" node_ref=cached_ref /></td>
					</tr>
				</table>
				</form>
			</div>
			<pre class="ma-1">
				{move || object.get().map(|o| view! { <DocumentNode obj=o /> })}
			</pre>
		</div>
	}
}

// this is a rather weird way to fetch but i want to see the bare error text if it fails!
async fn debug_fetch(url: &str, token: Auth) -> serde_json::Value {
	match Http::request::<()>(reqwest::Method::GET, url, None, token).await {
		Err(e) => serde_json::Value::String(format!("[!] failed sending request: {e}")),
		Ok(res) => match res.text().await {
			Err(e) => serde_json::Value::String(format!("[!] invalid response body: {e}")),
			Ok(x) => match serde_json::from_str(&x) {
				Err(_) => serde_json::Value::String(x),
				Ok(v) => v,
			},
		}
	}
}

#[component]
fn DocumentNode(obj: serde_json::Value, #[prop(optional)] depth: usize) -> impl IntoView {
	let prefix = "  ".repeat(depth);
	match obj {
		serde_json::Value::Null => view! { <b>null</b> }.into_view(),
		serde_json::Value::Bool(x) => view! { <b>{x}</b> }.into_view(),
		serde_json::Value::Number(n) => view! { <b>{n.to_string()}</b> }.into_view(),
		serde_json::Value::String(s) => {
			if s.starts_with("https://") || s.starts_with("http://") {
				view! {
					"\""<a href=format!("/web/config/dev?q={s}")>{s}</a>"\""
				}.into_view()
			} else {
				view! {
					"\""<span class="json-text"><i>{s}</i></span>"\""
				}.into_view()
			}
		},
		serde_json::Value::Array(arr) => if arr.is_empty() { 
			view! { "[]" }.into_view()
		} else {
			view! {
				"[\n"
					{arr.into_iter().map(|x| view! {
						{prefix.clone()}"  "<DocumentNode obj=x depth=depth+1 />",\n"
					}).collect_view()}
				{prefix.clone()}"]"
			}.into_view()
		},
		serde_json::Value::Object(map) => if map.is_empty() {
			view! { "{}" }.into_view()
		} else {
			view! {
				"{\n"
					{
						map.into_iter()
							.map(|(k, v)| view! {
								{prefix.clone()}"  \""<span class="json-key"><b>{k}</b></span>"\": "<DocumentNode obj=v depth=depth+1 />",\n"
							})
							.collect_view()
					}
				{prefix.clone()}"}"
			}.into_view()
		},
	}
}