brmlab/hackerbase
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Sub-nick matching.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-02 19:25:04 +02:00
parent 952fd03f16
commit 48636fc965
3 changed files with 20 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/bbstool.scm
View file

@ -153,10 +153,17 @@ CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
(print "Member id " (-member-id-) " not found!"))
mr)
(if (-member-nick-)
(let ((mr (find-member-by-nick MB (-member-nick-))))
(when (not mr)
(print "Member nick " (-member-nick-) " not found!"))
mr)
(let ((mrs (find-members-by-nick MB (-member-nick-))))
(cond ((null? mrs)
(newline)
(print "Member nick " (-member-nick-) " not found!")
#f)
((> (length mrs) 1)
(newline)
(print "Found: " (member-records->string mrs))
#f)
(else
(car mrs))))
#f)))
;;