amsn-data 0.98.9-1 / usr / share / amsn / groups.tcl

#	Group Administration
#	by: D�imo Emilio Grimaldo Tu�n
#=======================================================================
# TODO LIST
#  - Keep track of transactions pending completion
#  - Investigate what happens when a group is deleted, does the
#    server send a new list? obviously the upper groups get
#    a reassigned number (???). Remember that the entries in
#    the address book (::abook) contains the group IDs received
#    in the Forward List.
#	* group id is left unused until a new group is added.

::Version::setSubversionId {$Id: groups.tcl 11862 2009-12-23 00:04:41Z kakaroto $}

namespace eval ::groups {
	namespace export Init Enable Disable Set Rename Delete Add \
		RenameCB DeleteCB AddCB \
		GetList ToggleStatus UpdateCount IsExpanded \
		menuCmdMove menuCmdCopy

	variable tempgroupstate

	if { $initialize_amsn == 1 } {
	
		#
		# P R I V A T E
		#
		variable parent "";
		variable entryid -1;
		variable groupname "";	# Temporary variable for TCL crappiness
		variable bShowing;		# (array) Y=shown/expanded N=hidden/collapsed
		array set tempgroupstate []
		global pgc
	}

	#
	proc menuCmdDelete {gid {pars ""}} {
		::groups::Delete $gid dlgMsg
	}

	proc menuCmdRename {gid} {
		::groups::dlgRenameThis $gid
	}


	proc menuCmdCopy {newgid {paramlist ""}} {
		set passport [lindex $paramlist 0]
		set name [::abook::getNick $passport]
		::MSN::copyUser $passport $newgid $name
	}


	proc menuCmdMove {newgid currgid {paramlist ""}} {
		set passport [lindex $paramlist 0]
		set name [::abook::getNick $passport]
		::MSN::moveUser $passport $currgid $newgid $name
		#status_log "Moving user $passport from $currgid to $newgid\n" white
	}

	#<dlgMsg>
	proc dlgMsg {msg} {
		::amsn::errorMsg $msg
	}
   
	#<dlgAddGroup> Dialog to add a group
	proc dlgAddGroup {} {

		global pgc

		set w .dlgag

		if {[winfo exists $w]} {
			set pgc 0
			return
		}
	
		set bgcol2 #ABC8D2
	
		toplevel $w -highlightcolor $bgcol2
		wm title $w "[trans groupadd]"

		frame $w.groupname -bd 1 
		label $w.groupname.lbl -text "[trans group]" -font sboldf
		entry $w.groupname.ent -width 20 -bg #FFFFFF -font splainf
		pack $w.groupname.lbl $w.groupname.ent -side left

		frame $w.groupcontact -bd 1
		label $w.groupcontact.lbl -text "[trans groupcontacts]" -font sboldf
		pack $w.groupcontact.lbl

		pack $w.groupname -side top -pady 3 -padx 5
		pack $w.groupcontact -side top -pady 3 -padx 5

		ScrolledWindow $w.groupcontacts -auto vertical -scrollbar vertical
		ScrollableFrame $w.groupcontacts.sf -constrainedwidth 1
		$w.groupcontacts setwidget $w.groupcontacts.sf
		pack $w.groupcontacts -anchor n -side top -fill both -expand true
		set gpcontactsframe [$w.groupcontacts.sf getframe]

		set contactlist [list]

		#Create a list with the contacts
		foreach contact [::abook::getAllContacts] {
			if { [lsearch [::abook::getLists $contact] "FL"] != -1 ||
			     [lsearch [::abook::getLists $contact] "EL"] != -1} {
				set contactname [::abook::getDisplayNick $contact]
				lappend contactlist [list $contactname $contact]
			}
		}

		set contactlist [lsort -dictionary -index 0 $contactlist]

		foreach contact $contactlist {
			set name [lindex $contact 0]
			set passport [lindex $contact 1]
			set passport2 [string map { @ _40_ . _2E_ _ _5F_ } $passport]
			checkbutton $gpcontactsframe.w$passport2 -onvalue 1 -offvalue 0 -text " $name" -anchor w -variable [::config::getVar tempcontact_$passport2]
			pack configure $gpcontactsframe.w$passport2 -side top -fill x
		}

		frame $w.b 
		button $w.b.ok -text "[trans ok]"   \
			-command {
				::groups::Add "[.dlgag.groupname.ent get]" dlgMsg;
				destroy .dlgag
			}
		button $w.b.cancel -text "[trans cancel]"   \
			-command {
				set pgc 0;
				foreach contact [::abook::getAllContacts] {
					if { [lsearch [::abook::getLists $contact] "FL"] != -1 ||
					     [lsearch [::abook::getLists $contact] "EL"] != -1 } {
						set passport2 [string map { @ _40_ . _2E_ _ _5F_ } $contact]
						::config::unsetKey tempcontact_$passport2
					}
				}
				destroy .dlgag
			}
		pack $w.b.ok .dlgag.b.cancel -side right -padx 5

		pack $w.groupcontacts -side top -pady 3 -padx 5
		pack $w.b -side top -anchor e -pady 3


		bind $w.groupname.ent <Return> { 
			::groups::Add "[.dlgag.groupname.ent get]" dlgMsg; 
			destroy .dlgag
		}

		bind $w <<Escape>> {
			set pgc 0
			foreach contact [::abook::getAllContacts] {
				if { [lsearch [::abook::getLists $contact] "FL"] != -1 ||
				     [lsearch [::abook::getLists $contact] "EL"] != -1  } {
					set passport2 [string map { @ _40_ . _2E_ _ _5F_ } $contact]
					::config::unsetKey tempcontact_$passport2
				}
			}
			destroy .dlgag;
		}

		focus .dlgag.groupname.ent
		moveinscreen $w 30
	}

