From: <tom...@us...> - 2009-05-26 14:21:29
|
Revision: 11211 http://amsn.svn.sourceforge.net/amsn/?rev=11211&view=rev Author: tomhennigan Date: 2009-05-26 14:18:11 +0000 (Tue, 26 May 2009) Log Message: ----------- Fix the nudge plugin with new format clientcaps. Modified Paths: -------------- trunk/amsn/plugins/Nudge/Nudge.tcl Modified: trunk/amsn/plugins/Nudge/Nudge.tcl =================================================================== --- trunk/amsn/plugins/Nudge/Nudge.tcl 2009-05-25 20:40:21 UTC (rev 11210) +++ trunk/amsn/plugins/Nudge/Nudge.tcl 2009-05-26 14:18:11 UTC (rev 11211) @@ -578,7 +578,10 @@ proc check_clientid {email} { ::Nudge::log "Verify if contact is using MSN 7.0 protocol" - set clientid [::abook::getContactData $email clientid] + set clientcaps [::abook::getContactData $email clientid] + set clientcaps [split $clientcaps ":"] + set clientid [lindex $clientid 0] + # set extra [lindex $clientid 1] ::Nudge::log "Clientid is $clientid" This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |