* @package plugins * @subpackage useracl * @copyright 2003-2008 Alexandros Vellis * @version $Id$ */ /** Includes */ include_once(SM_PATH . 'plugins/useracl/html.php'); /** * Informational text in pagetop bar. * @return string */ function useracl_pagetop_do() { global $mailbox; sq_change_text_domain('useracl'); sqgetGlobalVar('folderinfo', $folderinfo, SQ_SESSION); $location = get_location(); $out = ''; if(isset($mailbox)) { $acl_uri = 'plugins/useracl/useracl.php?mailbox='.urlencode($mailbox).'&addacl=1'; $disp = ''; if(useracl_is_user_folder($mailbox, $folderinfo)) { $out .= '   ' . sprintf( '   ' . _("Shared by User: %s"), useracl_user_link($folderinfo['username']) ); } elseif(strtolower($mailbox) != 'inbox' && !useracl_is_shared_folder($mailbox)) { $out .= '   ' . makeComposeLink($acl_uri, $disp); } $out .= " \n"; } sq_change_text_domain('squirrelmail'); return $out; } /** * Check if given mailbox is a folder that belongs to a user. * @param string $mbox * @param array $return_parts In this array, the mailbox name will be splitted * to its parts according to the IMAP delimiter. * @return boolean */ function useracl_is_user_folder($mbox, &$return_parts) { global $delimiter; if(!isset($delimiter)) sqgetGlobalVar('delimiter', $delimiter, SQ_SESSION); $parts = explode($delimiter, $mbox, 3); if($parts[0] == 'user') { $return_parts['username'] = $parts[1]; $return_parts['foldername'] = $parts[2]; return true; } return false; } /** * Check if given mailbox is a folder that does not belong to a user, but is a * global shared folder. * * @param string $mbox * @return boolean */ function useracl_is_shared_folder($mbox) { global $delimiter; $parts = explode($delimiter, $mbox, 2); if($parts[0] != 'user' && strtolower($parts[0]) != 'inbox') { return true; } return false; }