	# Used to perform the group renaming without special dialogues
	proc ThisOkPressed { gid } {
		if [winfo exists .dlgthis] {
			set gname [GetName $gid]
			::groups::Rename $gname [.dlgthis.data.ent get] dlgMsg
			destroy .dlgthis
		}
	}
   
	# New simplified renaming dialog
	proc dlgRenameThis {gid} {
		global pgc
		
		if {[winfo exists .dlgthis]} {
			set pgc 0
			destroy .dlgthis
		}
		set bgcol2 #ABC8D2
	
		toplevel .dlgthis -highlightcolor $bgcol2
		wm title .dlgthis "[trans grouprename]"
		frame .dlgthis.data -bd 1 
		label .dlgthis.data.lbl -text "[trans groupnewname]:" -font sboldf
		entry .dlgthis.data.ent -width 20 -bg #FFFFFF -font splainf
		.dlgthis.data.ent insert end [GetName $gid]
		bind .dlgthis.data.ent <Return> "::groups::ThisOkPressed $gid"
		pack .dlgthis.data.lbl .dlgthis.data.ent -side left
		
		frame .dlgthis.buttons 
		button .dlgthis.buttons.ok -text "[trans ok]" -command "::groups::ThisOkPressed $gid" 
		button .dlgthis.buttons.cancel -text "[trans cancel]" \
			-command "set pgc 0; destroy .dlgthis" 
		pack .dlgthis.buttons.ok .dlgthis.buttons.cancel -side left -pady 5
			
		pack .dlgthis.data .dlgthis.buttons -side top
		moveinscreen .dlgthis 30
		focus .dlgthis.data.ent
	}
   
	# New group menu, for contact list only, no for management in toolbar
	# it avoids complex group selection when renaming or deleting groups
	proc GroupMenu {gid cx cy} {
		if [winfo exists .group_handler] {
			destroy .group_handler
		}
		# The submenu of standard group actions
		menu .group_handler -tearoff 0 -type normal
		.group_handler add command -label "[trans groupadd]..." -command ::groups::dlgAddGroup
		if {$gid != "online" && $gid != "offline" && $gid != "mobile" && $gid != "0"} {
			.group_handler add separator
			.group_handler add command -label "[trans delete]" -command "::groups::Delete $gid dlgMsg"
			.group_handler add command -label "[trans rename]..." -command "::groups::dlgRenameThis $gid"
			.group_handler add separator
			.group_handler add command -label "[trans block]" -command "::groups::blockgroup $gid"
			.group_handler add command -label "[trans unblock]" -command "::groups::unblockgroup $gid"
		}
		tk_popup .group_handler $cx $cy
	}


