@ -506,6 +506,16 @@ When they arrive, it delivers them to connected clients."
@@ -506,6 +506,16 @@ When they arrive, it delivers them to connected clients."
(formatt"Running NEA IRCd with server name '~A'.~%"*server-name*)
(formatt"Connecting to database using: ~A~%"*default-database-args*)
(initialize-database)
(let((new-username(getfopts:new-username))
(new-password(getfopts:new-password)))
(whennew-username
(unlessnew-password
(format*error-output*"fatal: supply a new password with --new-password!~%")