Skip to content

Commit 0bd1478

Browse files
hugoduncanhugoduncan
committed
Merge branch 'feature/add-jsch-agent-proxy' into develop
2 parents 7c86536 + bd92fba commit 0bd1478

File tree

4 files changed

+124
-42
lines changed

4 files changed

+124
-42
lines changed

‎pom.xml

Lines changed: 68 additions & 41 deletions
Original file line numberDiff line numberDiff line change
@@ -26,39 +26,63 @@
2626
</resource>
2727
</resources>
2828
<plugins>
29-
<plugin>
30-
<groupId>com.theoryinpractise</groupId>
31-
<artifactId>clojure-maven-plugin</artifactId>
32-
<version>1.3.7</version>
33-
<configuration>
34-
<sourceDirectories>
35-
<sourceDirectory>src</sourceDirectory>
36-
</sourceDirectories>
37-
<testSourceDirectories>
38-
<testSourceDirectory>test</testSourceDirectory>
39-
</testSourceDirectories>
40-
<clojureOptions>-Xmx512m -Djava.awt.headless=true -XX:MaxPermSize=256m</clojureOptions>
41-
<warnOnReflection>false</warnOnReflection>
42-
<compileDeclaredNamespaceOnly>true</compileDeclaredNamespaceOnly>
43-
<temporaryOutputDirectory>true</temporaryOutputDirectory>
44-
</configuration>
45-
<executions>
46-
<execution>
47-
<id>compile-clojure</id>
48-
<phase>compile</phase>
49-
<goals>
50-
<goal>compile</goal>
51-
</goals>
52-
</execution>
53-
<execution>
54-
<id>test-clojure</id>
55-
<phase>test</phase>
56-
<goals>
57-
<goal>test</goal>
58-
</goals>
59-
</execution>
60-
</executions>
61-
</plugin>
29+
<plugin>
30+
<groupId>org.cloudhoist.plugin</groupId>
31+
<artifactId>zi</artifactId>
32+
<version>${zi.version}</version>
33+
<dependencies>
34+
<dependency>
35+
<groupId>org.clojure</groupId>
36+
<artifactId>clojure</artifactId>
37+
<version>${clojure.version}</version>
38+
</dependency>
39+
<dependency>
40+
<groupId>ritz</groupId>
41+
<artifactId>ritz</artifactId>
42+
<version>${ritz.version}</version>
43+
</dependency>
44+
<dependency>
45+
<groupId>codox</groupId>
46+
<artifactId>codox</artifactId>
47+
<version>${codox.version}</version>
48+
</dependency>
49+
</dependencies>
50+
<executions>
51+
<!-- setup zi to process sources and test sources, and run tests -->
52+
<execution>
53+
<id>default-resources</id>
54+
<phase>process-resources</phase>
55+
<goals>
56+
<goal>resources</goal>
57+
</goals>
58+
</execution>
59+
<execution>
60+
<id>default-test-resources</id>
61+
<phase>process-test-resources</phase>
62+
<goals>
63+
<goal>testResources</goal>
64+
</goals>
65+
</execution>
66+
<execution>
67+
<id>default-test</id>
68+
<phase>test</phase>
69+
<goals>
70+
<goal>test</goal>
71+
</goals>
72+
</execution>
73+
<execution>
74+
<id>default-site</id>
75+
<phase>site</phase>
76+
<goals>
77+
<goal>marginalia</goal>
78+
<goal>codox</goal>
79+
</goals>
80+
<configuration>
81+
<copyright>Copyright (c) 2010, 2011, 2012 Hugo Duncan</copyright>
82+
</configuration>
83+
</execution>
84+
</executions>
85+
</plugin>
6286
<plugin>
6387
<artifactId>maven-jar-plugin</artifactId>
6488
<version>2.3.1</version>
@@ -97,7 +121,12 @@
97121
<dependency>
98122
<groupId>com.jcraft</groupId>
99123
<artifactId>jsch</artifactId>
100-
<version>0.1.44-1</version>
124+
<version>${jsch.version}</version>
125+
</dependency>
126+
<dependency>
127+
<groupId>jsch-agent-proxy</groupId>
128+
<artifactId>jsch-agent-proxy</artifactId>
129+
<version>0.0.4-SNAPSHOT</version>
101130
</dependency>
102131
<dependency>
103132
<groupId>log4j</groupId>
@@ -106,13 +135,6 @@
106135
<optional>true</optional>
107136
<scope>test</scope>
108137
</dependency>
109-
<dependency>
110-
<groupId>swank-clojure</groupId>
111-
<artifactId>swank-clojure</artifactId>
112-
<version>1.3.1</version>
113-
<optional>true</optional>
114-
<scope>test</scope>
115-
</dependency>
116138
</dependencies>
117139