	#Block all the contacts into a group	
	proc blockgroup {gid} {
		#Ask confirmation for block all the users in the group
		set answer [::amsn::messageBox "[trans confirm]" yesno question [trans block]]
		#If yes
		if { $answer == "yes"} {
			set users_to_block [list]

			#Get all the contacts
			foreach user_login [::abook::getAllContacts] {
				#If the contact is not already blocked
				if { [lsearch [::abook::getLists $user_login] BL] == -1} {
					#Get the group for each contact
					foreach gp [::abook::getContactData $user_login group] {
						#If the group is the same at specified, block the user
						if { $gp == $gid } {
							lappend users_to_block $user_login
						}
					}
				}
			}

			if {[::config::getKey protocol] >= 13 } {
				::MSN::blockUser $users_to_block
			} else {
				set timer 0
				foreach user_login $users_to_block {
					after $timer [list ::MSN::blockUser ${user_login} [urlencode $name]]
					set timer [expr {$timer + 250}]
				}
			}
		}
	}
	#Unblock all the contacts into a group
	proc unblockgroup {gid} {
		set users_to_unblock [list]

		#For each user in all contacts
		foreach user_login [::abook::getAllContacts] {
			#If the contact is blocked
			if { [lsearch [::abook::getLists $user_login] BL] != -1} {
				#Get the group for each contact
				foreach gp [::abook::getContactData $user_login group] {
					#Compare if the group of the user is the same that the group requested to be blocked
					if {$gp == $gid} {
						#If yes, unblock the user
						lappend users_to_unblock $user_login
					}
				}
			}
		}

		if {[::config::getKey protocol] >= 13 } {
			::MSN::unblockUser $users_to_unblock
		} else {
			set timer 0
			foreach user_login $users_to_unblock {
				after $timer [list ::MSN::unblockUser ${user_login}]
				set timer [expr {$timer + 250}]
			}
		}
	}
	

	# Used to display the list of groups that are candidates for
	# deletion in the Delete Group... & Rename Group menus
	proc updateMenu {type path {cb ""} {pars ""}} {
		if {$type == "menu"} {
			$path delete 0 end
		}
		# The Unique Group ID (MSN) is sent with the RemoveGroup message.
		# The first group's ID is zero (0) (MSN)
		set glist [lrange [::groups::GetList] 1 end]

		#SORT THE GROUP-IDS BY GROUP-NAME
		set thelistnames [list]
		foreach gid $glist {
			set thename [::groups::GetName $gid]
			lappend thelistnames [list "$thename" $gid]
		}
		set sortlist [lsort -dictionary -index 0 $thelistnames ]
		set glist [list]
		foreach gdata $sortlist {
			lappend glist [lindex $gdata 1]
		}


		set gcnt [llength $glist]
		
		for {set i 0} {$i < $gcnt} {incr i} {
			set gid   [lindex $glist $i]	;# Group ID
			set gname [::groups::GetName $gid]	;# Group Name (unencoded)
			
			if {$type == "menu"} {
				$path add command -label $gname -command "$cb $gid $pars"
			} else {
				if {$i == 0} {
#				set mpath [tk_optionMenu $path ::groups::groupname $gname]
				} else {
#				$mpath add radiobutton -label $gname -variable ::groups::groupname
				}
			}
			# To obtain the label of the i'th menu entry
			# set ithLabel [$path entrycget $i -label]
		}
	}

