From: Don Armstrong <don@donarmstrong.com>
Date: Tue, 16 Jun 2009 22:47:09 +0000 (+0000)
Subject:  * update the update_lists command
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=97858dbddbc3137cd512b3a0178aac73e04bba46;p=bin.git

 * update the update_lists command
---

diff --git a/update_lists b/update_lists
index d23aa24..a2ffaf2 100755
--- a/update_lists
+++ b/update_lists
@@ -2,9 +2,9 @@
 
 cd ~/Maildir
 # Build lists sublists
-find lists -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\//./g; qx(ln -sf $a .$b)'
+find lists -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\./_/g; $b =~ s/\//./g; qx(ln -sf $a .$b)'
 # Build bugs sublists
-find bugs  -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\//./g; qx(ln -sf $a .$b)'
+find bugs  -maxdepth 1 -mindepth 1 -type d |perl -ne 'chomp; $a = $_; $b = $a; $b =~ s/\./_/g; $b =~ s/\//./g; qx(ln -sf $a .$b)'
 
 # Remove dead lists
 #find ~/Maildir/lists/ -type d -maxdepth 1 -mindepth 1|xargs -n 1 -i sh -c '(( $(find "{}" -type f -iname "*" |wc -l) <= 1 )) && rm -rf "{}"'