Changeset 5070 for data/Media/tcl

Timestamp:

May 15, 2008, 12:50:25 AM (17 years ago)

Author:

landauf

Message:

changed some parts of the irc-library

File:

• data/Media/tcl/irk/lib/irkreceive.tcl (modified) (12 diffs)

data/Media/tcl/irk/lib/irkreceive.tcl

@@ -36 +36 @@
         set rest [eval concat $rest]
         append state($token,ERRORS) "$nick $dest $rest\n"
-        puts "Got ERROR: $token $nick ---> $dest: $rest"
+#       puts "Got ERROR: $token $nick ---> $dest: $rest"
+        orxonox::execute error "Got ERROR: $token $nick ---> $dest: $rest"
 
         return ""
@@ -247 +248 @@
 
         if {[isus $token $nick]} {
-            puts "You joined $dest"
+#           puts "You joined $dest"
+          orxonox::irc::info $token "You joined $dest"
 
             addChannel $token $dest
         } else {
-            puts "$nick joined $dest"
+#           puts "$nick joined $dest"
+          orxonox::irc::info $token "$nick joined $dest"
 
             addToChannel $token $nick $dest
@@ -267 +270 @@
 
         if {[isus $token $nick]} {
-            puts "You left channel $chan"
-        } else {
-            puts "$nick left [string tolower $dest]"
+#           puts "You left channel $chan"
+          orxonox::irc::info $token "You left channel $chan"
+        } else {
+#           puts "$nick left [string tolower $dest]"
+          orxonox::irc::info $token "$nick left [string tolower $dest]"
         }           
         removeFromChannel $token $nick $chan
@@ -281 +286 @@
     proc RECV,MODE {token nick user comm dest rest} {
         set rest [eval concat $rest]
-        puts "$nick sets mode $dest $rest"
+#       puts "$nick sets mode $dest $rest"
+      orxonox::irc::info "$nick $token sets mode $dest $rest"
 
         return ""
@@ -306 +312 @@
         replaceAllChannels $token $nick $newnick
 
-        puts "$nick ${user} ($token) changes his/her nickname to $newnick"
+#       puts "$nick ${user} ($token) changes his/her nickname to $newnick"
+      orxonox::irc::info $token "$nick changes his/her nickname to $newnick"
 
         return ""
@@ -317 +324 @@
 
         set rest [eval concat $rest]
-        puts "Received QUIT $token $nick $rest"
+#       puts "Received QUIT $token $nick $rest"
+      orxonox::irc::info $token "Received QUIT $token $nick $rest"
 
         if {[string match ":*" $dest]} {
@@ -323 +331 @@
         }
         if {[isus $token $nick]} {
-            puts "You left the server $state($token,host) ($dest $rest)"
+#           puts "You left the server $state($token,host) ($dest $rest)"
+          orxonox::irc::info $token "You left the server $state($token,host) ($dest $rest)"
             forgetConnection $token
         } else {
@@ -342 +351 @@
                     [lindex $rest 0] [lrange $rest 1 end]
         } else {
-            puts "$nick$dest: [eval concat $rest]"
+#           puts "$nick$dest: [eval concat $rest]"
+          orxonox::irc::say $token $nick [eval concat $rest]
         }
 
@@ -415 +425 @@
                     [lindex $rest 0] [lrange $rest 1 end]
         } else {
-            puts "$nick: [eval concat $rest]"
+#           puts "$nick: [eval concat $rest]"
+          orxonox::irc::privmsg $nick $nick [eval concat $rest]
         }
 
@@ -452 +463 @@
 
         if {[isus $token $kicked]} {
-            puts "$nick kicked you from $dest because $reason"
+#           puts "$nick kicked you from $dest because $reason"
+          orxonox::irc::info $token "$nick kicked you from $dest because $reason"
 
             removeChannel $token $dest
         } else {
-            puts "$nick kicks $kicked from $dest because $reason"
+#           puts "$nick kicks $kicked from $dest because $reason"
+          orxonox::irc::info $token "$nick kicks $kicked from $dest because $reason"
 
             removeFromChannel $token $kicked $dest
@@ -570 +583 @@
 
     proc RECV,CTCP,ACTION {token nick user comm dest action rest} {
-        puts "$nick $rest"
+#       puts "$nick $rest"
+      orxonox::irc::action $token $nick $rest
 
         return ""
@@ -597 +611 @@
 
     proc defaultAction {token nick user comm dest rest} {
-        puts "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
+#       puts "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
+      orxonox::execute log "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
 
         return ""