	#
	# P R O T E C T E D
	#
	# ----------------- Callbacks -------------------
	proc RenameCB {pdu} {  # REG 25 12066 15 New%20Name 0
		if { [::config::getKey protocol] == 11 } {
			set trid [lindex $pdu 1]
			set gid  [lindex $pdu 2]
			set gname [urldecode [lindex $pdu 3]]
		} else {
			set trid [lindex $pdu 1]
			set lmod [lindex $pdu 2]
			set gid  [lindex $pdu 3]
			set gname [urldecode [lindex $pdu 4]]
		}
	
		RenameGroupCB $gname $gid
	}

	proc DeleteCB {pdu} {	# RMG 24 12065 15
		
		if { [::config::getKey protocol] == 11 } {
			set trid [lindex $pdu 1]
			set gid  [lindex $pdu 2]
		} else {
			set trid [lindex $pdu 1]
			set lmod [lindex $pdu 2]
			set gid  [lindex $pdu 3]
		}

		DeleteGroupCB $gid
	
	}

	proc AddCB {pdu} {	# ADG 23 12064 New%20Group 15 =?�-CC
		if { [::config::getKey protocol] == 11 } {
			set trid [lindex $pdu 1]
			set gname [urldecode [lindex $pdu 2]]
			set gid  [lindex $pdu 3]
		} else {
			set trid [lindex $pdu 1]
			set lmod [lindex $pdu 2]
			set gname [urldecode [lindex $pdu 3]]
			set gid  [lindex $pdu 4]
		}
		
		AddGroupCB $gname $gid
	}
   
	proc ToggleStatus {gid} {
		variable bShowing
	
		if {![info exists bShowing($gid)]} {
			return 0
		}
	
		if { $bShowing($gid) == 1 } {
			set bShowing($gid) 0
		} else {
			set bShowing($gid) 1
		}
		
		::config::setKey expanded_group_$gid [set bShowing($gid)]
	
		return [set bShowing($gid)]
	}

	proc getGroupCount { gid } {
		set contact_list [::MSN::getList FL]
		if { [::config::getKey groupnonim] == 0 &&
		     [::config::getKey shownonim] == 1} {
			set contact_list [concat $contact_list [::MSN::getList EL]]
		}
		set state_contacts 0
		set total_contacts 0
		if { $gid == "online" } {
			#We want the number of online people
			foreach contact $contact_list {
				if { [::abook::getVolatileData $contact state FLN] != "FLN" } {
					incr state_contacts
				}
			}
			return [list $state_contacts 0]
		} elseif { $gid == "offline" } {
			foreach contact $contact_list {
				if { [::abook::getVolatileData $contact state FLN] == "FLN" } {
					if { [::abook::getContactData $contact MOB] != "Y"} {
						incr state_contacts
					}
					incr total_contacts
				}
			}
			return [list $state_contacts $total_contacts]
		} elseif { $gid == "mobile" } {
			foreach contact $contact_list {
				if { [::abook::getVolatileData $contact state FLN] == "FLN" } {
					if { [::abook::getContactData $contact MOB] == "Y"} {
						incr state_contacts
					}
					incr total_contacts
				}
			}
			return [list $state_contacts $total_contacts]
		}  elseif { $gid == "blocked" } {
			#Even if it's unused now... Maybe it will be back...
			return [list [llength [array names ::emailBList]] 0]
		} elseif {$gid == "nonim" } {
			if {[::config::getKey shownonim] == 1} {
				set total_contacts [llength [::MSN::getList EL]] 
			}
			return [list $total_contacts $total_contacts]
		} else {
			foreach contact $contact_list {
				if { [lsearch [::abook::getGroups $contact] $gid] != -1 } {
					incr total_contacts
					if { [::abook::getVolatileData $contact state FLN] != "FLN" } {
						incr state_contacts
					}
				}
			}
			return [list $state_contacts $total_contacts]
		}
	}

	proc IsExpanded {gid} {
		variable bShowing
		if {![info exists bShowing($gid)]} {
			set bShowing($gid) 1	
			if { [::config::getKey expanded_group_$gid]!="" } {
				set bShowing($gid) [::config::getKey expanded_group_$gid]
			}
			::config::setKey expanded_group_$gid [set bShowing($gid)]
		}
	
		return $bShowing($gid)
	}

