[Amsn-commits] SF.net SVN: amsn:[11892] trunk/amsn/pgu.tcl

[<kak...@us...>]

Revision: 11892
          http://amsn.svn.sourceforge.net/amsn/?rev=11892&view=rev
Author:   kakaroto
Date:     2010-01-11 20:38:00 +0000 (Mon, 11 Jan 2010)

Log Message:
-----------
disable keepalive in pgu because it doesn't work so well... 

Modified Paths:
--------------
    trunk/amsn/pgu.tcl

Modified: trunk/amsn/pgu.tcl
===================================================================
--- trunk/amsn/pgu.tcl	2010-01-11 20:18:34 UTC (rev 11891)
+++ trunk/amsn/pgu.tcl	2010-01-11 20:38:00 UTC (rev 11892)
@@ -120,7 +120,7 @@
 
 			foreach {url cmd query type headers cnt} $queue($id) break
 			status_log "PGU: Getting URL $id : [::PGU::Status]"
-			if {[catch {set tokens($id) [::http::geturl $url -keepalive 1 -timeout $options(-timeout) \
+			if {[catch {set tokens($id) [::http::geturl $url -keepalive 0 -timeout $options(-timeout) \
 							 -command [list ::PGU::_HTTPCommand $id] \
 							 -query $query -type $type -headers $headers]} res]} {
 				status_log "Error calling ::http::geturl : $res"
@@ -154,9 +154,11 @@
 				::http::cleanup $token
 				array unset tokens $id
 
+				status_log "PGU Callback: request $id timed out, retrying \n" red
+
 				lset queue($id) 5 $cnt              ;# Remember retry attempts
 				if {![catch {
-					set tokens($id) [::http::geturl $url -keepalive 1 \
+					set tokens($id) [::http::geturl $url -keepalive 0 \
 							     -timeout $options(-timeout) \
 							     -command [list ::PGU::_HTTPCommand $id] \
 							     -query $query -type $type \


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