From 240af46ece2598a3a3e1bad07cde903ca6d180f9 Mon Sep 17 00:00:00 2001
From: Aleteoryx <alyx@aleteoryx.me>
Date: Sat, 23 Nov 2024 19:01:14 -0500
Subject: [PATCH] moderation fixes, heuristic tweaks

---
 bin/addpost.tcl          | 43 ++++++++++++++++++++++++++++++++++++++++
 bin/updatelists.tcl      |  5 +++++
 src/algos/tclposting.tcl |  7 +++++--
 3 files changed, 53 insertions(+), 2 deletions(-)
 create mode 100755 bin/addpost.tcl

diff --git a/bin/addpost.tcl b/bin/addpost.tcl
new file mode 100755
index 0000000..c46cdf3
--- /dev/null
+++ b/bin/addpost.tcl
@@ -0,0 +1,43 @@
+#!/bin/env tclsh
+
+if {$argc < 4 || $argc % 2} { return -code error "Usage: bin/rmpost.tcl DB FEED URI ORD ?URI ORD ...?" }
+set uris [lassign $argv db feed]
+
+cd [file dirname [file dirname [dict get [info frame [info frame]] file]]]
+
+package require sqlite3
+package require json
+package require http
+package require tls
+::http::register https 443 ::tls::socket
+
+sqlite3 db $db
+
+foreach {uri ord} $uris {
+  switch -regexp -matchvar matches -- $uri {
+    {^at://.+} {
+      if {$ord == "-ts"} {
+        set endpoint {https://public.api.bsky.app/xrpc/app.bsky.feed.getPostThread}
+        set http_state [http::geturl "$endpoint?uri=$uri&depth=0&parentHeight=0"]
+        set ord [dict get [::json::json2dict [::http::data $http_state]] thread post record createdAt]
+      }
+    }
+    {^(?:(?:(?:(?:(?:https://)?bsky.app)?/)?profile)?/)?([^/]+)/post/(.+)$} {
+      lassign $matches _ pub rkey
+
+      set endpoint {https://public.api.bsky.app/xrpc/com.atproto.repo.getRecord}
+
+      set http_state [http::geturl "$endpoint?repo=$pub&collection=app.bsky.feed.post&rkey=$rkey"]
+      if {[::http::ncode $http_state] != 200} { return -code error "couldn't resolve bsky.app URI!\n[::http::data $http_state]" }
+      set data [::json::json2dict [::http::data $http_state]]
+      set uri [dict get $data uri]
+
+      if {$ord == "-ts"} {
+        set ord [dict get $data value createdAt]
+      }
+    }
+    default { return -code error "unknown URI format!" }
+  }
+
+  db eval "INSERT OR IGNORE INTO $feed (uri, ord) VALUES (:uri, :ord);"
+}
diff --git a/bin/updatelists.tcl b/bin/updatelists.tcl
index 90cf509..619a95f 100755
--- a/bin/updatelists.tcl
+++ b/bin/updatelists.tcl
@@ -16,3 +16,8 @@ exec bin/importlist.tcl $db \
   https://bsky.app/profile/rahaeli.bsky.social/lists/3l42hebnldp2w \
   https://bsky.app/profile/rahaeli.bsky.social/lists/3l42gs6pmns22
 puts "imported!"
+
+puts "importing aleteoryx's lists..."
+exec bin/importlist.tcl $db \
+  https://bsky.app/profile/aleteoryx.me/lists/3lbnogsl36d2y
+puts "imported!"
diff --git a/src/algos/tclposting.tcl b/src/algos/tclposting.tcl
index 41b1b1b..abb4ca5 100644
--- a/src/algos/tclposting.tcl
+++ b/src/algos/tclposting.tcl
@@ -16,14 +16,17 @@ namespace eval ::algos::tclposting {
       {tcllib}
       {tklib}
       {tcl\.tk}
-      {#tcllang}} | ] $text]} \
+      {#tcllang}
+      {[Tt]kinter}} | ] $text]} \
     {
       return {}
     }
 
     if {[regexp -nocase -- [join {
       {Title Tk}
-      {Comic-Con Tk}} | ] $text]} \
+      {Comic-Con Tk}
+      {[Tt][Vv][Ss]?}
+      {[Tt]elevision}} | ] $text]} \
     {
       return {}
     }
-- 
2.45.2