meta/package-updates-exporter
0
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

latest

Browse source
This commit is contained in:
Elis Odenhage 2024-09-28 21:58:15 +02:00
parent 2e79357848
commit 21b17211af
Signed by untrusted user who does not match committer: elis
GPG key ID: 23ACAB3BB1F89857
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
package-updates-exporter.ros
View file

@ -40,10 +40,10 @@ exec ros -Q -- $0 "$@"
(error "Unknown package manager: ~A" package-manager))))) (error "Unknown package manager: ~A" package-manager)))))
(defun main (&rest argv) (defun main (&rest argv)
(let* ((architecture (uiop:run-program "sh" :args '("-c" "uname -m | tr -d '\n'") :output :string)) (let* ((architecture (uiop:run-program '("uname" "-m") :output :string))
(upgradable (get-upgradable *package-manager*))) (upgradable (get-upgradable *package-manager*)))
(format t "# HELP ~a_upgrades_pending Packages pending updates by origin~%" *package-manager*) (format t "# HELP ~a_upgrades_pending Packages pending updates by origin~%" *package-manager*)
(format t "# TYPE ~a_upgrades_pending gauge~%" *package-manager*) (format t "# TYPE ~a_upgrades_pending gauge~%" *package-manager*)
(format t "~a_package_pending_update{arch=\"~a\"} ~d~%" *package-manager* architecture upgradable))) (format t "~a_package_pending_update{arch=\"~a\"} ~d~%" *package-manager* (string-trim '(#\Newline) architecture) upgradable)))
;;; vim: set ft=lisp lisp: ;;; vim: set ft=lisp lisp: