All pastes #163183 Raw Edit

announce.tcl

public text v1 · immutable
·published 2006-09-07 08:21 UTC
rendered paste body
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