	#
	# P U B L I C
	#
	#<Init> Initialize the non-mutable part of the menus and the
	#	   core of the group administration. At this point we do not
	#	   have any information about the groups (we are not connected)
	proc Init {p} {
		variable parent
		variable entryid
	
		set parent $p		;# parent menu where we attach
		# Destroy if they already exist
		if {[winfo exists $p.group_list_delete]} { destroy $p.group_list_delete }
		if {[winfo exists $p.group_list_rename]} { destroy $p.group_list_rename }

		# The submenu with the list of defined groups (to be filled)
		menu $p.group_list_delete -tearoff 0 -type normal
		menu $p.group_list_rename -tearoff 0 -type normal
	}

	proc Reset {} {
	
		#variable groups
		variable bShowing
	
	
		# These are the default groups. Used when not sorting the
		# display by user-defined groups
		set bShowing(online)	1
		set bShowing(offline)	1
		set bShowing(blocked)   1
	
		foreach groupid {online offline blocked} {
			if { [::config::getKey expanded_group_$groupid]!="" } {
				set bShowing($groupid) [::config::getKey expanded_group_$groupid]
			}
		}

		::abook::setContactData contactlist groups ""
		::abook::unsetConsistent
		#Clear list of groups
		#set g_entries [array names groups]
		#foreach gr $g_entries {
		#   unset groups($gr)
		#}
	
	}

	# Must only Enable it when the list of groups is already available!
	# That's because from here we rebuild the group submenu (list)
	proc Enable {} {
		variable parent
		variable entryid
	
		::groups::updateMenu menu $parent.group_list_delete ::groups::menuCmdDelete
		::groups::updateMenu menu $parent.group_list_rename ::groups::menuCmdRename
		# The entryid of the parent is 0
#		$parent entryconfigure $entryid -state normal
#		$parent entryconfigure 6 -state normal
		#status_log "Groups: menu enabled\n" blue
	}

	# Call this one when going offline (disconnecting)
	proc Disable {} {
		variable parent 
		variable entryid
	
#		$parent entryconfigure $entryid -state disabled
#		$parent entryconfigure 6 -state disabled

	}

	# Gets called whenever we receive a List Group (LSG) packet,
	# this happens in the early stages of the connection.
	# MSN Packet: LSG <x> <trid> <cnt> <total> <gid> <name> 0
	proc Set { nr name } {	# There is a new group in the list
		#variable groups
		variable bShowing
		array set groups [abook::getContactData contactlist groups]
		
		set name [urldecode $name]
		set groups($nr) $name
		set bShowing($nr)   1
		
		if { [::config::getKey expanded_group_$nr]!="" } {
			set bShowing($nr) [::config::getKey expanded_group_$nr]
		}
		::config::setKey expanded_group_$nr [set bShowing($nr)]

		abook::setContactData contactlist groups [array get groups]       
		
		#status_log "Groups: added group $nr ($name)\n" blue
	}

	# Get a group's name (decoded) given its ID (0..n)
	proc GetName {nr} {
		if { $nr == 0 } {
			#Special group "Individuals"
			return [trans nogroup]
		}
		array set groups [abook::getContactData contactlist groups]
		
		if {![info exists groups($nr)]} {
			return ""
		}
		return $groups($nr)
	}

	# Does a reverse lookup from group name to find it's id.
	# Returns: -1 on error (not found), otherwise 0..n
	proc GetId {gname} {
		#variable groups
		array set groups [abook::getContactData contactlist groups]
		# Groups are stored here in decoded state. When sent to
		# the server we must urlencode them!
		set gname [string trim $gname]
		foreach group [array names groups] {
			if {$groups($group) == $gname} {
				return $group
			}
		}
		return -1
	}

