Unnamed

proc edituserstatus {nick uhand host chan arg} {
  global db_settings

  if {$arg=="" || [lindex $arg 0]=="" || [lindex $arg 1]==""} {
    putchan $chan "Usage: !edituserstatus <name> <status>"
    return 0
  }

  set name [lindex $arg 0]
  set status [lindex $arg 1]
  set output "Status for \002$name\002 has been set to \002$status\002."

  sql connect $db_settings(host) $db_settings(user) "$db_settings(pass)"
  sql selectdb $db_settings(database)

  set userid "[sql "SELECT id FROM users WHERE name='$name'"]"
  if {$userid!="" || $userid>0} {
    if {[lindex $arg 1] == "Idle"} {
      set result [sql "UPDATE users SET status='$status' WHERE name='$name' AND id=$userid"]
      putchan $chan $output
    } elseif {[lindex $arg 1] == "Active"} {
      set result [sql "UPDATE users SET status='$status' WHERE name='$name' AND id=$userid"]
      putchan $chan $output
    } else {
      putchan $chan "Available Status: Active or Idle"
    }
  } else {
    putchan $chan "Sorry, I don't know who \002$name\002 is."
  }

  sql disconnect
  return 1
}