';
			//print_r($new_values['participantCanSendMail']);
			//print_r($old_values['participantCanSendMail']);
			
			////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
			// ADD ATTRS
			if (($new_values['participantCanSendMail'] == 'on') && ($old_values['participantCanSendMail'] == ''))
			{
				$ldap_add['participantCanSendMail'] = "TRUE";
				$this->db_functions->write_log("Ativado participantCanSendMail da SCL da lista de email " . $new_values['mail'],'','','','');
			}
			if (($new_values['accountRestrictive'] == 'on') && ($old_values['accountRestrictive'] == ''))
			{
				$ldap_add['accountRestrictive'] = "mailListRestriction";
				$ldap_add['accountDeliveryMessage']	= 'OK';
				$this->db_functions->write_log("Ativado mailListRestriction da SCL da lista de email " . $new_values['mail'],'','','','');
			}
			if (count($ldap_add))
			{
				$result = $this->ldap_functions->add_user_attributes($dn, $ldap_add);
				if (!$result['status'])
				{
					$return['status'] = false;
					$return['msg'] .= $result['msg'];
				}
			}
			
			//////////////////////////////////////////////////////////////////////////////////////////////////////////////////
			// REMOVE ATTRS
			if (($new_values['participantCanSendMail'] != 'on') && ($old_values['participantCanSendMail'] == 'TRUE'))
			{
				$ldap_remove['participantCanSendMail']	= array();
				$this->db_functions->write_log("Desativado participantCanSendMail da SCL da lista de email " . $new_values['mail'],'','','','');
			}
			if (($new_values['accountRestrictive'] != 'on') && ($old_values['accountRestrictive'] == 'mailListRestriction'))
			{
				$ldap_remove['accountRestrictive']	= array();
				$ldap_remove['accountDeliveryMessage']	= array();
				$this->db_functions->write_log("Desativado restri��o (mailListRestriction) da SCL da lista de email " . $new_values['mail'],'','','','');
			}
			if (count($ldap_remove))
			{
				$result = $this->ldap_functions->remove_user_attributes($dn, $ldap_remove);
				if (!$result['status'])
				{
					$return['status'] = false;
					$return['msg'] .= $result['msg'];
				}
			}
			
			////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
			// USERS

			if (!$new_values['members'])
				$new_values['members'] = array();
			if (!$old_values['members'])
				$old_values['members'] = array();

			$add_users = array_diff($new_values['members'], $old_values['members']);
			$remove_users = array_diff($old_values['members'], $new_values['members']);
			
			if (count($add_users)>0)
			{
				$array_emails_add = array();
				foreach($add_users as $uidnumber)
				{
					$mail = $this->ldap_functions->uidnumber2mail($uidnumber);
					$array_emails_add[] = $mail;
					$this->db_functions->write_log("Adicionado usuario $mail a SCL da lista $dn",'',$uidnumber,'','');
				}
				$result = $this->ldap_functions->add_user2maillist_scl($dn, $array_emails_add);
				if (!$result['status'])
				{
					$return['status'] = false;
					$return['msg'] .= $result['msg'];
				}
				
			}
			
			if (count($remove_users)>0)
			{
				$array_emails_remove = array();
				foreach($remove_users as $uidnumber)
				{
					$mail = $this->ldap_functions->uidnumber2mail($uidnumber);
					$array_emails_remove[] = $mail;
					$this->db_functions->write_log("Removido usuario $mail da SCP da lista $dn",'',$uidnumber,'','');
				}
				$result = $this->ldap_functions->remove_user2maillist_scl($dn, $array_emails_remove);
				if (!$result['status'])
				{
					$return['status'] = false;
					$return['msg'] .= $result['msg'];
				}
			}
			
			return $return;
		}				
		
		function get_info($uidnumber, $context)
		{
			$maillist_info_ldap = $this->ldap_functions->get_maillist_info($uidnumber, $context);
			return $maillist_info_ldap;
		}

		function get_adm_info($uidnumber, $context) //Funcao que usa get_adm_maillist_info para trazer dados dos administradores
							    // de listas;
		{
			$maillist_info_ldap = $this->ldap_functions->get_adm_maillist_info($uidnumber, $context);
			return $maillist_info_ldap;
		}


		function get_scl_info($uidnumber, $context)
		{
			$maillist_info_ldap = $this->ldap_functions->get_maillist_scl_info($uidnumber, $context);
			return $maillist_info_ldap;
		}
		
		function delete($params)
		{
			// Verifica o acesso do gerente
			if (!$this->functions->check_acl($_SESSION['phpgw_info']['expresso']['user']['account_lid'], 'delete_maillists'))
			{
				$return['status'] = false;
				$return['msg'] = 'Voc� n�o tem acesso para excluir listas de email.';
				return $return;
			}

			$return['status'] = true;

			$uidnumber = $params['uidnumber'];
			$uid = $this->ldap_functions->uidnumber2uid($uidnumber);

			//LDAP
			$result_ldap = $this->ldap_functions->delete_maillist($uidnumber);
			if (!$result_ldap['status'])
			{
				$return['status'] = false;
				$return['msg'] .= $result_ldap['msg'];
			}
			
			if ($return['status'] == true)
			{
				$this->db_functions->write_log('Deletado lista de email','',$uid,'','');
			}
			
			return $return;	
		}		
		
		//Rotina que visa atualizar o Mailman com base na cria��o de nova lista no RHDS, em tempo real
		//Utiliza socket para disparar um HTTP Post remoto
		function synchronize_mailman($dados_lista){
			//porta do servidor de acesso via rede
			$porta_mailman = $GLOBALS['phpgw_info']['server']['porta_mailman'];
			//endere�o IP do servidor mailman
			$host_mailman = $GLOBALS['phpgw_info']['server']['host_mailman'];
			//endereco da URL para o script PHP que faz a atualizacao no recurso remoto
			//$url_mailman = '/servidor-listas/mailman_request.php';
			$url_mailman = $GLOBALS['phpgw_info']['server']['url_mailman'];
			//o nome da lista passado como parametro no array associativo (algo tipo "uid=lista-X")
			$lista_mailman = $dados_lista['uid'];
			$op_mailman = $dados_lista['op'];
			
			if(strlen($lista_mailman) <= 0){
				$msg_socket = "[ERROSOCKET00] " . date("d/m/Y-G:i:s") . " -[".$_SERVER['REMOTE_ADDR']."]"."-[".$_SERVER['REQUEST_URI']."]"."-[".$_SERVER['SCRIPT_NAME']."]:"." Sincronismo MailMan-RHDS falhou ao adicionar nova lista: Motivo= nome da lista(\"$lista_mailman\") invalido.";
				$retorno['status'] = false;
				$retorno['msg'] = $msg_socket; 
				//Grava no logger o erro
				$log = `/usr/bin/logger -p local5.notice -t Sinc-Listas-Mailman-RHDS '$msg_socket'`;
    			return $retorno;				
			}
			
			//Cria o socket TCP/IP
			$socket = socket_create(AF_INET, SOCK_STREAM, 0);
			
			$retorno['status'] = true;
			
			//Em caso de erro, retorna um vetor serializado contendo (falso, string erro)
			if ($socket < 0) {
				$msg_socket = "[ERROSOCKET01] " . date("d/m/Y-G:i:s") . " -[".$_SERVER['REMOTE_ADDR']."]"."-[".$_SERVER['REQUEST_URI']."]"."-[".$_SERVER['SCRIPT_NAME']."]:"." Sincronismo MailMan-RHDS falhou ao adicionar nova lista: php socket_create() falhou. Motivo= " . socket_strerror($socket);;
				$retorno['status'] = false;
				$retorno['msg'] = $msg_socket; 
				//Grava no logger o erro
				$log = `/usr/bin/logger -p local5.notice -t Sinc-Listas-Mailman-RHDS '$msg_socket'`;
    			return $retorno;
			}
			
			//Estabelece a conex�o com o recurso
			$resultado = socket_connect($socket, $host_mailman, $porta_mailman);
			
			//Em caso de erro, retorna um vetor serializado contendo (falso, string erro)
			if ($resultado < 0) {
				$msg_socket = "[ERROSOCKET02] " .date("d/m/Y-G:i:s") . " -[".$_SERVER['REMOTE_ADDR']."]"."-[".$_SERVER['REQUEST_URI']."]"."-[".$_SERVER['SCRIPT_NAME']."]:"." Sincronismo MailMan-RHDS falhou ao adicionar nova lista: php socket_connect() [$resultado] falhou. Motivo=  " . socket_strerror($resultado);
				$retorno['status'] = false;
				$retorno['msg'] = $msg_socket; 
				//Grava no logger o erro
				$log = `/usr/bin/logger -p local5.notice -t Sinc-Listas-Mailman-RHDS '$msg_socket'`;
    			return $retorno;				
			}			
			
			//Envia o dado "lid", contendo o nome da lista recebido como parametro da funcao, e "op=1" (nova lista)
			$post_lista = "uid=".$lista_mailman."&op=".$op_mailman;
			
			//Define o tipo de mensagem que vai ser disparada via socket: no caso, um HTTP Post
			$dados_envio_socket = "POST $url_mailman HTTP/1.0\r\n";
			$dados_envio_socket .= "Host: $host_mailman\r\n";
			$dados_envio_socket .= "Accept: text/xml,application/xml,application/xhtml+xml,text/html,text/plain;\r\n";
			$dados_envio_socket .= "Accept-Charset: ISO-8859-1,utf-8;\r\n";
			$dados_envio_socket .= "Accept-Language: pt-br,en-us,en;\r\n";
			$dados_envio_socket .= "Content-Type: application/x-www-form-urlencoded\r\n";
			$dados_envio_socket .= "Connection: close\r\n";
			$dados_envio_socket .= "Content-Length: " . strlen($post_lista) . "\r\n";
			$dados_envio_socket .= "\r\n";
			$dados_envio_socket .= "$post_lista\r\n";
			
			//String que cont�m a sa�da do processamento remoto
			$dados_saida_socket = '';
			
			//Efetiva os dados de entrada para o processamento no socket remoto
			if (socket_write ($socket, $dados_envio_socket, strlen($dados_envio_socket))){
				while ($leitura_socket  = socket_read($socket, 2048)) {
    				$dados_saida_socket .= $leitura_socket;
				}
			}
			else{
				$msg_socket = "[ERROSOCKET03] " .date("d/m/Y-G:i:s") . " -[".$_SERVER['REMOTE_ADDR']."]"."-[".$_SERVER['REQUEST_URI']."]"."-[".$_SERVER['SCRIPT_NAME']."]:"." Sincronismo MailMan-RHDS falhou ao adicionar nova lista: php socket_write() [$dados_envio_socket] falhou. Motivo=  " . socket_strerror(socket_last_error());
				$retorno['status'] = false;
				$retorno['msg'] = $msg_socket; 
				//Grava no logger o erro
				$log = `/usr/bin/logger -p local5.notice -t Sinc-Listas-Mailman-RHDS '$msg_socket'`;
    			return $retorno;					
			}
			
			//Captura a partir da string total da resposta do socket, a sec��o serializada a ser tratada
			$vet_dados_saida = explode('@@', $dados_saida_socket);
			if(count($vet_dados_saida[1]) > 0){
				$dados_serializados_saida = unserialize($vet_dados_saida[1]);
			}
			else{
				$msg_socket = "[ERROSOCKET04] " .date("d/m/Y-G:i:s") . " -[".$_SERVER['REMOTE_ADDR']."]"."-[".$_SERVER['REQUEST_URI']."]"."-[".$_SERVER['SCRIPT_NAME']."]:"." Sincronismo MailMan-RHDS falhou ao adicionar nova lista: php resposta do socket nula/invalida. Conteudo=  " . $dados_saida_socket; 
				$retorno['status'] = false;
				$retorno['msg'] = $msg_socket;
				//Grava no logger o erro
				$log = `/usr/bin/logger -p local5.notice -t Sinc-Listas-Mailman-RHDS '$msg_socket'`;
				return $retorno;
			}

			//Encerra a conex�o com o recurso remoto
			socket_close($socket);	
			
			//Retorna um array contendo (true, dados serializados de processamento remoto)
			return $dados_serializados_saida;		
		}
		//Usada para fazer rebind em caso de escrita em slave (quando volta uma referral)
	}
?>