seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-11-16 17:34:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

Compare commits

base: seasharp:1b87867f0024bea0653edf1f47ed449b9511b521
Branches Tags
seasharp:trunk
seasharp:keyring
..
compare: seasharp:f4d7a54232f304e66684e8460d5e0adc4bd6532f
Branches Tags
seasharp:trunk
seasharp:keyring

No commits in common. "1b87867f0024bea0653edf1f47ed449b9511b521" and "f4d7a54232f304e66684e8460d5e0adc4bd6532f" have entirely different histories.
1b87867f00 ... f4d7a54232

2 changed files with 29 additions and 38 deletions
Show Stats Expand all files Collapse all files

20
modules/rosenthal/packages/networking.scm
View File

@ -319,26 +319,6 @@ a SOCKS5 proxy.")
"derpprobe" "derpprobe"
"tailscaled" "tailscaled"
"tsidp"))))) "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 (add-after 'install 'install-extras
(lambda _ (lambda _
(symlink (in-vicinity #$output "bin/tailscaled") (symlink (in-vicinity #$output "bin/tailscaled")

15
modules/rosenthal/services/networking.scm
View File

@ -107,6 +107,10 @@
(file-like tailscale) (file-like tailscale)
"The tailscale package to use.") "The tailscale package to use.")
(iptables
(file-like iptables-nft)
"The iptables package to use.")
(log-file (log-file
(string "/var/log/tailscaled.log") (string "/var/log/tailscaled.log")
"Path to log file.") "Path to log file.")
@ -137,8 +141,14 @@ to #f.")
(define tailscale-shepherd-service (define tailscale-shepherd-service
(match-record-lambda <tailscale-configuration> (match-record-lambda <tailscale-configuration>
(tailscale log-file socket state-directory (tailscale iptables log-file socket state-directory
upload-log? verbosity extra-options) upload-log? verbosity extra-options)
(let ((environment
#~(list (string-append "PATH="
(string-join
'(#$(file-append iptables "/sbin")
#$(file-append iproute "/sbin"))
":")))))
(list (shepherd-service (list (shepherd-service
(documentation "Run tailscaled") (documentation "Run tailscaled")
(provision '(tailscaled)) (provision '(tailscaled))
@ -154,8 +164,9 @@ to #f.")
"-statedir" #$state-directory "-statedir" #$state-directory
"-verbose" #$(number->string verbosity) "-verbose" #$(number->string verbosity)
#$@extra-options) #$@extra-options)
#:environment-variables #$environment
#:log-file #$log-file)) #:log-file #$log-file))
(stop #~(make-kill-destructor)))))) (stop #~(make-kill-destructor)))))))
(define tailscale-service-type (define tailscale-service-type
(service-type (service-type