	proc Exists {gname} {
		#variable groups
		array set groups [abook::getContactData contactlist groups]
	
		#Is this line needed? Someone might want to make a group starting with a whitespace, to make it appear on top...
		#set gname [string trim $gname]
		foreach group [array names groups] {
			if {$groups($group) == $gname} {
				return 1
			}
		}
		return 0
	}

	proc Rename { old new {ghandler ""}} {
		global pgc
		set old [string trim $old]
		set new [string trim $new]
		#avoid renaming no group, or renaming to an empty string
		if {$old == $new || $new == "" || $old == ""} { return 0 }
	
		if {![::groups::Exists $old]} {
			if {$ghandler != ""} {
				set retval [eval "$ghandler \"$old : [trans groupunknown]\""]
			}
			set pgc 0
			return 0
		}
	
		if {[::groups::Exists $new]} {
			if {$ghandler != ""} {
				set retval [eval "$ghandler \"$new : [trans groupexists]\""]
			}
			set pgc 0
			return 0
		}
	
		set currentGid [::groups::GetId $old]
		if {$currentGid == -1} {
			if {$ghandler != ""} {
				set retval [eval "$ghandler \"[trans groupmissing]: $old\""]
			}
			set pgc 0
			return 0
		}
	
		if {[::config::getKey protocol] >= 13} {
			$::ab ABGroupUpdate [list ::groups::ABRenameGroupCB $currentGid $new] $currentGid $new
		} else {
			#TODO Keep track of transaction number
			set new [urlencode $new]
			::MSN::WriteSB ns "REG" "$currentGid $new 0"
			# RenameCB() should be called when we receive the REG
			# packet from the server
		}

		# If an "add contact" window is open, actualise the group list
		if { [winfo exists .addcontact] == 1 } {
			after 2000 cmsn_draw_grouplist
		}

		return 1
	}

	proc ABRenameGroupCB { gid gname fail} {
		if {$fail == 0} {
			RenameGroupCB $gname $gid
		} else {
			msg_box "[trans invalidgroup]"
		}
	} 

	proc RenameGroupCB { gname gid } {
		variable parent
		#variable groups
		array set groups [::abook::getContactData contactlist groups]
	
		set groups($gid) $gname
	
		::abook::setContactData contactlist groups [array get groups]
		# Update the Delete Group... menu
		::groups::updateMenu menu $parent.group_list_delete ::groups::menuCmdDelete
		::groups::updateMenu menu $parent.group_list_rename ::groups::menuCmdRename
		::Event::fireEvent groupRenamed groups $gid $gname
	}

	proc Add { gname {ghandler ""}} {
		global pgc
		
		if {[::groups::Exists $gname]} {
			if {$ghandler != ""} {
				set retval [eval "$ghandler \"[trans groupexists]!\""]
			}
			set pgc 0
			return 0
		}
	
		if {[::config::getKey protocol] >= 13} {
			$::ab ABGroupAdd [list ::groups::ABAddGroupCB $gname] $gname
		} else {
			set gname2 [urlencode $gname]
			::MSN::WriteSB ns "ADG" "$gname2 0"
			# MSN sends back "ADG %T %M $gname gid junkdata"
			# AddCB() should be called when we receive the ADG
			# packet from the server
		}

		# If an "add contact" window is open, actualise the group list
		if { [winfo exists .addcontact] == 1 } {
			after 2000 cmsn_draw_grouplist
		}
		return 1
	}

	proc ABAddGroupCB { gname gid fail} {
		if {$fail == 0 || $fail == 2} {
			AddGroupCB $gname $gid
		} else {
			msg_box "[trans invalidgroup]"
		}
	} 

	proc AddGroupCB { gname gid } {
		variable parent
		variable bShowing
		array set groups [::abook::getContactData contactlist groups]

		set groups($gid) $gname
		set bShowing($gid) 1
		if { [::config::getKey expanded_group_$gid]!="" } {
			set bShowing($gid) [::config::getKey expanded_group_$gid]
		}
		::config::setKey expanded_group_$gid [set bShowing($gid)]

		abook::setContactData contactlist groups [array get groups]	
		::groups::updateMenu menu $parent.group_list_delete ::groups::menuCmdDelete
		::groups::updateMenu menu $parent.group_list_rename ::groups::menuCmdRename
		::Event::fireEvent groupAdded groups $gid $gname

		::groups::AddContactsToGroup $gname
	}

