extract-profile: Add manpage.

[distorted-keys] / keys.list-recov

diff --git a/keys.list-recov b/keys.list-recov
index 24978aa337d7537bdd918f5a1d088050c9ff6a06..e05dc33382326e3f9ab984c45b3fd15299e7693b 100755 (executable)
--- a/keys.list-recov
+++ b/keys.list-recov
@@ -87,7 +87,7 @@ else
       ## instance.
       anyp=nil
       for sf in $(cd $ri; find . -type f -name '*.recov' -print); do
-       s=${sf#./}
+       s=${sf#./}; s=${s%.recov}
        case $anyp in nil) anyp=t; echo "      secrets" ;; esac
        echo "  $s"
       done