Changeset 7279 for code/branches/consolecommands3/data/tcl

Timestamp:

Aug 31, 2010, 1:42:50 AM (14 years ago)

Author:

landauf

Message:

looks like the syntax of some IRC callbacks changed… fixed.

File:

• code/branches/consolecommands3/data/tcl/irk/lib/irkreceive.tcl (modified) (14 diffs)

code/branches/consolecommands3/data/tcl/irk/lib/irkreceive.tcl

@@ -37 +37 @@
         append state($token,ERRORS) "$nick $dest $rest\n"
 #       puts "Got ERROR: $token $nick ---> $dest: $rest"
-        orxonox::execute error "Got ERROR: $token $nick ---> $dest: $rest"
+        ::orxonox::execute error "Got ERROR: $token $nick ---> $dest: $rest"
 
         return ""
@@ -53 +53 @@
         return ""
     }
-    
+
     # This procedure deals with the WHOIS USER message:
 
@@ -116 +116 @@
 
         set state($token,ident,$unick,ident) 1
-    }   
+    }
 
     # This procedure deals with the WHOIS CONNECTTIME message:
@@ -249 +249 @@
         if {[isus $token $nick]} {
 #           puts "You joined $dest"
-          orxonox::irc::info $token "You joined $dest"
+          ::orxonox::irc::info $token "You joined $dest"
 
             addChannel $token $dest
         } else {
 #           puts "$nick joined $dest"
-          orxonox::irc::info $token "$nick joined $dest"
+          ::orxonox::irc::info $token "$nick joined $dest"
 
             addToChannel $token $nick $dest
@@ -271 +271 @@
         if {[isus $token $nick]} {
 #           puts "You left channel $chan"
-          orxonox::irc::info $token "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]"
-        }           
+          ::orxonox::irc::info $token "$nick left [string tolower $dest]"
+        }
         removeFromChannel $token $nick $chan
         removeFromChannel $token @$nick $chan
@@ -287 +287 @@
         set rest [eval concat $rest]
 #       puts "$nick sets mode $dest $rest"
-      orxonox::irc::info "$nick $token sets mode $dest $rest"
+      ::orxonox::irc::info "$nick $token sets mode $dest $rest"
 
         return ""
@@ -313 +313 @@
 
 #       puts "$nick ${user} ($token) changes his/her nickname to $newnick"
-      orxonox::irc::info $token "$nick changes his/her nickname to $newnick"
+      ::orxonox::irc::info $token "$nick changes his/her nickname to $newnick"
 
         return ""
@@ -325 +325 @@
         set rest [eval concat $rest]
 #       puts "Received QUIT $token $nick $rest"
-      orxonox::irc::info $token "Received QUIT $token $nick $rest"
+      ::orxonox::irc::info $token "Received QUIT $token $nick $rest"
 
         if {[string match ":*" $dest]} {
@@ -332 +332 @@
         if {[isus $token $nick]} {
 #           puts "You left the server $state($token,host) ($dest $rest)"
-          orxonox::irc::info $token "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 {
@@ -352 +352 @@
         } else {
 #           puts "$nick$dest: [eval concat $rest]"
-          orxonox::irc::say $token $nick [eval concat $rest]
+          ::orxonox::irc::say $token $nick [eval concat $rest]
         }
 
@@ -426 +426 @@
         } else {
 #           puts "$nick: [eval concat $rest]"
-          orxonox::irc::privmsg $nick $nick [eval concat $rest]
+          ::orxonox::irc::privmsg $nick $nick [eval concat $rest]
         }
 
@@ -464 +464 @@
         if {[isus $token $kicked]} {
 #           puts "$nick kicked you from $dest because $reason"
-          orxonox::irc::info $token "$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"
-          orxonox::irc::info $token "$nick kicks $kicked from $dest because $reason"
+          ::orxonox::irc::info $token "$nick kicks $kicked from $dest because $reason"
 
             removeFromChannel $token $kicked $dest
@@ -584 +584 @@
     proc RECV,CTCP,ACTION {token nick user comm dest action rest} {
 #       puts "$nick $rest"
-      orxonox::irc::action $token $nick $rest
+      ::orxonox::irc::action $token $nick $rest
 
         return ""
@@ -612 +612 @@
     proc defaultAction {token nick user comm dest rest} {
 #       puts "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
-      orxonox::execute log "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
+      ::orxonox::execute log "$token: $nick $user: $comm -> $dest ... [eval concat $rest]"
 
         return ""