From: Sergey Matveev <stargrave@stargrave.org>
Date: Fri, 18 Feb 2022 10:07:15 +0000 (+0300)
Subject: Show disappeared feeds
X-Git-Url: http://www.git.stargrave.org/?a=commitdiff_plain;h=82181b8276b3a1de5733a25303b4dd66bc589e49;p=feeder.git

Show disappeared feeds
---

diff --git a/cmd/print-failed.zsh.rc b/cmd/print-failed.zsh.rc
index ea52596..9e7e665 100644
--- a/cmd/print-failed.zsh.rc
+++ b/cmd/print-failed.zsh.rc
@@ -6,6 +6,6 @@ print-joglog-failed() {
     while read row ; do
         cols=(${(s:	:)row})
         [[ ${cols[$exitvalI]} -ne 0 ]] || continue
-        print "Failed: ${cols[$#cols]}"
+        print failed: ${cols[$#cols]}
     done
 }
diff --git a/urls2feeds.zsh b/urls2feeds.zsh
index 9eb5c5b..e878ece 100755
--- a/urls2feeds.zsh
+++ b/urls2feeds.zsh
@@ -1,6 +1,7 @@
 #!/usr/bin/env zsh
 set -e
 autoload regexp-replace
+typeset -A seen
 while read url ; do
     url="$url " # to be sure that next line will work
     url=${${=url}[1]}
@@ -8,7 +9,9 @@ while read url ; do
     regexp-replace dir "^.*__" ""
     regexp-replace dir "_$" "" || :
     dir=feeds/$dir
+    seen[$dir]=1
     [[ -e $dir ]] && continue || :
     mkdir -p $dir/{cur,new,tmp} # make it maildir
     echo "$url" > $dir/url
 done
+for dir (feeds/*) [[ $seen[$dir] -eq 1 ]] || print disappeared: $dir