118140
<profiles>
@@ -149,5 +171,10 @@
149171
<project.build.sourceEncoding>UTF-8</project.build.sourceEncoding>
150172
<clojure.version>1.2.0</clojure.version>
151173
<slingshot.version>0.2.0</slingshot.version>
174+
<jsch.version>0.1.48</jsch.version>
175+
<zi.version>0.4.5</zi.version>
176+
<codox.version>0.6.1</codox.version>
177+
<marginalia.version>0.7.0</marginalia.version>
178+
<ritz.version>0.2.1</ritz.version>
152179
</properties>
153180
</project>

‎src/clj_ssh/agent.clj

Lines changed: 38 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,38 @@
1+
(ns clj-ssh.agent
2+
"Agent integration (using jsch-agent-proxy)"
3+
(:require
4+
[clojure.tools.logging :as logging])
5+
(:import
6+
com.jcraft.jsch.JSch
7+
[com.jcraft.jsch.agentproxy
8+
AgentProxyException Connector RemoteIdentityRepository]
9+
[com.jcraft.jsch.agentproxy.connector
10+
PageantConnector SSHAgentConnector]
11+
com.jcraft.jsch.agentproxy.usocket.JNAUSocketFactory))
12+
13+
(defn sock-agent-connector
14+
[]
15+
(when (SSHAgentConnector/isConnectorAvailable)
16+
(try
17+
(let [usf (JNAUSocketFactory.)]
18+
(SSHAgentConnector. usf))
19+
(catch AgentProxyException e
20+
(logging/warnf
21+
e "Failed to load JNA connector, although SSH_AUTH_SOCK is set")))))
22+
23+
(defn pageant-connector
24+
[]
25+
(when (PageantConnector/isConnectorAvailable)
26+
(try
27+
(PageantConnector.)
28+
(catch AgentProxyException e
29+
(logging/warn
30+
e "Failed to load Pageant connector, although running on windows")))))
31+
32+
(defn connect
33+
"Connect the specified jsch object to the system ssh-agent."
34+
[^JSch jsch]
35+
(when-let [connector (or (sock-agent-connector) (pageant-connector))]
36+
(doto jsch
37+
;(.setConfig "PreferredAuthentications" "publickey")
38+
(.setIdentityRepository (RemoteIdentityRepository. connector)))))

‎src/clj_ssh/ssh.clj

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -38,6 +38,7 @@ Leiningen (http://github.com/technomancy/leiningen).
3838
3939
Licensed under EPL (http://www.eclipse.org/legal/epl-v10.html)"
4040
(:require
41+
[clj-ssh.agent :as agent]
4142
[clj-ssh.keychain :as keychain]
4243
[clj-ssh.reflect :as reflect]
4344
[clojure.java.io :as io]
@@ -177,6 +178,11 @@ Licensed under EPL (http://www.eclipse.org/legal/epl-v10.html)"
177178
(logging/error "Passphrase required, but none findable."))
178179
(add-identity agent identity))))))
179180

181+
(defn ssh-agent
182+
"Create an agent that uses the system ssh-agent (or paegant on windows)."
183+
[]
184+
(doto (JSch.) (agent/connect)))
185+
180186
(defn create-ssh-agent
181187
"Create an ssh-agent. By default try and add the current user's id_rsa key."
182188
([] (create-ssh-agent true))

‎test/clj_ssh/ssh_test.clj

Lines changed: 12 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -137,7 +137,18 @@ list, Alan Dipert and MeikelBrandmeyer."
137137
(.getBytes (slurp (public-key-path)))
138138
nil)
139139
(is (= 1 (count (.getIdentityNames *ssh-agent*))))
140-
(is (= "name" (first (.getIdentityNames *ssh-agent*)))))))
140+
(is (= "name" (first (.getIdentityNames *ssh-agent*))))))
141+
(testing "ssh-agent"
142+
(with-ssh-agent (ssh-agent)
143+
(let [n (count (.getIdentityNames *ssh-agent*))]
144+
(add-identity
145+
*ssh-agent*
146+
"name"
147+
(.getBytes (slurp (private-key-path)))
148+
(.getBytes (slurp (public-key-path)))
149+
nil)
150+
(is (= (inc n) (count (.getIdentityNames *ssh-agent*)))))
151+
(is (some #(= "name" %) (.getIdentityNames *ssh-agent*))))))
141152

142153
(deftest has-identity?-test
143154
(let [key (private-key-path)]

0 commit comments

Comments
 (0)