mirror of
https://codeberg.org/hako/Rosenthal.git
synced 2025-11-16 01:14:45 +00:00
Compare commits
3 Commits
f4d7a54232
...
1b87867f00
| Author | SHA1 | Date | |
|---|---|---|---|
|
|
1b87867f00 | ||
|
|
409fad8307 | ||
|
|
0fa66ce699 |
@ -319,6 +319,26 @@ a SOCKS5 proxy.")
|
||||
"derpprobe"
|
||||
"tailscaled"
|
||||
"tsidp")))))
|
||||
(add-after 'unpack 'fix-paths
|
||||
(lambda _
|
||||
(substitute* "ssh/tailssh/user.go"
|
||||
(((format #f "(\")(~a|~a\")"
|
||||
(string-join
|
||||
'("/usr/local/sbin"
|
||||
"/usr/local/bin"
|
||||
"/usr/sbin"
|
||||
"/usr/bin"
|
||||
"/sbin"
|
||||
"/bin")
|
||||
":")
|
||||
(string-join
|
||||
'("/usr/local/bin"
|
||||
"/usr/bin"
|
||||
"/bin")
|
||||
":"))
|
||||
_ prefix suffix)
|
||||
(format #f "~a/run/current-system/profile/bin:~a"
|
||||
prefix suffix)))))
|
||||
(add-after 'install 'install-extras
|
||||
(lambda _
|
||||
(symlink (in-vicinity #$output "bin/tailscaled")
|
||||
|
||||
@ -107,10 +107,6 @@
|
||||
(file-like tailscale)
|
||||
"The tailscale package to use.")
|
||||
|
||||
(iptables
|
||||
(file-like iptables-nft)
|
||||
"The iptables package to use.")
|
||||
|
||||
(log-file
|
||||
(string "/var/log/tailscaled.log")
|
||||
"Path to log file.")
|
||||
@ -141,14 +137,8 @@ to #f.")
|
||||
|
||||
(define tailscale-shepherd-service
|
||||
(match-record-lambda <tailscale-configuration>
|
||||
(tailscale iptables log-file socket state-directory
|
||||
(tailscale log-file socket state-directory
|
||||
upload-log? verbosity extra-options)
|
||||
(let ((environment
|
||||
#~(list (string-append "PATH="
|
||||
(string-join
|
||||
'(#$(file-append iptables "/sbin")
|
||||
#$(file-append iproute "/sbin"))
|
||||
":")))))
|
||||
(list (shepherd-service
|
||||
(documentation "Run tailscaled")
|
||||
(provision '(tailscaled))
|
||||
@ -164,9 +154,8 @@ to #f.")
|
||||
"-statedir" #$state-directory
|
||||
"-verbose" #$(number->string verbosity)
|
||||
#$@extra-options)
|
||||
#:environment-variables #$environment
|
||||
#:log-file #$log-file))
|
||||
(stop #~(make-kill-destructor)))))))
|
||||
(stop #~(make-kill-destructor))))))
|
||||
|
||||
(define tailscale-service-type
|
||||
(service-type
|
||||
|
||||
Loading…
Reference in New Issue
Block a user