cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-01 04:26:47 +01:00
Code Issues

- added a dummy gemini server for debugging purposes.

Browse Source
This commit is contained in:
cage 2024-02-10 14:36:01 +01:00
parent 2ce0f97a4a
commit a16fc03337
7 changed files with 30 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/command-line.lisp
View File

@ -92,7 +92,10 @@
(:name :print-lisp-dependencies
:description (_ "Download lisp libraries (useful for packaging only).")
:short #\X
:long "lisp-dependencies-uris")))
:long "lisp-dependencies-uris")
(:name :start-dummy-server
:description (_ "Start a dummy sever, just useful for debugging.")
:long "start-dummy-server")))
(defparameter *start-folder* nil)
@ -122,6 +125,8 @@
(defparameter *rpc-client-mode* nil)
(defparameter *start-dummy-server* nil)
(defun exit-on-error (e)
(format *error-output* "~a~%" e)
(os-utils:exit-program 1))
@ -158,4 +163,5 @@
(set-option-variable options :check-follows-requests *check-follow-requests*)
(set-option-variable options :gemini-full-screen-mode *gemini-full-screen-mode*)
(set-option-variable options :notify-mentions *notify-mentions*)
(set-option-variable options :print-lisp-dependencies *print-lisp-dependencies*))))
(set-option-variable options :print-lisp-dependencies *print-lisp-dependencies*)
(set-option-variable options :start-dummy-server *start-dummy-server*))))

11
src/gemini/package.lisp
View File

@ -201,6 +201,17 @@
:build-redirect-iri
:slurp-gemini-url))
(defpackage :gemini-dummy-server
(:use
:cl
:text-utils
:misc
:gemini-constants
:gemini-client)
(:local-nicknames (:a :alexandria))
(:export
:start))
(defpackage :gemini-subscription
(:use
:cl

3
src/gui/server/public-api-gemini-stream.lisp
View File

@ -251,8 +251,7 @@
actual-iri
:cached t))
(progn
(debug-gemini-gui "caching *not* found for ~a"
actual-iri)
(debug-gemini-gui "caching *not* found for ~a" actual-iri)
(%gemini-request actual-iri
:certificate-key certificate-key
:certificate certificate

2
src/main.lisp
View File

@ -260,6 +260,8 @@ etc.) happened"
(res:init)
(command-line:manage-opts)
(cond
(command-line:*start-dummy-server*
(gemini-dummy-server:start))
(command-line:*rpc-server-mode*
(db-utils:with-ready-database (:connect nil)
(rpc-server-init)))

1
src/package.lisp
View File

@ -1561,6 +1561,7 @@
:*update-timeline-climb-message-tree*
:*gemini-full-screen-mode*
:*print-lisp-dependencies*
:*start-dummy-server*
:*rpc-server-mode*
:*rpc-client-mode*
:manage-opts))

10
src/x509.lisp
View File

@ -58,9 +58,11 @@
(cl+ssl:x509-free ,cert))))
(defmethod certificate-fingerprint ((object cl+ssl::ssl-stream) &key (hash-algorithm :sha256))
(let* ((cert (cl+ssl:ssl-stream-x509-certificate object)))
(decode-fingerprint cert hash-algorithm)))
(let ((cert (cl+ssl:ssl-stream-x509-certificate object)))
(when (not (cffi:null-pointer-p cert))
(decode-fingerprint cert hash-algorithm))))
(defmethod certificate-fingerprint ((object string) &key (hash-algorithm :sha256))
(let* ((cert (cl+ssl:decode-certificate-from-file (pem->der object) :format :der)))
(decode-fingerprint cert hash-algorithm)))
(let ((cert (cl+ssl:decode-certificate-from-file (pem->der object) :format :der)))
(when (not (cffi:null-pointer-p cert))
(decode-fingerprint cert hash-algorithm))))

1
tinmop.asd
View File

@ -99,6 +99,7 @@
(:file "gemini-constants")
(:file "gemini-parser")
(:file "client")
(:file "dummy-server")
(:file "titan")
(:file "subscription")))
(:module kami