serve_add_user.m

# @(#)serve_add_user.m	1.1 01/04/99 firstbase.com
#
#
# Serve_add_user.m - Copyright by FirstBase Software
#
# This code works with dbmacro, a part of the FirstBase database package.
# For more information, see http://www.firstbase.com
#
# serve an add_user form --- asking for a LASTNAME, FIRSTNAME in one field
#    this form calls add_user.m to actually add the record
#

function serve_add_user()
   {
      comments()
      print(html_open("Hardware Management System: Add a User"))
      wheader("Add a User")
      print(html_form_open(
         dbmacro + apphome + "/m_user/add_user.m?V=" + random_string))
      print(html_center_open())
      print(html_table_open())
      print(html_row("LastName, FirstName:",
         html_input("TEXT", "Name", 25, 25)))
      print(html_row(html_italics("Additional Saved Information")))
      IP = getenv("REMOTE_ADDR")
      IP_TIME = date(now())
      print(html_row("Connecting IP Address:", IP))
      print(html_row("Time/Date Stamp:", IP_TIME))
      print(html_table_close())
      print(html_input("SUBMIT", "Submit", 10, 10, "Add User"),
         html_input("RESET", "Reset", 10, 10, "Reset"))
      print(html_center_close())
      print(html_input("HIDDEN", "IP", 1, 1, IP))
      print(html_input("HIDDEN", "IP_TIME", 1, 1, IP_TIME))
      print(html_form_close())
      wfooter("/mainmenu.html")
      print(html_close())
   }