special-logout.scm
(module special-logout mzscheme
        (require "hwikireq.scm")
        (require "page.scm")
        (require "config.scm")
        (require "context.scm")
        (require "users.scm")
        (require "template.scm")

        (def-class
         (this (special:logout context))
         (supers (page-base))
         (private
          (define _template (template 'context context 'name "admin"))
          (define _users    (users context))
          )
         (public
          (define (get-template)  _template)

          (define (create-html)
            (-> context logout)
            (-> context to-from-where))
          )
         (constructor
          (-> supers special!)
          )
         )


        (register-page "special:logout" special:logout)


        )