bind dcc A noteicq sendicqdcc

proc sendicqdcc {hand idx args} {
  global botnick
  set args [lindex $args 0]
  set qui [lindex $args 0]
  set msg [lrange $args 1 end]
  if ![validuser $qui] {
    putdccsi $idx "Je ne connais pas $qui, désolé."
    return 0
  }
  if {[getuser $qui XTRA ICQ] == "" } {
    putdccsi $idx "$qui n'a pas de numéro d'ICQ d'enregistré sur Aidebot :-("
    return 0
  }
  set icq [getuser $qui XTRA ICQ]
  set email "$icq\@pager.icq.com"
  set f [open aidebot.mail.icq w]
  puts $f "TO: $email"
  puts $f "FROM: [getuser $hand xtra vrainick] <[getuser $hand xtra vrainick]@AideBot.aide>"
  puts $f "De [getuser $hand xtra vrainick] par la messagerie AideBot express"
  puts $f ""
  puts $f $msg
  close $f
  exec cat aidebot.mail.icq | /usr/lib/sendmail $email
  exec rm aidebot.mail.icq
  putdccsi $idx "Message ICQ livré."
  return 1
}

#proc go_connect {body icq ln mssg hed hand idx whom} {
#  global botnick $body $icq $ln $mssg $hed $hand $idx $whom
#  if [catch {socket "wwp.icq.com" 80} sockresult] {
#    putlog "Je n'ai pas pu me connecter:  $sockresult"
#    putdccsi $idx "J'ai pas pu remettre la note à $hand via ICQ."
#    return 0
#  }
#  fconfigure $sockresult -translation auto -buffering line -blocking 0
#  puts $sockresult "POST /scripts/WWPMsg.dll HTTP/1.1"
#  puts $sockresult "Accept: application/vnd.ms-excel, application/msword, application/vnd.ms-powerpoint, image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, */*"
#  puts $sockresult "Referer: http://nothing.com"
#  puts $sockresult "Accept-Language: en-u"
#  puts $sockresult "s"
#  puts $sockresult "Content-Type: application/x-www-form-urlencoded"
#  puts $sockresult "Accept-Encoding: gzip, deflate"
#  puts $sockresult "User-Agent: Mozilla/4.0 (compatible; MSIE 4.01; Windows 95)"
#  puts $sockresult "Host: x"
#  puts $sockresult "Content-Length: $ln"
#  puts $sockresult "Connection: Keep-Alive"
#  puts $sockresult ""
#  puts $sockresult "subject=$hed&to=$icq&from=$hand&fromemail=[getuser $hand xtra vrainick]@AideBot&body=$mssg&x=90&y=50"
#  putlog "J'ai pu me connecter: $sockresult"
#  putdccsi $idx "J'ai remis la note à $whom via ICQ."
#  close $sockresult
#  return 1
#}