[Amsn-commits] SF.net SVN: amsn:[12295] trunk/amsn

[<vi...@us...>]

Revision: 12295
          http://amsn.svn.sourceforge.net/amsn/?rev=12295&view=rev
Author:   vivia
Date:     2011-02-14 22:17:26 +0000 (Mon, 14 Feb 2011)

Log Message:
-----------
Fixed SB files getting sent faster than the SB can handle. We still see the wrong speed, cannot fix that

Modified Paths:
--------------
    trunk/amsn/msnp2p/transport/switchboard.tcl
    trunk/amsn/protocol.tcl

Modified: trunk/amsn/msnp2p/transport/switchboard.tcl
===================================================================
--- trunk/amsn/msnp2p/transport/switchboard.tcl	2011-02-14 21:25:45 UTC (rev 12294)
+++ trunk/amsn/msnp2p/transport/switchboard.tcl	2011-02-14 22:17:26 UTC (rev 12295)
@@ -91,7 +91,7 @@
 				if { [$sb get_unacked] < 5 } {
 					::MSN::ChatQueue $chatid [list ::MSN::WriteSBNoNL $sb "MSG" "D $data_len\r\n$data"]
 				} else {
-					set queue [lappend $queue [list ::MSN::ChatQueue $chatid [list ::MSN::WriteSBNoNL $sb "MSG" "D $data_len\r\n$data"]]]
+					set queue [lappend queue [list ::MSN::ChatQueue $chatid [list ::MSN::WriteSBNoNL $sb "MSG" "D $data_len\r\n$data"]]]
 				}
 				catch {$sendme destroy}
 			}

Modified: trunk/amsn/protocol.tcl
===================================================================
--- trunk/amsn/protocol.tcl	2011-02-14 21:25:45 UTC (rev 12294)
+++ trunk/amsn/protocol.tcl	2011-02-14 22:17:26 UTC (rev 12295)
@@ -5175,7 +5175,7 @@
 	}
 
  method add_unacked { id } {
-   set unacked [lappend $unacked $id]
+   set unacked [lappend unacked $id]
  }
 
  method get_unacked { } {
@@ -5267,7 +5267,7 @@
 						unset msgacks($ret_trid)
 					}
          set trid_ind [lsearch $unacked $ret_trid]
-         set options(-unacked) [lreplace $unacked $trid_ind $trid_ind]
+         set unacked [lreplace $unacked $trid_ind $trid_ind]
          ::Event::fireEvent ackReceived $self $self
          
 				}


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.