the diff:
--- ../msn.blaat/abook.tcl 2005-12-28 01:48:29.0 +0100
+++ abook.tcl 2005-12-28 02:18:03.0 +0100
@@ -1,7 +1,7 @@
# User Administration (Address Book data)
# by: Alvaro Jose Iradier Muro
# D�imo Emilio Grimaldo Tu�n
-# $Id: abook.tcl,v 1.129 2005/12/22 18:38:50 gadget_boy Exp $
+# $Id: abook.tcl,v 1.131 2005/12/28 01:18:03 tjikkun Exp $
#===
::snit::type Group {
@@ -352,6 +352,26 @@
set pgc 1
}
+ proc setContactForGuid { guid user_login } {
+ variable guid_contact
+ if { $user_login == } {
+ if { [info exists guid_contact($guid)] } {
+ unset guid_contact($guid)
+ }
+ } else {
+ set guid_contact($guid) $user_login
+ }
+ }
+
+ proc getContactForGuid { guid } {
+ variable guid_contact
+ if { [info exists guid_contact($guid)] } {
+ return $guid_contact($guid)
+ } else {
+ return
+ }
+ }
+
proc setAtomicContactData { user_login fields_list data_list } {
global pgc
variable users_data
@@ -863,7 +883,11 @@
foreach contact $ImportedContact {
status_log Importation of contacts : $contact
\n red
- ::MSN::WriteSB ns ADD FL $contact $contact 0
+ if { [::config::getKey protocol] == 11 } {
+ ::MSN::WriteSB ns ADC FL N=$contact
F=$contact
+ } else {
+ ::MSN::WriteSB ns ADD FL $contact
$contact 0
+ }
}
}
---
This SF.net email is sponsored by: Splunk Inc. Do you grep through log files
for problems? Stop! Download the new AJAX search engine that makes
searching your log files as easy as surfing the web. DOWNLOAD SPLUNK!
http://ads.osdn.com/?ad_idv37alloc_id865op=click
___
Amsn-devel mailing list
Amsn-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/amsn-devel