@verb #555:"tell_www_setup" this none this rxdo #789
@program #555:"tell_www_setup" this none this
caller == this || raise(E_PERM)
pass(@args)
set_task_perms(player.user)
if (player.user:controls(this))
  if (this.db_files)
    db_msg = ""
    typeof(this.db_files) == $STR && (this.db_files = {this.db_files})
    for url in (this.db_files)
      if (!(url = $su:trim(url)))
        continue
      endif
      db_msg = db_msg + tostr("<LI><A HREF=\"", url, "\">", url, "</A>")
    endfor
    db_msg = "<OL>" + db_msg + "</OL>"
  else
    db_msg = "<UL><LI>There are <BLINK>no databases</BLINK> defined!</UL>"
  endif
  url = $www:fileURL(this, "")
  if ($code_utils:task_valid(this._reboot_task))
    reboot_msg = "<BLINK>The database is currently rebooting.</BLINK><BR>You may <INPUT NAME=\"q\" TYPE=\"hidden\" VALUE=\"rebootX\"><INPUT TYPE=\"submit\" VALUE=\"terminate the reboot!\"><BR>View any <A HREF=\"" + url + "errors.txt\">errors</A> from the reboot as it is running."
  else
    reboot_msg = "<INPUT NAME=\"q\" TYPE=\"hidden\" VALUE=\"reboot\"><INPUT TYPE=\"submit\" VALUE=\"Reboot\"> the database!<BR>View any <A HREF=\"" + url + "errors.txt\">errors</A> from the previous reboot."
  endif
  if ($code_utils:task_valid(this._check_task))
    check_msg = "<BLINK>The files are currently being checked for bad links.</BLINK><BR>You may <INPUT NAME=\"q\" TYPE=\"hidden\" VALUE=\"checkX\"><INPUT TYPE=\"submit\" VALUE=\"terminate the link check!\"><BR>View any <A HREF=\"" + url + "check.txt\">errors</A> from the link check as it is running."
  else
    check_msg = "<INPUT NAME=\"q\" TYPE=\"hidden\" VALUE=\"check\"><INPUT TYPE=\"submit\" VALUE=\"Check\"> links in all files.<BR>View any <A HREF=\"" + url + "check.txt\">errors</A> from the previous link check."
  endif
  $msg:mtell("setup", url, db_msg, reboot_msg, check_msg)
else
  if (`this.db_files ! E_PERM')
    db_msg = "<UL><LI>Sorry, you don't have permission to view the database file(s).</UL>"
  elseif (this.db_files)
    db_msg = ""
    typeof(this.db_files) == $STR && (this.db_files = {this.db_files})
    for url in (this.db_files)
      if (!(url = $su:trim(url)))
        continue
      endif
      db_msg = db_msg + tostr("<LI><A HREF=\"", url, "\">", url, "</A>")
    endfor
    db_msg = "<OL>" + db_msg + "</OL>"
  else
    db_msg = "<UL><LI>There are <BLINK>no databases</BLINK> defined!</UL>"
  endif
  url = $www:fileURL(this, "")
  if ($code_utils:task_valid(this._reboot_task))
    reboot_msg = "<BLINK>The database is currently rebooting.</BLINK><BR>View any <A HREF=\"" + url + "errors.txt\">errors</A> from the reboot as it is running."
  else
    reboot_msg = "View any <A HREF=\"" + url + "errors.txt\">errors</A> from the previous reboot."
  endif
  if ($code_utils:task_valid(this._check_task))
    check_msg = "<BLINK>The files are currently being checked for bad links.</BLINK><BR>View any <A HREF=\"" + url + "check.txt\">errors</A> from the link check as it is running."
  else
    check_msg = "View any <A HREF=\"" + url + "check.txt\">errors</A> from the previous link check."
  endif
  $msg:mtell("nosetup", url, db_msg, reboot_msg, check_msg)
endif
"Last modified by Dax (#789) on Tue May  3 14:03:26 2005 MDT."
.