diff options
| author | Runciter | 2025-05-19 23:56:05 +0800 |
|---|---|---|
| committer | Runciter | 2025-05-19 23:56:05 +0800 |
| commit | f21e30b72e313ab04c70a23895d667fcfc6de002 (patch) | |
| tree | 23458bd196cc072422144d2ab4c0b954f35bff08 /whispers/services | |
| parent | 1a0650ca0216f9870cd072631ae1580c0ceb9dc2 (diff) | |
| download | whispers-f21e30b72e313ab04c70a23895d667fcfc6de002.tar.gz | |
M whispers/packages/doc.scm
Update ssh-tunneler-doc package to latest commit;
Update whispers-doc package to latest commit
M whispers/services/ssh-tunneler.scm
In record type socks-proxy-configuration;
Improve comments to the dynamic-forward member.
M whispers/services/whispers/ssh.scm
In record type whispers-forwarding;
Add member stealth-extra-forwards;
Use it to extend extra forwardings to proxy server sshd
Diffstat (limited to 'whispers/services')
| -rw-r--r-- | whispers/services/ssh-tunneler.scm | 3 | ||||
| -rw-r--r-- | whispers/services/whispers/ssh.scm | 10 |
2 files changed, 10 insertions, 3 deletions
diff --git a/whispers/services/ssh-tunneler.scm b/whispers/services/ssh-tunneler.scm index 7559336..505273e 100644 --- a/whispers/services/ssh-tunneler.scm +++ b/whispers/services/ssh-tunneler.scm @@ -294,7 +294,8 @@ (thunked)) ;; #f, or a guix record returned by a call to ;; (ssh-connection-configuration - ;; (forwards (list (dynamic-forward-configuration ...))) + ;; (forwards (list (dynamic-forward-configuration ...) + ;; ...)) ;; ...) (dynamic-forward socks-proxy-configuration-dynamic-forward (default #f))) diff --git a/whispers/services/whispers/ssh.scm b/whispers/services/whispers/ssh.scm index 8cf73ff..56d12e0 100644 --- a/whispers/services/whispers/ssh.scm +++ b/whispers/services/whispers/ssh.scm @@ -182,6 +182,9 @@ ;; An integer. (stealth-proxy-port whispers-forwarding-stealth-proxy-port (default 8585)) + ;; A list of records of type <ssh-forward-configuration> + (stealth-extra-forwards whispers-forwarding-stealth-extra-forwards + (default '())) ;; A boolean value. (%auto-start? whispers-forwarding-auto-start? (default #t))) @@ -330,6 +333,8 @@ defined by FORWARDING, a record of the <whispers-forwarding> type." (stealth-timeout (whispers-forwarding-stealth-timeout forwarding)) (stealth-proxy-port (whispers-forwarding-stealth-proxy-port forwarding)) + (stealth-extra-forwards (whispers-forwarding-stealth-extra-forwards + forwarding)) (stealth-strict (whispers-forwarding-stealth-strict-check forwarding)) (stealth-kh-files (whispers-forwarding-stealth-known-hosts-files @@ -396,8 +401,9 @@ defined by FORWARDING, a record of the <whispers-forwarding> type." (log-folder-override (log-folder-forwarding user (cadr conn))) (sshd-user stealth-sshd-user) (forwards - (list (dynamic-forward-configuration - (entry-port stealth-proxy-port)))) + (cons (dynamic-forward-configuration (entry-port + stealth-proxy-port)) + stealth-extra-forwards)) (sshd-host stealth-host) (sshd-port stealth-port) (strict-check stealth-strict) |