namespace eval invite {


	# INITIALIZE
	proc init {} {

		# BIND COMMANDS
		bind msg - "invite" [namespace current]::invite

		set script(version) "0.1.0"
		putlog "Namespace: [namespace current] loaded! \[v$script(version)\]"
	}

	# TRIGGERS
	proc invite {nick host hand text} {
		set connection [::database::webconnect]
		set remoteuser [lindex $text 0]
		set remotekey [lindex $text 1]

		set sql "SELECT `ID`,`Username`,`PermissionID`,`IRCKey`,`Enabled` FROM `users_main` WHERE `Username` = '$remoteuser'"
		set result [::mysql::sel $connection $sql -flatlist]

		if {$result > 0} {
			set id [lindex $result 0]
			set username [lindex $result 1]
			set class [lindex $result 2]
			set irckey [lindex $result 3]
			set enabled [lindex $result 4]

			switch $class {
				"1" {set classname "Leech" }
				"2" {set classname "Rookie" }
				"3" {set classname "Amateur" }
				"4" {set classname "Heavyweight" }
				"5" {set classname "Elite" }
				"6" {set classname "Legendary" }
				"7" {set classname "VIP" }
				"8" {set classname "Hall Of Famer" }
				"9" {set classname "VIP" }

				"23" {set classname "Commissioner" }
				"28" {set classname "General Manager" }
				"29" {set classname "Developer"}
				"30" {set classname "Staff Leader"}
				"35" {set classname "Chairman"}
			}

			if {$remotekey == $irckey} {
				putquick "NOTICE $nick :Login successful!"
				putquick "CHGHOST $nick [string tolower $classname].[string tolower $username]"
				putquick "CHGIDENT $nick $id"


				putquick "invite $nick #wwtorrents"


				if {$class == "23"} {
					putquick "invite $nick #staff"
				}
				if {$class == "28"} {
					putquick "invite $nick #staff"
				}
				if {$class == "29"} {
					putquick "invite $nick #staff"
				}
				if {$class == "30"} {
					putquick "invite $nick #staff"
				}
				if {$class == "35"} {
					putquick "invite $nick #staff"
				}

			} else {
				putquick "NOTICE $nick :The password you supplied does not match our records."
				putquick "PRIVMSG #staff :\002ERROR\002: -> \002$nick\002 used the wrong password."
			}
		} else {
			puthelp "NOTICE $nick :The username $remoteuser was not found in our records."
			putquick "PRIVMSG #staff :\002ERROR\002: -> \002$nick\002 tried logging in using \002$remoteuser\002 but was not found."
		}
		::mysql::close $connection
		putlog "\[CMD\] !invite $remoteuser $remotekey"
	}
}

invite::init