(define (config-resp:set-stuff)
  (set-car! (cdr *local-yenta-addr*) (ui:form-datum "phandle"))
  (identity:sign-addr)
  (set! *user:bug-report* (equal? "on" (ui:form-datum "bug-report")))
  (set! *user:e-mail* (equal? "on" (ui:form-datum "e-mail")))
  (ui:add-news-item "config.html" "Configure Yenta"
		    "User information changed")
  "")

(define (config-resp:check-left-to-do)
  (cond ((equal? "" (cadr *local-yenta-addr*))
"<p>However, you did not specify a required piece of information. Please
<a href = \"config.html\">return to the form</a> and provide the necessary
information.</p>")
	((= 0 (compare:database-size))
	 (set! *ui:config-new* #f)
	 (set! *ui:interest-new* #t)
"<p>Everything from that form is ready; you should now go on to the
<a href = \"interests.html\">Interests page</a> to specify what you are
interested in.")
	(else
	 (set! *ui:config-new* #f)
"<p>Everything is now ready. I will begin searching for people with
similar interests, unless you wish to change some information.</p>
<p><a href = \"go.html\">Start contacting other Yentas</a></p>")))
