From 35fecc62409ee86ec45ae64a392e152e3e190384 Mon Sep 17 00:00:00 2001
From: epoch <epoch@thebackupbox.net>
Date: Sat, 1 Oct 2022 03:48:42 -0500
Subject: added uri-absolution. from geminiclient, but will be useful here too
 :)

---
 uri-absolution | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 uri-absolution

(limited to 'uri-absolution')

diff --git a/uri-absolution b/uri-absolution
new file mode 100755
index 0000000..a1eb6c1
--- /dev/null
+++ b/uri-absolution
@@ -0,0 +1,25 @@
+#!/bin/sh
+base_uri="$1"
+domain="$(printf "%s\n" "$base_uri" | uricut -d)"
+scheme="$(printf "%s\n" "$base_uri" | uricut -s)"
+path="$(printf "%s\n" "$base_uri" | uricut -p)"
+most_of_path="$(printf "%s\n" "$base_uri" | uricut -p | rev | cut -d/ -f2- | rev)"
+
+### this is the verbose version for debugging.
+### to enable debug mode, uncomment this, and comment out the next sed.
+#sed \
+#'s|^<[ \t]*\([A-Za-z][A-Za-z+.-]*:[^ \t]*\)>|(absolute) \1|g;t
+#s|^<[ \t]*\(#[^ \t]*\)>|(fragmentid_relative) '"${base_uri}"'\1|g;t
+#s|^<[ \t]*\(?[^ \t]*\)>|(querystring_relative) '"$scheme"'://'"$domain""$path"'\1|g;t
+#s|^<[ \t]*\(//[^ \t]*\)>|(scheme_relative) '"$scheme"':\1|g;t
+#s|^<[ \t]*\(/[^ \t]*\)>|(absolute_path) '"$scheme"'://'"$domain"'\1|g;t
+#s|^<[ \t]*\([^ \t]*\)>|(same-dir path relative) '"$scheme"'://'"$domain""$most_of_path"'/\1|g'
+
+sed -u \
+'s|^<[ \t]*\([A-Za-z][A-Za-z+.-]*:[^ \t]*\)>|\1|g;t
+s|^<[ \t]*\(#[^ \t]*\)>|'"${base_uri}"'\1|g;t
+s|^<[ \t]*\(?[^ \t]*\)>|'"$scheme"'://'"$domain""$path"'\1|g;t
+s|^<[ \t]*\(//[^ \t]*\)>|'"$scheme"':\1|g;t
+s|^<[ \t]*\(/[^ \t]*\)>|'"$scheme"'://'"$domain"'\1|g;t
+s|^<[ \t]*\([^ \t]*\)>|'"$scheme"'://'"$domain""$most_of_path"'/\1|g;t
+s|^<[ \t]*\(.*\)>|<\1> UNHANDLED|g'
-- 
cgit v1.2.3