languages/tcl/examples/ircbot.tcl

   1
   2 set nick     jane
   3 set server   irc.perl.org
   4 set channels [list #parrot]
   5
   6 source irc.tcl
   7
   8 proc privmsg {who target msg} {
   9     set first [string wordstart $msg 0]
  10     set last  [string wordend   $msg 0]
  11
  12     if {[string range $msg $first [expr {$last-1}]] ne "expr"} return
  13
  14     set expr [string range $msg $last end-1]
  15     if {[string first \[ $expr] != -1} return
  16
  17     puts "expr: '$expr'"
  18     if {$target eq $::nick} {set target $who}
  19     if { [catch {$::cxn privmsg $target "$who: [expr $expr]"} err] } {
  20         $::cxn privmsg $target "$who: $err"
  21     }
  22 }
  23
  24 set cxn [irc::connection]
  25
  26 # event handlers
  27 $cxn registerevent PRIVMSG {::privmsg [who] [target] [msg]}
  28 $cxn registerevent defaultevent {puts "(event) [header]: [msg]"}
  29
  30 $cxn connect $server
  31 $cxn user $nick localhost domain www.tcl.tk
  32 $cxn nick $nick
  33 foreach channel $channels {
  34     $cxn join $channel
  35 }
  36
  37 # event loop
  38 vwait ::exit