bind pub |U !kpl kicksource

proc kicksource { nick host handle chan text } {
  #ip:
  set server "ip"
  #port:
  set port "port"
  #login: (wird erzeugt aus (ab ins mirc) //echo $encode(admin:PASS,m) bei
  #pass auch das pass angeben ^^ und dann eintragen sonst tut das nicht
  #login (get it in mirc with //echo $encode(admin:PASS,m)
  set login "pass"

  #ab hier nixmehr ändern / don't change anything under this
  putquick "PRIVMSG #Back-Oasis-Radio :\0033| Mode.Kick.PL |\0035 $nick \0036vient de Kick la PL"

  if ![catch {set sock [socket $server $port]} error] {
    puts $sock "GET /admin.cgi?admin=admin&pass=509asp51&mode=kicksrc HTTP/1.1"
    puts $sock "User-Agent:Mozilla"
    puts $sock "Host: $server"
    puts $sock "Authorization: Basic $login"
    puts $sock ""
    flush $sock
  } else {
    putlog "Socket error: $error"
  }
}