#########################################################
#										!rdel <string>											#
#########################################################

proc rdel {nick uhost hand chan arg} {
			putlog "AaA"
	if {[channel get $chan db]} {
		global mysql db

		set r_string [lindex [split $arg] 0]

	if {[catch {
  	set mysql(handle) [::mysql::connect -host $mysql(host) -user $mysql(user) -password $mysql(password) -port $mysql(port) -db $mysql(db)]
  	set query1 [::mysql::sel $mysql(handle) "SELECT $db(rm_string),$db(rm_nick) FROM $mysql(rdb) WHERE $db(rm_nick) = '$nick'" -flatlist]
  		mysqlclose $mysql(handle) } err]} { mysqlclose $mysql(handle)
																						putlog $err }

	if {[string equal $query1 ""] == 1} {
		echo $chan "(\00310 RDEL \003) \00310~\003 String not found in DB"
		return 0
	}

	if {[string equal [lindex $query1 1] $nick ] == 1}{
		echo $chan "(\00310 RDEL \003) \00310~\003 Permission denied"
		return 0
	}

	if {[catch {
  	set mysql(handle) [::mysql::connect -host $mysql(host) -user $mysql(user) -password $mysql(password) -port $mysql(port) -db $mysql(db)]
		set query1 [::mysql::exec $mysql(handle) "DELETE FROM $mysql(rdb) WHERE $db(rm_string) = '$r_string'" -flatlist]
  		mysqlclose $mysql(handle) } err]} { mysqlclose $mysql(handle)
																						putlog $err }

		echo $chan "(\00310 RDEL \003) \00310~\003 Successfully deleted $r_string from my RemindDB"
	}
}