jadedctrl/ qotdd
1
0
Disbranĉigi 0
Fontkodo Issues Tirpetoj Activity

Compatibility with facilservil 0.2

This commit is contained in:
Jaidyn Lev 2018-12-02 19:17:32 -06:00
parent bb6a648045
commit d82676ddf0
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/package.lisp
View File

@ -1,4 +1,5 @@
(defpackage :qotdd (defpackage :qotdd
(:use :cl)
(:export (:export
:server)) :server))

8
src/server.lisp
View File

@ -19,14 +19,14 @@
;; SOCKET NUMBER --> NIL ;; SOCKET NUMBER --> NIL
(defun main (socket client-id) (defun main (socket client)
"Main function on a connection-- send the QOTD to them." "Main function on a connection-- send the QOTD to them."
(facilservil:client-write socket (facilservil:client-write client
(get-quote *qotd-path* (get-universal-time)) 'T) (get-quote *qotd-path* (get-universal-time)) 'T)
(facilservil:client-slaughter socket)) (facilservil:client-slaughter client))
;; SOCKET NUMBER [STRING] --> NIL ;; SOCKET NUMBER [STRING] --> NIL
(defun blank (socket client-id &optional (input-string nil))) (defun blank (socket client &optional (input-string nil)))