<?php

include_once('class.functions.inc.php');

class imap_functions
{
	var $functions;
	var $imap;
	var $imapDelimiter;
	var $imap_admin;
	var $imap_passwd;
	var $imap_server;
	var $imap_port;
    var $imap_trashfolder;
    var $imap_sentfolder;
    var $imap_draftsfolder;
    var $imap_spamfolder;
	
	function imap_functions(){
		$this->functions	= new functions;
		$this->imap_admin	= $_SESSION['phpgw_info']['expresso']['email_server']['imapAdminUsername'];
		$this->imap_passwd	= $_SESSION['phpgw_info']['expresso']['email_server']['imapAdminPW'];
		$this->imap_server	= $_SESSION['phpgw_info']['expresso']['email_server']['imapServer'];
		$this->imap_port	= $_SESSION['phpgw_info']['expresso']['email_server']['imapPort'];
		$this->imap_createspamfolder	= $_SESSION['phpgw_info']['expresso']['email_server']['imapCreateSpamFolder'];
		$this->imap_cyrususerspam = $_SESSION['phpgw_info']['expresso']['email_server']['imapCyrusUserPostSpam'] ? $_SESSION['phpgw_info']['expresso']['email_server']['imapCyrusUserPostSpam'] : "anonymous";
		$this->imap_trashfolder  = $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultTrashFolder']  ? $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultTrashFolder']  : str_replace("*","", $this->functions->lang("trash"));
		$this->imap_sentfolder   = $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultSentFolder']   ? $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultSentFolder']   : str_replace("*","", $this->functions->lang("sent"));
		$this->imap_draftsfolder = $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultDraftsFolder'] ? $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultDraftsFolder'] : str_replace("*","", $this->functions->lang("drafts"));
		$this->imap_spamfolder   = $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultSpamFolder']   ? $_SESSION['phpgw_info']['expresso']['email_server']['imapDefaultSpamFolder']   : str_replace("*","", $this->functions->lang("spam"));
		$this->imapDelimiter= $_SESSION['phpgw_info']['expresso']['email_server']['imapDelimiter'];
		$this->imap 		= imap_open('{'.$this->imap_server.':'.$this->imap_port.'/novalidate-cert}', $this->imap_admin, $this->imap_passwd, OP_HALFOPEN);
	}
	
	function create($uid, $mailquota)
	{
		if (!imap_createmailbox($this->imap, '{'.$this->imap_server.'}' . "user" . $this->imapDelimiter . $uid))
		{
			$error = imap_errors();
			if ($error[0] == 'Mailbox already exists')
			{
				$result['status'] = true;
			}
			else
			{
				$result['status'] = false;
				$result['msg'] = $this->functions->lang('Error on function') . " imap_functions->create(INBOX) ($uid):" . $error[0];
			}
			return $result;
		}
		if ( (!empty($this->imap_sentfolder)) && (!imap_createmailbox($this->imap, '{'.$this->imap_server.'}' . "user" . $this->imapDelimiter . $uid . $this->imapDelimiter . $this->imap_sentfolder)) )
		{
			$error = imap_errors();
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('Error on function') . " imap_functions->create(".$this->imap_sentfolder."):" . $error[0];
			return $result;
		}
		if ( (!empty($this->imap_draftsfolder)) && (!imap_createmailbox($this->imap, '{'.$this->imap_server.'}' . "user" . $this->imapDelimiter . $uid . $this->imapDelimiter . $this->imap_draftsfolder)) )
		{
			$error = imap_errors();
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('Error on function') . " imap_functions->create(".$this->imap_draftsfolder."):" . $error[0];
			return $result;
		}
		if ( (!empty($this->imap_trashfolder)) && (!imap_createmailbox($this->imap, '{'.$this->imap_server.'}' . "user" . $this->imapDelimiter . $uid . $this->imapDelimiter . $this->imap_trashfolder)) )
		{
			$error = imap_errors();
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('Error on function') . " imap_functions->create(".$this->imap_trashfolder."):" . $error[0];
			return $result;
		}
		if (!empty($this->imap_spamfolder) && $this->imap_createspamfolder == 'yes')
		{
		    if (!imap_createmailbox($this->imap, '{'.$this->imap_server.'}' . "user" . $this->imapDelimiter . $uid . $this->imapDelimiter . $this->imap_spamfolder))
			{
			    $error = imap_errors();
			    $result['status'] = false;
			    $result['msg'] = $this->functions->lang('Error on function') . " imap_functions->create(".$this->imap_spamfolder."):" . $error[0];
			    return $result;
			} else {
				imap_setacl($this->imap, "user" . $this->imapDelimiter . $uid.  $this->imapDelimiter . $this->imap_spamfolder , $this->imap_cyrususerspam, 'p');			
         }
		}		

		if (!imap_set_quota($this->imap,"user" . $this->imapDelimiter . $uid, ($mailquota*1024))) 
		{
			$error = imap_errors();
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('Error on function') . " imap_functions->create(imap_set_quota):" . $error[0];
			return $result;
		}
		
		$result['status'] = true;
		return $result;
	}
	
	function get_user_info($uid)
	{
		$get_quota = @imap_get_quotaroot($this->imap,"user" . $this->imapDelimiter . $uid);
		
		if (count($get_quota) == 0)
		{
			$quota['mailquota'] = '-1';
			$quota['mailquota_used'] = '-1';
		}	
		else
		{
			$quota['mailquota'] = round (($get_quota['limit'] / 1024), 2);
			$quota['mailquota_used'] = round (($get_quota['usage'] / 1024), 2);
		}
		return $quota;
	}
	
	function change_user_quota($uid, $quota)
	{
		$result['status'] = true;
		
		if (!imap_set_quota($this->imap,"user" . $this->imapDelimiter . $uid, ($quota*1024)) )
		{
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('it was not possible to change users mailbox quota') . ".\n";
			$result['msg'] .= $this->functions->lang('Server returns') . ': ' . imap_last_error();
		}
		
		return $result;
	}
	
	function delete_mailbox($uid)
	{
		$result['status'] = true;
		
		//Seta acl imap para poder deletar o user.
		// Esta sem tratamento de erro, pois o retorno da funcao deve ter um bug.
		imap_setacl($this->imap, "user" . $this->imapDelimiter . $uid, $this->imap_admin, 'c');
		
		if (!imap_deletemailbox($this->imap, '{'.$this->imap_server.'}' . "user" . $this->imapDelimiter . $uid))
		{
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('it was not possible to delete mailbox') . ".\n";
			$result['msg'] .= $this->functions->lang('Server returns') . ': ' . imap_last_error();
		}
		
		return $result;
	}
	
	function rename_mailbox($old_mailbox, $new_mailbox)
	{
		$result['status'] = true;

		if (!$quota = @imap_get_quotaroot($this->imap, 'user' . $this->imapDelimiter . $old_mailbox))
		{
				$result['status'] = false;
				$result['msg'] = $this->functions->lang("Error getting user quota. Process aborted.\n") . $this->functions->lang('Server returns') . ': ' . imap_last_error();
				return $result;
		}
		$limit = $quota['STORAGE']['limit'];
		$usage = $quota['STORAGE']['usage'];
		
		if ($usage >= $limit)
		{
			if (! @imap_set_quota($this->imap, 'user' . $this->imapDelimiter . $old_mailbox, (int)($usage+10240)) )
			{
				$result['status'] = false;
				$result['msg'] = $this->functions->lang("Error increasing user quota. Process aborted.\n") . $this->functions->lang('Server returns') . ': ' . imap_last_error();
				return $result;
			}
		}

		
		if (! @imap_renamemailbox($this->imap,
						'{'.$this->imap_server.':'.$this->imap_port.'}user' . $this->imapDelimiter . $old_mailbox,
						'{'.$this->imap_server.':'.$this->imap_port.'}user' . $this->imapDelimiter . $new_mailbox) )
		{
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('Server returns') . ': ' . imap_last_error();

		}


		if ($usage >= $limit)
		{
			if (! @imap_set_quota($this->imap, 'user' . $this->imapDelimiter . $new_mailbox, (int)($limit)) )
			{
				$result['status'] = false;
				$result['msg'] .= $this->functions->lang("Error returning user quota.\n") . $this->functions->lang('Server returns') . ': ' . imap_last_error();
				
				@imap_renamemailbox($this->imap,
					'{'.$this->imap_server.':'.$this->imap_port.'}user' . $this->imapDelimiter . $new_mailbox,
					'{'.$this->imap_server.':'.$this->imap_port.'}user' . $this->imapDelimiter . $old_mailbox);
			}
		}

		return $result;
	}
	function empty_user_inbox($params){
	       if (!$this->functions->check_acl($_SESSION['phpgw_session']['session_lid'], 'empty_user_inbox'))
		{
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('You do not have access to clean an user inbox');
			return $result;
		} else return $this->empty_inbox($params);
		
        }
        function empty_shared_account_inbox($params){
            if (!$this->functions->check_acl($_SESSION['phpgw_session']['session_lid'], 'empty_shared_accounts_inbox'))
		{
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('You do not have right to empty an shared account inbox');
			return $result;
		} else return $this->empty_inbox($params);
        }
	function empty_inbox($params)
	{
		// Verifica o acesso do gerente
		if (!($this->functions->check_acl($_SESSION['phpgw_session']['session_lid'], 'empty_user_inbox') ||
                      $this->functions->check_acl($_SESSION['phpgw_session']['session_lid'], 'empty_shared_accounts_inbox')
                  ))
		{
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('You do not have access to clean an inbox');
			return $result;
		}

                if ($_SESSION['phpgw_info']['expressomail']['email_server']['imapTLSEncryption'] == 'yes')
		{
			$imap_options = '/tls/novalidate-cert';
		}
		else
		{
			$imap_options = '/notls/novalidate-cert';
		}

		
		$result['status'] = true;
		$uid = $params['uid'];
		
		$return_setacl = imap_setacl($this->imap, "user" . $this->imapDelimiter . $uid, $this->imap_admin, 'lrswipcda');
		
		if ($return_setacl)
		{
			$mbox_stream = imap_open('{'.$this->imap_server.':'.$this->imap_port.$imap_options .'}user'. $this->imapDelimiter . $uid, $this->imap_admin, $this->imap_passwd);
			
			$check = imap_mailboxmsginfo($mbox_stream);
			$inbox_size = (string)(round ((($check->Size)/(1024*1024)), 2));
			
			$return_imap_delete = imap_delete($mbox_stream,'1:*');
			imap_close($mbox_stream, CL_EXPUNGE);
			
			imap_setacl ($this->imap, "user" . $this->imapDelimiter . $uid, $this->imap_admin, '');
			
			if ($return_imap_delete)
			{
				$result['inbox_size'] = $inbox_size;
				
				$get_user_quota = @imap_get_quotaroot($this->imap,"user" . $this->imapDelimiter . $uid);
				$result['mailquota_used'] = (string)(round(($get_user_quota['usage']/1024), 2));
			}
			else
			{
				$result['status'] = false;
				$result['msg'] = $this->functions->lang('It was not possible clean the inbox') . ".\n" . $this->functions->lang('Server returns') . ': ' . imap_last_error();
			}
		}
		else
		{
			$result['status'] = false;
			$result['msg'] = $this->functions->lang('It was not possible to modify the users acl') . ".\n" . $this->functions->lang('Server returns') . ': ' . imap_last_error();
		}
		return $result;
	}
	function getaclfrombox($params)
	{
		$boxacl = $params['uid'];
		
		$return = array();	
		
		$mbox_acl = imap_getacl($this->imap, "user" . $this->imapDelimiter . $boxacl);
		
		foreach ($mbox_acl as $user => $acl)
		{
			if ($user != $boxacl )
			{
				$return[$user] = $acl;
			}
		}
		return $return;
	}
	function setaclfrombox($user, $acl, $mailbox)
	{
		$serverString = '{'.$this->imap_server.':'.$this->imap_port.'/novalidate-cert}';
		$mailboxes_list = imap_getmailboxes($this->imap, $serverString, "user".$this->imapDelimiter.$mailbox.$this->imapDelimiter."*");                
		$result = Array();
                $result['status'] = true;
                if (is_array($mailboxes_list))
		{
                        $folder = str_replace($serverString, "", imap_utf7_encode("user".$this->imapDelimiter.$mailbox));
                        $folder = str_replace("&-", "&", $folder);

                        if (imap_setacl ($this->imap, $folder, $user, $acl) ) {
                            foreach ($mailboxes_list as $key => $val)
                            {
                                    $folder = str_replace($serverString, "", imap_utf7_encode($val->name));
                                    $folder = str_replace("&-", "&", $folder);
                                    if (!imap_setacl ($this->imap, $folder, $user, $acl))
                                    {
                                            $result['status'] = false;
                                            $result['msg']  = $this->functions->lang('Error on function') . ' imap_functions->setaclfrombox: imap_setacl';
                                            $result['msg'] .= "\n" . $this->functions->lang('Server return') . ': ' . imap_last_error();
                                            break;
                                    }
                            }
                        } else {
                            $result['status'] = false;
                            $result['msg']  = $this->functions->lang('Error on function') . ' imap_functions->setaclfrombox: imap_setacl';
                            $result['msg'] .= "\n" . $this->functions->lang('Server return') . ': ' . imap_last_error();
                            break;
                        }
		}
		return $result;
	}
        function save_shared_account($params){           
            //Rename mailbox
            $result = Array();
            $result['status'] = true;
            if($params['uid'] != $params['old_uid'] ){
                    $result = $this->rename_mailbox($params['old_uid'], $params['uid']);
                    if(!$result['status']) return $result;
            }

            //Begin edit Quota
            $quota = $this->get_user_info($params['uid'] );

            if ( $quota['mailquota'] != $params['mailquota'] ){
                    if(!$this->functions->check_acl($_SESSION['phpgw_session']['session_lid'], 'edit_shared_accounts_quote') )
                    {
                                $result['status'] = false;
                                $result['msg'] = $this->functions->lang('You do not have access to edit an shared account inbox quota');
                                return $result;
                    } else $this->change_user_quota($params['old_uid'], $params['mailquota']);
            }
            //End Edit Quota
 
            /* Begin Set ACL */
            //Old users set in the box
            $owners_acl_old = $this->getaclfrombox($params);
            //new settings
            //necessario devido a um bug do serialize do javascript do connector zera uma string
            //serializada "N;", diferente da serializada do php "a:0:{}"
            
            if( $params['owners_acl'] != "N;" ){
            	$owners_acl_new = unserialize($params['owners_acl']);
            } else {
            	$owners_acl_new = Array();            
            }

            $owners_to_remove = array_diff_assoc($owners_acl_old,$owners_acl_new);
            $owners_to_add = array_diff_assoc($owners_acl_new,$owners_acl_old);
			
            //Find modified users
            $tmp_update = array_diff_assoc($owners_acl_old,$owners_to_remove);
            $owners_to_update = Array();
            foreach($tmp_update  as $user => $acl){
                if($owners_acl_old[$user] != $acl){
                    $owners_to_update[$user] = $acl;
                }
            }
            
            //Check Modify manage acl
            
            if( (count($owners_to_remove) > 0 || count($owners_to_add) > 0 || count($owners_to_update) > 0) && !$this->functions->check_acl($_SESSION['phpgw_session']['session_lid'], 'edit_shared_accounts_acl') ){
                $result['status'] = false;
				$result['msg'] = $this->functions->lang('You do not have access to edit an shared account inbox acl');
				return $result;
            }
            file_put_contents("/tmp/saida", "old ".print_r($owners_acl_old, true)."remove ".print_r($owners_to_remove, true)."add ".print_r($owners_to_add, true)."update ".print_r($owners_to_update, true));
            if( is_array($owners_acl_new)){
                foreach($owners_to_remove as $user => $acl){
                    $params['user'] = $user;
                    $params['acl'] = "";
                    $user = $params['user'];                  
                    $result = $this->setaclfrombox($user,"",$params['uid']);
                }
                //add new users
                foreach($owners_to_add as $user => $acl){
                    $params['user'] = $user;
                    $params['acl'] = $acl;
                    $result = $this->setaclfrombox($user,$acl,$params['uid']);
                }
                //update users
                 foreach($owners_to_update as $user => $acl){
                    $params['user'] = $user;
                    $params['acl'] = $acl;
                    $result = $this->setaclfrombox($user,$acl,$params['uid']);
                }               
            }
            /* End Set Acl */
            return $result;
        }
}