Show disappeared feeds

diff --git a/cmd/print-failed.zsh.rc b/cmd/print-failed.zsh.rc
index ea5259684c4ad9a49b8a445530cb37ac99c19f1a..9e7e665f4917001b37ad27baf5b77bdd3c0166b0 100644 (file)
--- 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 9eb5c5b18a326364575a4938d586c6ec8e9303f8..e878ece04d71ffacd30453e99debd51c4e3207fb 100755 (executable)
--- 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