Enable copying identities between agents

The copy-identities can be used to copy identities from one agent to
another.  This is useful to allow copying identities from a system agent
to a non system agent.

Author: hugoduncan

src/clj_ssh/ssh.clj

@@ -38,7 +38,7 @@
     PipedInputStream PipedOutputStream]
    [com.jcraft.jsch
     JSch Session Channel ChannelShell ChannelExec ChannelSftp JSchException
-    Identity IdentityFile Logger KeyPair LocalIdentityRepository]))
+    Identity IdentityFile IdentityRepository Logger KeyPair LocalIdentityRepository]))
 
 ;;; forward jsch's logging to java logging
 (def ^{:dynamic true}
@@ -209,6 +209,12 @@
   [^KeyPair keypair]
   (.getFingerPrint keypair))
 
+(defn copy-identities
+  [^JSch from-agent ^JSch to-agent]
+  (let [^IdentityRepository ir (.getIdentityRepository from-agent)]
+    (doseq [^Identity id (.getIdentities ir)]
+      (.addIdentity to-agent id nil))))
+
 ;; JSch's IdentityFile has a private constructor that would let us avoid this
 ;; were it public.
 (deftype KeyPairIdentity [^JSch jsch ^String identity ^KeyPair kpair]