first push

.gitignore

@@ -0,0 +1,2 @@
+.DS_Store
+bin/

Makefile

@@ -0,0 +1,24 @@
+LISPS = ros sbcl clisp cmucl ccl
+CMDS = --eval "(ql:quickload :forgejo-updater)" --eval "(asdf:make :forgejo-updater)" --eval "(quit)"
+
+
+ifeq ($(OS),Windows_NT)
+	LISP := $(foreach lisp,$(LISPS), \
+		$(shell where $(lisp)) \
+		$(if $(.SHELLSTATUS),$(strip $(lisp)),))
+else
+	LISP := $(foreach lisp,$(LISPS), \
+		$(if $(findstring $(lisp),"$(shell which $(lisp) 2>/dev/null)"), $(strip $(lisp)),))
+endif
+
+ifeq ($(LISP),)
+	$(error "No lisps found")
+endif
+
+.PHONY: clean all
+
+all:
+	$(LISP) $(CMDS)
+
+clean: 
+	rm -rf bin/

README.md

@@ -0,0 +1,9 @@
+# forgejo-updater
+### _a. fox_
+
+a tool to help keep forgejo up to date on your system
+
+## License
+
+MIT
+

forgejo-updater.asd

@@ -0,0 +1,19 @@
+;;;; forgejo-updater.asd
+
+(asdf:defsystem #:forgejo-updater
+  :description "Describe forgejo-updater here"
+  :author "a. fox"
+  :license  "MIT"
+  :version "0.0.1"
+  :serial t
+  :depends-on (#:cl-feedparser #:clss #:drakma #:with-user-abort
+               #:plump #:str #:unix-opts)
+  :components ((:file "package")
+               (:file "forgejo-updater"))
+  :build-operation "program-op"
+  :build-pathname "bin/fupdater"
+  :entry-point "forgejo-updater::main")
+
+#+sb-core-compression
+(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
+  (uiop:dump-image (asdf:output-file o c) :executable t :compression t))

forgejo-updater.lisp

@@ -0,0 +1,151 @@
+;;;; forgejo-updater.lisp
+
+(in-package #:forgejo-updater)
+
+(eval-when (:compile-toplevel)
+  (defconstant +forgejo-release-rss+ "https://codeberg.org/forgejo/forgejo/releases.rss"))
+
+(defvar *current-program-version* nil
+  "the current running forgejo program's version")
+
+(opts:define-opts
+ (:name :help
+  :description "prints this help"
+  :short #\h
+  :long "help")
+ (:name :force
+  :description "forces the updater to download the latest version"
+  :short #\f
+  :long "force")
+ (:name :download
+  :description "downloads the new Forgejo version"
+  :short #\d
+  :long "download")
+ (:name :download-location
+  :description "specify the full file path to download the new release"
+  :short #\o
+  :long "output"
+  :arg-parser #'identity
+  :meta-var "FILE")
+ (:name :update
+  :description "replaces the forgejo binary with new version automatically"
+  :short #\u
+  :long "update")
+ (:name :restart-process
+  :description "restarts the forgejo systemd unit after updating"
+  :short #\r
+  :long "restart")
+ (:name :arch
+  :description "specifies the arch to download (default: linux-amd64)"
+  :long "arch"
+  :arg-parse #'identity
+  :meta-var "ARCH")
+ (:name :restart-command
+  :description "pass the command to restart the forgejo process (default: systemctl restart forgejo)"
+  :long "restart-command"
+  :arg-parser #'identity
+  :meta-var "COMMAND")
+ (:name :version
+  :description "prints the program's version"
+  :long "version")
+ (:name :verbose
+  :description "prints logging info"
+  :short #\v
+  :long "verbose"))
+
+(defun parse-links (dom)
+  (loop :for elt :across (clss:select "li > a" dom)
+        :when (string= "noopener noreferrer" (plump:attribute elt "rel"))
+        :collect `(,(str:trim (plump:text elt)) .
+                   ,(str:trim (plump:attribute elt "href")))))
+
+(defun download-release (link arch download-location)
+  ;; fetch HTML from release page
+  ;; cache location of forgejo binary
+  ;; parse HTML for specified link & arch
+  ;; download correct version to tmp dir
+  (let* ((dom (plump:parse (drakma:http-request link :decode-content t)))
+         (rel-link (assoc arch (parse-links dom)
+                          :test #'(lambda (k v)
+                                    (str:ends-with-p k v)))))
+    (format t "Parsed releases~%")
+    (if rel-link
+      (let ((save-path (or download-location 
+                           (str:concat "/tmp/" (car (last (str:split "/" link)))))))
+        (with-open-file (out save-path
+                             :direction :output
+                             :if-does-not-exist :create
+                             :if-exists :supersede
+                             :element-type '(unsigned-byte 8))
+          (loop :with file := (drakma:http-request (cdr rel-link) :want-stream t)
+                :for byte := (read-byte file nil nil)
+                :until byte
+                :do (write-byte byte out)))
+        save-path)
+      (format t "Unable to find download link for sepecified arch: ~A~%" arch))))
+
+(defun update-binary (new-release)
+  ;; update to user UIOP provided funcs instead of calling
+  ;; the command line directly
+  (let ((old-path (uiop:run-program "which forgejo" :output '(:string :stripped t))))
+    (uiop:run-program (list "chmod" "+x" new-release))
+
+    ;(logger "Backing up old version to ~A~%" (str:concat old-path ".old"))
+    (uiop:run-program (list "mv" old-path (str:concat old-path ".old")))
+    (uiop:run-program (list "mv" new-release old-path))))
+
+(defun restart-process (cmd)
+  (uiop:run-program cmd))
+
+(defmacro logger (&rest rest)
+  `(when (getf opts :verbose)
+     (format t ,@rest)))
+
+(defun main ()
+  "binary entry point"
+
+  (multiple-value-bind (opts args) (opts:get-opts)
+    (when (getf opts :help)
+      (opts:describe :usage-of "fupdater")
+      (uiop:quit 0))
+
+    (when (getf opts :version)
+      (format t "fupdater v~A~&"
+              #.(asdf:component-version (asdf:find-system :forgejo-updater)))
+      (uiop:quit 0))
+    
+    (setf *current-program-version*
+          (if (getf opts :force)
+              ""
+              (nth 3 (str:words (uiop:run-program '("forgejo" "--version") :output '(:string :stripped t))))))
+
+    (handler-case 
+        (with-user-abort
+         (let* ((feed (feedparser:parse-feed (drakma:http-request +forgejo-release-rss+ :decode-content t)))
+                (most-recent (first (gethash :entries feed))))
+           (when (string< *current-program-version* (gethash :title most-recent))
+             (if (getf opts :download)
+                 (let ((path (download-release (gethash :link most-recent)
+                                               (getf opts :arch "linux-amd64")
+                                               (getf opts :download-location))))
+                   (logger "Found new version!~%")
+                   (if path
+                     (if (getf opts :update)
+                       (progn
+                         (logger "Downloaded new release...")
+                         (update-binary path)
+
+                         (when (getf opts :restart-process)
+                           (logger "Restarting Forgejo process...")
+                           (restart-process (getf opts :restart-command "systemctl restart forgejo"))))
+                       (format t "Downloaded release ~A to ~A~%" (gethash :title most-recent) path))
+                     (format t "Unable to find release for arch ~A~%" (getf opts :arch "linux-amd64"))))
+               (format t "New Forgejo Version Available: ~A~%" (gethash :title most-recent))))))
+    
+      (user-abort ()
+        (format t "~&Quitting...~%")
+        (uiop:quit 0)))))
+
+;      (error (e)
+;        (format t "Encountered error: ~A~%" e)
+;        (uiop:quit 1)))))

package.lisp

@@ -0,0 +1,4 @@
+;;;; package.lisp
+
+(defpackage #:forgejo-updater
+  (:use #:cl #:with-user-abort))