	proc AddContactsToGroup { gname } {

		set timer 250
		set gid [::groups::GetId $gname]
		foreach contact [::abook::getAllContacts] {
			if { [lsearch [::abook::getLists $contact] "FL"] != -1 ||
			     [lsearch [::abook::getLists $contact] "EL"] != -1} {
				set passport2 [string map { @ _40_ . _2E_ _ _5F_ } $contact]
				if { [::config::getKey tempcontact_$passport2] == 1 } {
					
					set timer [expr {$timer + 250}]
					after $timer [list ::MSN::copyUser $contact $gid]
				}
				::config::unsetKey tempcontact_$passport2
			}
		}

	}

        
	proc Delete { gid {ghandler ""}} {
		global pgc
		
		set gname [::groups::GetName $gid]
		if {![::groups::Exists $gname]} {
			if {$ghandler != ""} {
				set retval [eval "$ghandler \"[trans groupunknown]!\""]
			}
			set pgc 0
			return 0
		}

		if {[::config::getKey protocol] >= 13} {
			$::ab ABGroupDelete [list ::groups::ABDeleteGroupCB $gid] $gid
		} else {
	
			# Cannot and must not delete a group until it is empty
			if {[lindex [::groups::getGroupCount $gid] 1] != 0} {
				if {$ghandler != ""} {
					set retval [eval "$ghandler \"[trans groupnotempty]!\""]
				}
				set pgc 0
				return 0
			}
		
			::MSN::WriteSB ns "RMG" $gid
			# MSN sends back "RMG %T %M $gid"
			# DeleteCB() should be called when we receive the RMG
			# packet from the server
		}

		# If an "add contact" window is open, actualise the group list
		if { [winfo exists .addcontact] == 1 } {
			after 2000 cmsn_draw_grouplist
		}

		return 1
	}

	proc ABDeleteGroupCB { gid fail } {
		if {$fail == 0 || $fail == 2 } {
			# We deleted a group that wasn't empty, we must resync
			set count [lindex [::groups::getGroupCount $gid] 1]
			DeleteGroupCB $gid
			if {$count > 0 } {
				$::ab Synchronize [list ::MSN::ABSynchronizationDone 0]
			}
		}
	}

	proc DeleteGroupCB { gid } {
		variable parent
		variable bShowing
		array set groups [abook::getContactData contactlist groups]

		# Update our local information
		unset groups($gid)
		unset bShowing($gid)
	
		# TODO: We are out of sync, maybe we should request
		# a new list
		abook::setContactData contactlist groups [array get groups]
		# Update the Delete Group... menu
		::groups::updateMenu menu $parent.group_list_delete ::groups::menuCmdDelete
		::groups::updateMenu menu $parent.group_list_rename ::groups::menuCmdRename
		::Event::fireEvent groupRemoved groups $gid
	}

	proc GetSortedList {{opt ""}} {
		set glist [list] 
		set sortedlist [list]
		foreach gid [::groups::GetList $opt] { 
			if ![string compare $gid "0"] { 
				lappend sortedlist [list $gid [::groups::GetName $gid]]
			} else { 
				lappend glist [list $gid [::groups::GetName $gid]]
			} 
		} 
		if {[::config::getKey ordergroupsbynormal]} {
			set sortedlist [concat $sortedlist [lsort -increasing -dictionary -index 1 $glist]]
		} else {
			set sortedlist [concat $sortedlist [lsort -decreasing -dictionary -index 1 $glist]]
		}
		set result [list]
		foreach group $sortedlist {
			lappend result [lindex $group 0]
		}
		return $result
	}

