You are invited, but not obliged, to have a look at the files on
your webspace. You find a directory themes/current/ that contains the
@@ -103,14 +103,14 @@ seppo.cgi">seppo.cgi.
Upload a jpg to your webspace and rename it to me-banner.jpg
- (next to seppo.cgi). See also S1007
Upload a jpg to your webspace and rename it to me-avatar.jpg
- (next to seppo.cgi). See also S1007
+ (next to seppo.cgi). See also S1007
diff --git a/doc/wb/themes/current/posts.xsl b/doc/wb/themes/current/posts.xsl
index d527cf0..cecb900 100644
--- a/doc/wb/themes/current/posts.xsl
+++ b/doc/wb/themes/current/posts.xsl
@@ -37,8 +37,8 @@
xmlns:opensearch="http://a9.com/-/spec/opensearch/1.1/"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:schema="http://schema.org#"
- xmlns:se="http://seppo.social/"
- xmlns:seppo="http://seppo.social/2023/ns#"
+ xmlns:se="http://seppo.mro.name/"
+ xmlns:seppo="http://seppo.mro.name/2023/ns#"
xmlns:toot="http://joinmastodon.org/ns#"
xmlns:wf="urn:ietf:rfc:7033"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
diff --git a/doc/wb/themes/current/timeline.xsl b/doc/wb/themes/current/timeline.xsl
index 5a7fc3e..826f5f0 100644
--- a/doc/wb/themes/current/timeline.xsl
+++ b/doc/wb/themes/current/timeline.xsl
@@ -37,7 +37,7 @@
xmlns:opensearch="http://a9.com/-/spec/opensearch/1.1/"
xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
xmlns:schema="http://schema.org#"
- xmlns:seppo="http://seppo.social/2023/ns#"
+ xmlns:seppo="http://seppo.mro.name/2023/ns#"
xmlns:toot="http://joinmastodon.org/ns#"
xmlns:wf="urn:ietf:rfc:7033"
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
diff --git a/lib/cgi.ml b/lib/cgi.ml
index ffc18f0..f0d2978 100644
--- a/lib/cgi.ml
+++ b/lib/cgi.ml
@@ -26,12 +26,12 @@
open Astring
-(* https://seppo.social/S1037 *)
+(* https://seppo.mro.name/S1037 *)
let cgi_bin = "/cgi-bin/"
(* cd to asset storage location if locked inside /cgi-bin/ (if the case).
*
- * https://seppo.social/S1037
+ * https://seppo.mro.name/S1037
*)
let cd_cgi_bin_twin_path script_name =
let is_sep = Char.equal '/'
diff --git a/lib/http.ml b/lib/http.ml
index 2eb2f12..8de6f78 100644
--- a/lib/http.ml
+++ b/lib/http.ml
@@ -492,7 +492,7 @@ let get
Lwt.return (response, body) )
| _ ->
(* here the http header signature validation could be done.
- But not for now: https://seppo.social/issues/23 *)
+ But not for now: https://seppo.mro.name/issues/23 *)
Logr.debug (fun m -> m "%s.%s %a %a" "Http" "get" Uuidm.pp uuid Cohttp.Response.pp_hum response);
Lwt.return (response, body)
and f () = get_follow uri in
@@ -514,7 +514,7 @@ let post
let headers = body |> String.length |> H.content_length |> H.add' headers in
let f () = Cohttp_lwt_unix.Client.post ~body:(`String body) ~headers uri
(* here the http header signature validation could be done.
- But no for now: https://seppo.social/issues/23 *)
+ But no for now: https://seppo.mro.name/issues/23 *)
in
let r = timeout ~seconds ~f in
Logr.info (fun m -> m "%s.%s %a dt=%.3fs localhost -> %a" "Http" "post" Uuidm.pp uuid (Sys.time() -. t0) Uri.pp uri);
@@ -538,7 +538,7 @@ let get_jsonv
| #Cohttp.Code.success_status as sta ->
Logr.debug (fun m -> m "%s.%s get %a %a" "Http" "get_jsonv" Uri.pp uri pp_status sta);
let%lwt body = body |> Cohttp_lwt.Body.to_string in
- (* doesn't validate the digest https://seppo.social/issues/23 *)
+ (* doesn't validate the digest https://seppo.mro.name/issues/23 *)
(try
(resp, body |> Ezjsonm.value_from_string)
|> fkt
diff --git a/lib/iweb.ml b/lib/iweb.ml
index db4c545..5cc0c59 100644
--- a/lib/iweb.ml
+++ b/lib/iweb.ml
@@ -31,7 +31,7 @@ let ( let* ) = Result.bind
let chain a b =
let f a = Ok (a, b) in
Result.bind a f
-let seppo = Uri.make ~userinfo:"seppo" ~host:"seppo.social" ()
+let seppo = Uri.make ~userinfo:"seppo" ~host:"seppo.mro.name" ()
let to_channel ~xsl oc l
(** Write a xml document to a channel.
@@ -50,7 +50,7 @@ https://github.com/dimtion/Shaarlier
|} in
Xml.to_chan ~xsl ~readme l oc
-(** Redirect to work properly on /cgi-bin/ webservers. See https://seppo.social/S1037
+(** Redirect to work properly on /cgi-bin/ webservers. See https://seppo.mro.name/S1037
*
* request_uri the requested uri
* r request meta data
diff --git a/lib/st.ml b/lib/st.ml
index d69b28c..3ad8480 100644
--- a/lib/st.ml
+++ b/lib/st.ml
@@ -1,6 +1,6 @@
let camel = "đĢ"
-let seppo_s = "Seppo.Social"
+let seppo_s = "Seppo.mro.name"
let seppo_u = Uri.make ~scheme:"https" ~host:seppo_s ()
let seppo_c = "Seppo - Personal Social Web"
diff --git a/lib/xml.ml b/lib/xml.ml
index e0f272c..90460fb 100644
--- a/lib/xml.ml
+++ b/lib/xml.ml
@@ -6,8 +6,8 @@ let ns_xsd = "http://www.w3.org/2001/XMLSchema"
(* and ns_sec = As2_vocab.Constants.ActivityStreams.ns_sec ^ "#" *)
let ns_a = "http://www.w3.org/2005/Atom" (* https://www.rfc-editor.org/rfc/rfc4287#section-2 *)
let ns_thr = "http://purl.org/syndication/thread/1.0" (* https://www.rfc-editor.org/rfc/rfc4685#section-2 *)
-let ns_seppo = "http://seppo.social/2023/ns#"
-let ns_backoffice = "http://seppo.social/2023/backoffice#"
+let ns_seppo = "http://seppo.mro.name/2023/ns#"
+let ns_backoffice = "http://seppo.mro.name/2023/backoffice#"
let ns_rfc7033 = "urn:ietf:rfc:7033"
let ns_rfc7565 = "urn:ietf:rfc:7565"
let ns_as = As2_vocab.Constants.ActivityStreams.ns_as
diff --git a/mime.sh b/mime.sh
index ef69845..c795e7b 100644
--- a/mime.sh
+++ b/mime.sh
@@ -67,5 +67,5 @@ done <<-EOF
@mro@pixelfed.social Pixelfed https://pixelfed.social/users/mro
@takahe@jointakahe.org Takahe https://jointakahe.takahe.social/@takahe@jointakahe.org/
@grindhold@demoday.leadfathom.grindhold.de Flohmarkt https://demoday.leadfathom.grindhold.de/users/grindhold
-@2023-08-28@dev.seppo.social Seppo https://dev.seppo.social/2023-08-28/activitypub/profile.jlda
+@2023-08-28@dev.seppo.mro.name Seppo https://dev.seppo.mro.name/2023-08-28/activitypub/profile.jlda
EOF
diff --git a/res/doap.rdf b/res/doap.rdf
index 65ba8e1..0429eec 100644
--- a/res/doap.rdf
+++ b/res/doap.rdf
@@ -6,7 +6,7 @@
#seppo
-
+ OCaml
diff --git a/res/static/apchk.xml b/res/static/apchk.xml
index 2010f8b..cb1a0a1 100644
--- a/res/static/apchk.xml
+++ b/res/static/apchk.xml
@@ -5,7 +5,7 @@
-
+
Resolve WebFinger RFC7033 etc.
@@ -16,7 +16,7 @@
(WebFinger URIs),