focks
/
forgejo-updater
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases Wiki Activity

printed a message when we dont find a new release 

changed error handler to print only the error
This commit is contained in:
a. fox 2023-07-31 16:36:31 -04:00
parent 5fe12c35d9
commit cadf3ad6c6
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
forgejo-updater.lisp
View File

@ -164,7 +164,7 @@
(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 (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")
@ -184,12 +184,13 @@
(format t "Unable to verify release, not upgrading.~%"))
(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))))))
(format t "New Forgejo Version Available: ~A~%" (gethash :title most-recent)))
(logger "No new release found...~%"))))
(user-abort ()
(format t "~&Quitting...~%")
(uiop:quit 0))
(error (e)
(format t "Encountered error: ~A~%" e)
(format t "~A~%" e)
(uiop:quit 1)))))