	proc GetList {{opt ""}} {
		#variable groups
		array set groups [abook::getContactData contactlist groups]

		set g_list [list]
		set g_entries [array get groups]
		set items [llength $g_entries]
		for {set idx 0} {$idx < $items} {incr idx 1} {
			set var_pk [lindex $g_entries $idx]
			incr idx 1
			set var_value [lindex $g_entries $idx]
			if {$opt != "-names"} {
				lappend g_list $var_pk	;# Return the key only
			} else {
				lappend g_list $var_value;# Return the value only
			}
		}
		set g_list [lsort -increasing $g_list]
		return $g_list
	    }

	#Tests if a contact belong to a group or not
	proc Belongtogp {email gid} {

		if {[lsearch [::abook::getGroups $email] $gid] == -1} {
			return "0"
		} else {
			return "1"
		} 
	}

	proc Groupmanager { email w } {
		# The Unique Group ID (MSN) is sent with the RemoveGroup message.
		# The first group's ID is zero (0) (MSN)
		set gidlist [lrange [::groups::GetList] 1 end]
		variable tempgroupstate

		set thelistnames [list]

		#Create a list with the names of the groups the contact belong to
		foreach gid $gidlist {
			set thename [::groups::GetName $gid]
			lappend thelistnames [list "$thename" $gid]
		}

		#Sort the list by names (sortlist is a list of lists with name and gid of a group)
		set sortlist [lsort -dictionary -index 0 $thelistnames]
		set sortlist2 [list]

		frame $w.box

		foreach group $sortlist {
			set name [lindex $group 0]
			set gid [lindex $group 1]
			lappend glist $name
			lappend sortlist2 $gid

			set tempgroupstate("$email$gid") [Belongtogp $email $gid]
			checkbutton $w.box.w$gid -onvalue 1 -offvalue 0 -text " $name" -variable tempgroupstate("$email$gid") -anchor w
			pack configure $w.box.w$gid -side top -fill x
		}
		pack configure $w.box -side top -fill x
	}

	proc GroupmanagerOk { email } {
		# The Unique Group ID (MSN) is sent with the RemoveGroup message.
		# The first group's ID is zero (0) (MSN)
		set gidlist [lrange [::groups::GetList] 1 end]
		variable tempgroupstate

		set gidlistyes [list]
		set gidlistno [list]

		#Check which groups the contact belong to (gidlistyes) and which he doesn't (gidlistno)
		foreach gid $gidlist {
			if {[info exists tempgroupstate("$email$gid")]} {
				set state [set tempgroupstate("$email$gid")]
				if {$state == 1} {
					lappend gidlistyes $gid
				} elseif {$state == 0} {
					lappend gidlistno $gid
				}
				array unset tempgroupstate "$email$gid"
			} else {
				lappend gidlistno $gid
			}
		}

		set timer 0

		#First add the contact to the new groups
		foreach gid $gidlistyes {
			if {[lsearch [::abook::getGroups $email] $gid] == -1} {
				#If user was in "no group" before, he has to be moved to make him disappear in "no group"
				if {[::abook::getGroups $email] == "0" && $timer == 0} {
					after $timer [list ::MSN::moveUser $email "0" $gid]
				} else {
					after $timer [list ::MSN::copyUser $email $gid]
				}
				set timer [expr {$timer + 1000}]
			}
		}

		#Then remove their from the former groups
		foreach gid $gidlistno {
			if {[lsearch [::abook::getGroups $email] $gid] != -1} {
				after $timer [list ::MSN::removeUserFromGroup $email $gid]
				set timer [expr {$timer + 1000}]
			}
		}

		destroy .gpmanage_[::md5::md5 $email]
	}


	proc GroupmanagerClose { email } {

		# The Unique Group ID (MSN) is sent with the RemoveGroup message.
		# The first group's ID is zero (0) (MSN)
		set gidlist [lrange [::groups::GetList] 1 end]
		variable tempgroupstate
		foreach gid $gidlist {
			array unset tempgroupstate "$email$gid"
		}
		
		destroy .gpmanage_[::md5::md5 $email]
	}


}