Unbenannt

proc nfo:get {nick uhost hand chan text} {
	global sql
      sql connect $sql(dbhost) $sql(dbuser) $sql(dbpass)
      sql selectdb $sql(dbname)
	set searchstring [string map [list "\*" "\%"] [lindex $text 0]]
      putlog "sql connected"
	set nfo      [lindex [lindex [sql "SELECT nfo FROM $sql(nfo) WHERE nfo_name LIKE '$searchstring%' order by id DESC LIMIT 1"] 0] 0]
	set nfo_name [lindex [sql "SELECT nfo_name FROM $sql(nfo) WHERE nfo_name LIKE '$searchstring%' order by id DESC LIMIT 1"] 0]
	sql disconnect
	putlog "sql disconnected"
	if { $nfo_name == "" } { 
	putquick "PRIVMSG $chan : \00303No NFO Found"
	} else {
	putlog "$nfo"
	set nfo_name [string trim $nfo_name].nfo

      foreach nfostring [split $nfo] {
        exec echo "$nfostring" >> $nfo_name
      }
         switch -exact -- [dccsend $nfo_name $nick] {
	 0 { puthelp "NOTICE $nick :Sending [file tail $nfo_name]." }
	 1 { puthelp "NOTICE $nick :Error: Too many pending file requests. Try again later, thank you." }
	 2 { puthelp "NOTICE $nick :Error: Could not open socket. Please notify my admin, thank you." }
	 3 { puthelp "NOTICE $nick :Error: File does not exist. Please notify my admin, thank you." }
	 4 { puthelp "NOTICE $nick :Error: Too many file sends already in progress. Your request has been added to the queue, please wait." }
	 5 { puthelp "NOTICE $nick :Error: Could not move file to temporary directory. Please notify my admin, thank you." }
	}
	file delete $nfo_name
	}
}