properly handle host keys with no expiration date, store host key fingerprint for...

[monkeysphere.git] / src / monkeysphere-server

diff --git a/src/monkeysphere-server b/src/monkeysphere-server
index d70fe93e5d6313d697db85adc950fae714bf74ee..db0fa9703c0bb8596b7c57d222228dfd22f6b576 100755 (executable)
--- a/src/monkeysphere-server
+++ b/src/monkeysphere-server
@@ -383,12 +383,15 @@ diagnostics() {
 #  * check on the status and validity of the key and public certificates
     local seckey
     local keysfound
-    local keyexp
     local curdate
     local warnwindow
     local warndate
+    local create
+    local expire
+    local uid
+    local fingerprint
 
-    seckey=$(gpg_host --list-secret-keys --with-colons --fixed-list-mode)
+    seckey=$(gpg_host --list-secret-keys --fingerprint --with-colons --fixed-list-mode)
     keysfound=$(echo "$seckey" | grep -c ^sec:)
     curdate=$(date +%s)
     # warn when anything is 2 months away from expiration
@@ -402,17 +405,22 @@ diagnostics() {
        if (( "$keysfound" > 1 )); then
            echo "more than one host key found?"
        else
+           create=$(echo "$seckey" | grep ^sec: | cut -f6 -d:)
+           expire=$(echo "$seckey" | grep ^sec: | cut -f7 -d:)
+           fingerprint=$(echo "$seckey" | grep ^fpr: | head -n1 | cut -f10 -d:)
        # check for key expiration:
-           keyexp=$(echo "$seckey" | grep ^sec: | cut -f7 -d:)
-           if (( "$keyexp"  < "$curdate" )); then
-               echo "Host key is expired!"
+           if [ "$expire" ]; then
+               if (( "$expire"  < "$curdate" )); then
+                   echo "Host key is expired!"
                # FIXME: recommend a way to resolve this other than re-keying?
-           elif (( "$keyexp" < "$warndate" )); then
-               echo "Host key expires in less than $warnwindow"
+               elif (( "$expire" < "$warndate" )); then
+                   echo "Host key expires in less than $warnwindow:" $(date -d "$(( $expire - $curdate )) seconds" +%F)
                # FIXME: recommend a way to resolve this?
+               fi
            fi
+           
         # and weirdnesses:
-           if (( $(echo "$seckey" | grep ^sec: | cut -f6 -d:) > "$curdate" )); then
+           if [ "$create" ] && (( "$create" > "$curdate" )); then
                echo "Host key was created in the future(?!). Is your clock correct?"
                echo "Recommendation: Check clock ($(date +%F_%T)); use NTP?"
            fi
@@ -422,6 +430,7 @@ diagnostics() {
            while IFS=: read create expire uid ; do
                # FIXME: should we be doing any checking on the form
                # of the User ID?  Should we be unmangling it somehow?
+
                if [ "$create" ] && (( "$create" > "$curdate" )); then
                    echo "User ID '$uid' was created in the future(?!).  Is your clock correct?"
                    echo "Recommendation: Check clock ($(date +%F_%T)); use NTP?"
@@ -431,17 +440,18 @@ diagnostics() {
                        echo "User ID '$uid' is expired!"
                        # FIXME: recommend a way to resolve this
                    elif (( "$expire" < "$warndate" )); then
-                       echo "User ID '$uid' expires in less than $warnwindow"
+                       echo "User ID '$uid' expires in less than $warnwindow:" $(date -d "$(( $expire - $curdate )) seconds" +%F)              
                        # FIXME: recommend a way to resolve this
                    fi
                fi
            done
            
 # FIXME: verify that the host key is properly published to the
-#   keyservers
+#   keyservers (do this with the non-privileged user)
 
 # FIXME: check that there are valid, non-expired certifying signatures
-#   attached to the host key
+#   attached to the host key after fetching from the public keyserver
+#   (do this with the non-privileged user as well)
 
 # FIXME: propose adding a revoker to the host key if none exist (do we
 #   have a way to do that after key generation?)
@@ -450,7 +460,7 @@ diagnostics() {
            if [ ! -s "${VARLIB}/ssh_host_rsa_key" ] ; then
                echo "The host key as prepared for SSH (${VARLIB}/ssh_host_rsa_key) is missing or empty!"
            else
-               if [ $(stat -c "${VARLIB}/ssh_host_rsa_key") != 600 ] ; then
+               if [ $(stat -c '%a' "${VARLIB}/ssh_host_rsa_key") != 600 ] ; then
                    echo "Permissions seem wrong for ${VARLIB}/ssh_host_rsa_key -- should be 0600 !"
                fi