From: <kak...@us...> - 2006-09-09 03:04:01
|
Revision: 7226 http://svn.sourceforge.net/amsn/?rev=7226&view=rev Author: kakaroto Date: 2006-09-08 20:03:56 -0700 (Fri, 08 Sep 2006) Log Message: ----------- removed cookie, authentication http header from the SOAP request once it's sent so it doesn't create garbage/bugs in subsequent SOAP requests... Modified Paths: -------------- trunk/amsn/protocol.tcl Modified: trunk/amsn/protocol.tcl =================================================================== --- trunk/amsn/protocol.tcl 2006-09-09 02:53:10 UTC (rev 7225) +++ trunk/amsn/protocol.tcl 2006-09-09 03:03:56 UTC (rev 7226) @@ -3092,6 +3092,7 @@ -action "http://www.msn.com/webservices/storage/w10/GetItemVersion" \ -wrapProc [list getSchematizedStoreXml $users_with_space]] if { [catch {$soap_req} resp] == 0 } { + SOAP::configure -transport http -headers [list] set xml [SOAP::dump $soap_req] set list [xml2list $xml] set storageAuthCache [GetXmlEntry $list "soap:Envelope:soap:Header:StorageUserHeader:UserAuthCache"] @@ -3110,9 +3111,8 @@ incr i } - } else { - error $resp - } + } + SOAP::configure -transport http -headers [list] } } } @@ -3132,9 +3132,11 @@ proc getContactCard { email } { variable resources + variable contactcards + if {[::abook::getVolatileData $email HSB] == 1 } { if { ![info exists resources($email)] } { - puts "[InitCCard]" + InitCCard if { ![info exists resources($email)] } { return "" } @@ -3160,8 +3162,10 @@ -action "http://www.msn.com/webservices/spaces/v1/GetXmlFeed" \ -wrapProc [list getContactCardXml [set resources($email)]]] if { [catch {$soap_req} resp] == 0 } { + SOAP::configure -transport http -headers [list] return [SOAP::dump $soap_req] } + SOAP::configure -transport http -headers [list] } } } This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |