Posted to tcl by ghtry at Sat Oct 20 20:42:01 GMT 2007view raw

  1. #!/usr/bin/tclsh
  2.  
  3. set servaddr "irc.newbirc.net"
  4. set servport 6667
  5. set servchannel "#test"
  6. set botnick "ItelBot"
  7. set botident "ItelBot"
  8. set botrealname "ItelBot TCL Bot"
  9. set itelver 1.1
  10.  
  11. puts "ItelBot Version $itelver"
  12. puts "Connecting to $servaddr on port $servport..."
  13. set s [socket $servaddr $servport]
  14. puts "Registering with server..."
  15. puts $s "NICK $botnick"
  16. puts $s "USER $botident localhost 0 :$botrealname"
  17. puts "Joining $servchannel and sending message..."
  18. puts $s "JOIN $servchannel"
  19. puts $s "PRIVMSG $servchannel :Online, attempting to vwait forever..."
  20. puts "Idling..."
  21. vwait forever