proc Server {channel clientaddr clientport} {
  gets $channel msg_bt
  gets $channel msg_bt2
  gets $channel msg_bt3
  gets $channel msg_bt4
  putserv "PRIVMSG #sportstrack :\002New Torrent Uploaded!\002"
  putserv "PRIVMSG #sportstrack :$msg_bt"
  putserv "PRIVMSG #sportstrack :$msg_bt2"
  putserv "PRIVMSG #sportstrack :$msg_bt4"
  close $channel
  socket -server Server 1234
}

socket -server Server 1234