jadedctrl/ chicken-ircc
Archived
1
0
Disbranĉigi 0
Fontkodo Tirpetoj Activity

Fix invalid-RPL_TOPICWHOTIME error

This commit is contained in:
Jaidyn Ann 2023-05-29 11:56:00 -05:00
parent 77d741f598
commit 6e5167bda7
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ircc.scm
View File

@ -167,9 +167,11 @@
[(eq? reply RPL_TOPICWHOTIME) [(eq? reply RPL_TOPICWHOTIME)
(let ([channel (second params)] (let ([channel (second params)]
[setter-nick (third params)] [setter-nick (third params)]
[time (time-unix->time-utc (string->number (last params)))]) [time (if (string? (last params))
(irc:channel-set! conn channel 'topic-set (time-unix->time-utc
(time->date time)))] (string->number (last params))))])
(if (time? time)
(irc:channel-set! conn channel 'topic-set (time->date time))))]
[(eq? reply RPL_NAMREPLY) [(eq? reply RPL_NAMREPLY)
(let ([channel (third params)] (let ([channel (third params)]
@ -398,7 +400,7 @@
[sender (irc:line-sender str space-split)] [sender (irc:line-sender str space-split)]
[verb (irc:line-verb str space-split)] [verb (irc:line-verb str space-split)]
[command (car verb)] [command (car verb)]
[reply (string->number (car verb))] [reply (and (car verb) (string->number (car verb)))]
[params (irc:line-verb-params verb)]) [params (irc:line-verb-params verb)])
`((command . ,(if (not reply) command #f)) `((command . ,(if (not reply) command #f))
(reply . ,reply) (reply . ,reply)