From: Matt S Trout <mst@shadowcat.co.uk>
Date: Tue, 4 Mar 2014 02:47:53 +0000 (+0000)
Subject: better naming and help command for KeyMangler
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FDKit.git;a=commitdiff_plain;h=08c0734f864beea7fd94025769059234e1e86a1e

better naming and help command for KeyMangler
---

diff --git a/lib/App/KeyMangler.pm b/lib/App/KeyMangler.pm
index bcc939a..1a59ad3 100644
--- a/lib/App/KeyMangler.pm
+++ b/lib/App/KeyMangler.pm
@@ -24,87 +24,106 @@ sub run {
 
 __DATA__
 
-rule dot_ssh_on { A D } {
-  home_dir_on A H
-  directory_in H '.ssh' D
-  mode D '0700'
+rule dot_ssh_on { Account DotSshDir } {
+  home_dir_on Account HomeDir
+  directory_in HomeDir '.ssh' DotSshDir
+  mode DotSshDir '0700'
 }
 
-rule authorized_keys_on { A F } {
-  dot_ssh_on A D
-  file_in D 'authorized_keys' F
-  mode F '0600'
+rule authorized_keys_on { Account AuthorizedKeysFile } {
+  dot_ssh_on Account DotSshDir
+  file_in DotSshDir 'authorized_keys' AuthorizedKeysFile
+  mode AuthorizedKeysFile '0600'
 }
 
-rule key_installed_on { A K } {
-  authorized_keys_on A F
-  contains_line F K
+rule key_installed_on { Account PubKeyLine } {
+  authorized_keys_on Account AuthorizedKeysFile
+  contains_line AuthorizedKeysFile PubKeyLine
 }
 
-rule key_not_installed_on { A K } {
-  authorized_keys_on A F
-  not_contains_line F K
+rule key_not_installed_on { Account PubKeyLine } {
+  authorized_keys_on Account AuthorizedKeysFile
+  not_contains_line AuthorizedKeysFile PubKeyLine
 }
 
-rule my_config_dir D {
-  home_dir_on '' H
-  directory_in H '.keymangler' D
+rule my_config_dir ConfigDir {
+  home_dir_on '' HomeDir
+  directory_in HomeDir '.keymangler' ConfigDir
 }
 
-rule my_config_file { C F } {
-  my_config_dir D
-  file_in D C F
+rule my_config_file { ConfigType ConfigFile } {
+  my_config_dir ConfigDir
+  file_in ConfigDir ConfigType ConfigFile
 }
 
-rule config_contains_line { C L } {
-  my_config_file C F
-  contains_line F L
+rule config_contains_line { ConfigType Line } {
+  my_config_file ConfigType ConfigFile
+  contains_line ConfigFile Line
 }
 
-rule config_not_contains_line { C L } {
-  my_config_file C F
-  not_contains_line F L
+rule config_not_contains_line { ConfigType Line } {
+  my_config_file ConfigType ConfigFile
+  not_contains_line ConfigFile Line
 }
 
-rule known_account A { config_contains_line 'accounts' A }
-rule known_key K { config_contains_line 'keys' K }
-rule known_dead D { config_contains_line 'keys.dead' D }
+rule known_account Account {
+  config_contains_line 'accounts' Account
+}
+
+rule known_key Key {
+  config_contains_line 'keys' Key
+}
+rule known_dead DeadKey {
+  config_contains_line 'keys.dead' DeadKey
+}
 
-rule not_known_account A { config_not_contains_line 'accounts' A }
-rule not_known_key K { config_not_contains_line 'keys' K }
-rule not_known_dead D { config_not_contains_line 'keys.dead' D }
+rule not_known_account Account {
+  config_not_contains_line 'accounts' Account
+}
+rule not_known_key Key {
+  config_not_contains_line 'keys' Key
+}
+rule not_known_dead DeadKey {
+  config_not_contains_line 'keys.dead' DeadKey
+}
 
-rule all_known_installed_on A {
-  foreach K { known_key K } { key_installed_on A K }
+rule all_known_installed_on Account {
+  foreach Key { known_key Key } {
+    key_installed_on Account Key
+  }
 }
 
-rule all_dead_not_installed_on A {
-  foreach K { known_dead K } { key_not_installed_on A K }
+rule all_dead_not_installed_on Account {
+  foreach Key { known_dead Key } {
+    key_not_installed_on Account Key
+  }
 }
 
-rule account_synchronized A {
-  all_known_installed_on A
-  all_dead_not_installed_on A
+rule account_synchronized Account {
+  all_known_installed_on Account
+  all_dead_not_installed_on Account
 }
 
 rule all_synchronized {} {
-  foreach A { known_account A } { account_synchronized A }
+  foreach Account { known_account Account } {
+    account_synchronized Account
+  }
 }
 
-rule unknown_installed_on { A K } {
-  key_installed_on A K
-  not { known_key K }
-  not { known_dead K }
+rule unknown_installed_on { Account Key } {
+  key_installed_on Account Key
+  not { known_key Key }
+  not { known_dead Key }
 }
 
-rule known_installed_on { A K } {
-  key_installed_on A K
-  known_key K
+rule known_installed_on { Account Key } {
+  key_installed_on Account Key
+  known_key Key
 }
 
-rule dead_installed_on { A K } {
-  key_installed_on A K
-  known_dead K
+rule dead_installed_on { Account Key } {
+  key_installed_on Account Key
+  known_dead Key
 }
 
 oo::class create ConfigSet {
@@ -112,17 +131,17 @@ oo::class create ConfigSet {
     namespace import ::DX::*
     variable type $mytype
   }
-  method learn V {
+  method add Value {
     variable type
-    ensure "known_$type {'$V'}"
+    ensure "known_$type {'$Value'}"
   }
-  method forget V {
+  method rm Value {
     variable type
-    ensure "not_known_$type {'$V'}"
+    ensure "not_known_$type {'$Value'}"
   }
   method list {} {
     variable type
-    query* "known_$type V" {puts $V}
+    query* "known_$type Value" {puts $Value}
   }
 }
 
@@ -141,15 +160,27 @@ oo::class create KeyMangler {
 
   method status {} {
     query* {
-      known_account A
-      findall Known K { known_installed_on A K }
-      findall Unknown U { unknown_installed_on A U }
-      findall Dead D { dead_installed_on A D }
+      known_account Account
+      findall KnownKeys Key {
+        known_installed_on Account Key
+      }
+      findall UnknownKeys Unknown {
+        unknown_installed_on Account Unknown
+      }
+      findall DeadKeys Dead {
+        dead_installed_on Account Dead
+      }
     } {
       puts "Host: $A"
-      foreach k $Known { puts "  Known: [lindex $k 2]" }
-      foreach u $Unknown { puts "  Unknown: [lindex $u 2]" }
-      foreach d $Dead { puts "  Dead: [lindex $d 2]" }
+      foreach key $KnownKeys {
+        puts "  Known: [lindex $key 2]"
+      }
+      foreach unknown $UnknownKeys {
+        puts "  Unknown: [lindex $unknown 2]"
+      }
+      foreach dead $DeadKeys {
+        puts "  Dead: [lindex $dead 2]"
+      }
       puts ""
     }
   }
@@ -161,7 +192,7 @@ oo::class create KeyMangler {
 
   export -n
 
-  method sync {{account -}} {
+  method push {{account -}} {
     variable mode
     if {"$account" eq "-"} {
       $mode { all_synchronized }
@@ -169,6 +200,23 @@ oo::class create KeyMangler {
       $mode "account_synchronized {'$account'}"
     }
   }
+
+  method help {} {
+    puts {Usage:}
+    puts {}
+    puts {  # Config commands}
+    puts {  $ km {key,dead,account} add 'new value'}
+    puts {  $ km {key,dead,account} rm 'old value'}
+    puts {  $ km {key,dead,account} list}
+    puts {}
+    puts {  # What keys are installed where?}
+    puts {  $ km status}
+    puts {}
+    puts {  # Update remote authorized_keys files (-n is dry-run)}
+    puts {  $ km [-n] sync user@host}
+    puts {  $ km [-n] sync}
+    puts {}
+  }
 }
 
 KeyMangler create km