1
0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-07-12 19:25:19 +00:00
Rosenthal/modules/rosenthal/packages/networking.scm
Hilton Chain 8bf237c8a3
rosenthal: tailscale: Update to 1.84.2.
* modules/rosenthal/packages/networking.scm (tailscale): Update to 1.84.2.
2025-06-11 13:04:41 +08:00

381 lines
15 KiB
Scheme

;; SPDX-FileCopyrightText: 2022-2024 Hilton Chain <hako@ultrarare.space>
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
(define-module (rosenthal packages networking)
#:use-module ((guix licenses) #:prefix license:)
#:use-module (guix build-system go)
#:use-module (guix gexp)
#:use-module (guix git-download)
#:use-module (guix packages)
#:use-module (rosenthal utils download)
#:use-module (gnu packages base)
#:use-module (gnu packages dns)
#:use-module (gnu packages golang)
#:use-module (gnu packages golang-build)
#:use-module (gnu packages linux)
#:use-module (rosenthal packages golang))
(define-public cloudflared
(package
(name "cloudflared")
(version "2025.5.0")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/cloudflare/cloudflared")
(commit version)))
(file-name (git-file-name name version))
;; TODO: Unbundle vendored dependencies.
;; (modules '((guix build utils)))
;; (snippet '(delete-file-recursively "vendor"))
(sha256
(base32
"0faf5mc1b85fzqj9as7lrb9lgxsvybn65vvw94i7mx003vvh8yb6"))))
(build-system go-build-system)
(arguments
(list #:go go-cloudflare
#:install-source? #f
#:import-path "github.com/cloudflare/cloudflared/cmd/cloudflared"
#:unpack-path "github.com/cloudflare/cloudflared"
#:build-flags
#~(list (string-append
"-ldflags="
" -X main.Version=" #$(package-version this-package)
" -X github.com/cloudflare/cloudflared/cmd/cloudflared/updater.BuiltForPackageManager=Guix"))
#:phases
#~(modify-phases %standard-phases
(add-before 'build 'disable-cgo
(lambda _
(setenv "CGO_ENABLED" "0")))
(add-after 'install 'install-documentation
(lambda _
(let ((src "src/github.com/cloudflare/cloudflared/cloudflared_man_template")
(dst (string-append #$output "/share/man/man1/cloudflared.1")))
(substitute* src
(("\\$\\{VERSION\\}") #$(package-version this-package)))
(mkdir-p (dirname dst))
(copy-file src dst)))))))
(home-page "https://developers.cloudflare.com/cloudflare-one/connections/connect-apps/")
(synopsis "Cloudflare Tunnel client")
(description
"This package provides the command-line client for Cloudflare Tunnel, a
tunneling daemon that proxies traffic from the Cloudflare network to your
origins. This daemon sits between Cloudflare network and your origin (e.g. a
webserver). Cloudflare attracts client requests and sends them to you via
this daemon, without requiring you to poke holes on your firewall --- your
origin can remain as closed as possible.")
(license license:asl2.0)))
(define-public mihomo
(package
(name "mihomo")
(version "1.19.10")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/MetaCubeX/mihomo")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"0763l9w8n7w9b6vyykk159vpr3lf9ynhpl86mk8j2v1k0wrwjdpg"))))
(build-system go-build-system)
(arguments
(list
#:tests? (not (%current-target-system)) ;TODO: Run test suite.
#:go go-1.23
#:install-source? #f
#:import-path "."
#:build-flags
#~(list "-tags" "with_gvisor"
(string-append
"-ldflags="
" -X github.com/metacubex/mihomo/constant.Version="
#$(package-version this-package)))
#:modules
'((ice-9 match)
((guix build gnu-build-system) #:prefix gnu:)
(guix build go-build-system)
(guix build utils))
#:phases
#~(modify-phases %standard-phases
(replace 'unpack
(lambda args
(unsetenv "GO111MODULE")
(apply (assoc-ref gnu:%standard-phases 'unpack) args)
(copy-recursively
#+(this-package-native-input "vendored-go-dependencies")
"vendor")))
(replace 'install-license-files
(assoc-ref gnu:%standard-phases 'install-license-files))
(delete 'check)
(add-after 'install 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(let ((mihomo (in-vicinity #$output "bin/mihomo")))
(invoke mihomo "--help")
(invoke mihomo "-v"))))))))
(native-inputs
(append
(list (origin
(method (go-mod-vendor #:go go-1.23))
(uri (package-source this-package))
(file-name "vendored-go-dependencies")
(sha256
(base32
"00y6qiz892fg2ipn9i2d0xdrr35kaw7la2bzzsxskhd13vqwh4ns"))))
(if (%current-target-system)
(list this-package)
'())))
(home-page "https://wiki.metacubex.one/")
(synopsis "Rule-based proxy")
(description
"Mihomo is an anti-censorship proxy application, originally known as
\"Clash Meta\", designed to facilitate secure and flexible internet access.
It supports various protocols, making it a versatile tool for users seeking to
bypass network restrictions." )
(license license:gpl3+)))
(define-public sing-box
(package
(name "sing-box")
(version "1.11.13")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/SagerNet/sing-box")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1pp1afwnappzjcqh1ny92xvv4l1aczmax68ywa9kf9fda2al9biy"))))
(build-system go-build-system)
(arguments
(list
#:tests? (not (%current-target-system)) ;TODO: Run test suite.
#:go go-1.23
#:install-source? #f
#:import-path "./cmd/sing-box"
#:build-flags
#~(list "-tags" (string-join
'("with_quic"
"with_dhcp"
"with_wireguard"
"with_ech"
"with_utls"
"with_reality_server"
"with_acme"
"with_clash_api"
"with_gvisor"))
(string-append
"-ldflags="
" -X github.com/sagernet/sing-box/constant.Version="
#$(package-version this-package)))
#:modules
'((ice-9 match)
((guix build gnu-build-system) #:prefix gnu:)
(guix build go-build-system)
(guix build utils))
#:phases
#~(modify-phases %standard-phases
(replace 'unpack
(lambda args
(unsetenv "GO111MODULE")
(apply (assoc-ref gnu:%standard-phases 'unpack) args)
(copy-recursively
#+(this-package-native-input "vendored-go-dependencies")
"vendor")))
(replace 'install-license-files
(assoc-ref gnu:%standard-phases 'install-license-files))
(add-after 'install 'install-extras
(lambda _
(let ((sing-box
(or (which "sing-box")
(in-vicinity #$output "bin/sing-box"))))
(map
(match-lambda
((shell . path)
(let ((file (in-vicinity #$output path)))
(mkdir-p (dirname file))
(with-output-to-file file
(lambda ()
(invoke sing-box "completion" shell))))))
'(("bash" . "etc/bash_completion.d/sing-box")
("fish" . "share/fish/vendor_completions.d/sing-box.fish")
("zsh" . "share/zsh/site-functions/_sing-box")))))))))
(native-inputs
(append
(list (origin
(method (go-mod-vendor #:go go-1.23))
(uri (package-source this-package))
(file-name "vendored-go-dependencies")
(sha256
(base32
"1rj34zgr6h1l3z7qanjsaac780h2inh8nbx31js569zyvdxjkb7x"))))
(if (%current-target-system)
(list this-package)
'())))
(home-page "https://sing-box.sagernet.org/")
(synopsis "Universal proxy platform")
(description
"@command{sing-box} is a customizable and univsersal proxy platform that
can be used to create network proxy servers, clients and transparent proxies.")
(license license:gpl3+)))
(define-public socks2http
(package
(name "socks2http")
(version "0.0.0-20160712034938-bafa2cde8eb4")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/zenhack/socks2http")
(commit (go-version->git-ref version))))
(file-name (git-file-name name version))
(sha256
(base32
"0c388rir9d0cy5vxqxj7m72nra0w5cya4mmgqdcvqmnk2vawdyb9"))))
(build-system go-build-system)
(arguments
(list #:install-source? #f
#:import-path "github.com/zenhack/socks2http"))
(inputs (list go-golang-org-x-net))
(home-page "https://github.com/zenhack/socks2http")
(synopsis "SOCKS5 to HTTP proxy")
(description
"This package provides a simple tool to plumb HTTP proxy requests through
a SOCKS5 proxy.")
(license license:expat)
(properties
'((disable-updater? . #t)))))
(define-public tailscale
(package
(name "tailscale")
(version "1.84.2")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://github.com/tailscale/tailscale")
(commit (string-append "v" version))))
(file-name (git-file-name name version))
(sha256
(base32
"1nsf9g95c68hbsals99fqn47w75sa17ayhalk85qi8iv36k2h9km"))
(modules '((guix build utils)))
(snippet
'(begin
(delete-file-recursively "tool")
(substitute* "net/tstun/tun_linux.go"
(("/sbin/(modprobe)" _ cmd) cmd))))))
(build-system go-build-system)
(arguments
(list
#:tests? (not (%current-target-system)) ;TODO: Run test suite.
#:go go-1.24
#:install-source? #f
#:import-path "."
#:build-flags
#~(list "-tags" "ts_include_cli"
(string-append
"-ldflags="
" -X tailscale.com/version.longStamp="
#$(package-version this-package)
" -X tailscale.com/version.shortStamp="
#$(package-version this-package)))
#:modules
'((ice-9 match)
((guix build gnu-build-system) #:prefix gnu:)
(guix build go-build-system)
(guix build utils))
#:phases
#~(modify-phases %standard-phases
(replace 'unpack
(lambda args
(unsetenv "GO111MODULE")
(apply (assoc-ref gnu:%standard-phases 'unpack) args)
(copy-recursively
#+(this-package-native-input "vendored-go-dependencies")
"vendor")))
(replace 'install-license-files
(assoc-ref gnu:%standard-phases 'install-license-files))
(replace 'build
(lambda* (#:key build-flags parallel-build? #:allow-other-keys)
(let* ((njobs (if parallel-build? (parallel-job-count) 1)))
(setenv "GOMAXPROCS" (number->string njobs))
(for-each
(lambda (pkg)
(apply invoke "go" "build" "-ldflags=-s -w" "-trimpath"
"-o" (string-append #$output "/bin/" pkg)
`(,@build-flags
,(string-append "tailscale.com/cmd/" pkg))))
'("derper"
"derpprobe"
"tailscaled"
"tsidp")))))
(add-after 'install 'install-extras
(lambda _
(symlink (in-vicinity #$output "bin/tailscaled")
(in-vicinity #$output "bin/tailscale"))
(let ((tailscale
(or (which "tailscale")
(in-vicinity #$output "bin/tailscale"))))
(map
(match-lambda
((shell . path)
(let ((file (in-vicinity #$output path)))
(mkdir-p (dirname file))
(with-output-to-file file
(lambda ()
(invoke tailscale "completion" shell))))))
'(("bash" . "etc/bash_completion.d/tailscale")
("fish" . "share/fish/vendor_completions.d/tailscale.fish")
("zsh" . "share/zsh/site-functions/_tailscale"))))))
(add-after 'install 'wrap-binaries
(lambda* (#:key inputs #:allow-other-keys)
(wrap-program (in-vicinity #$output "bin/tailscaled")
`("PATH" ":" prefix
,(map (lambda (cmd)
(dirname (search-input-file inputs cmd)))
'("bin/find"
"bin/getent"
"bin/modprobe"
"sbin/ip"
"sbin/iptables"
"sbin/resolvconf"
"sbin/sysctl"))))))
(delete 'check)
(add-after 'install 'check
(lambda* (#:key tests? #:allow-other-keys)
(when tests?
(for-each
(lambda (cmd)
(invoke (string-append #$output "/bin/" cmd) "--help"))
'("derper"
"derpprobe"
"tailscaled"
"tsidp"))))))))
(native-inputs
(append
(list (origin
(method (go-mod-vendor #:go go-1.24))
(uri (package-source this-package))
(file-name "vendored-go-dependencies")
(sha256
(base32
"1pbcp946wingy0xw8nc1x0hdj55scndv8kdgzfni0f4hwlq045j0"))))
(if (%current-target-system)
(list this-package)
'())))
(inputs
(list findutils glibc iproute iptables-nft kmod openresolv procps))
(home-page "https://tailscale.com/")
(synopsis "Mesh VPN service utilizing the WireGuard protocol and 2FA")
(description
"Tailscale is a mesh VPN service that simplifies the process of securely
connecting devices and services across various networks. It allows you to
create a private network with minimal configuration and aims to remove the
complexity of building a trusted and secure network.")
(license license:bsd-3)))