<?php
/***************************************************************************
 *  Copyright (C) 2003-2014 Polytechnique.org                              *
 *  http://opensource.polytechnique.org/                                   *
 *                                                                         *
 *  This program is free software; you can redistribute it and/or modify   *
 *  it under the terms of the GNU General Public License as published by   *
 *  the Free Software Foundation; either version 2 of the License, or      *
 *  (at your option) any later version.                                    *
 *                                                                         *
 *  This program is distributed in the hope that it will be useful,        *
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of         *
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the          *
 *  GNU General Public License for more details.                           *
 *                                                                         *
 *  You should have received a copy of the GNU General Public License      *
 *  along with this program; if not, write to the Free Software            *
 *  Foundation, Inc.,                                                      *
 *  59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                *
 ***************************************************************************/

// {{{ abstract class UserFilterCondition
/** This class describe objects which filter users based
 *      on various parameters.
 * The parameters of the filter must be given to the constructor.
 * The buildCondition function is called by UserFilter when
 *     actually building the query. That function must call
 *     $uf->addWheteverFilter so that the UserFilter makes
 *     adequate joins. It must return the 'WHERE' condition to use
 *     with the filter.
 */
abstract class UserFilterCondition implements PlFilterCondition
{
    const OP_EQUALS     = '=';
    const OP_GREATER    = '>';
    const OP_NOTGREATER = '<=';
    const OP_LESSER     = '<';
    const OP_NOTLESSER  = '>=';
    const OP_NULL       = 'null';
    const OP_NOTNULL    = 'not null';
    const OP_CONTAINS   = 'contains';
    const OP_PREFIX     = 'prefix';
    const OP_SUFFIX     = 'suffix';

    protected function buildExport($type)
    {
        $export = array('type' => $type);
        return $export;
    }

    public function export()
    {
        throw new Exception("This class is not exportable");
    }

    public static function comparisonFromXDBWildcard($wildcard)
    {
        switch ($wildcard) {
          case XDB::WILDCARD_EXACT:
            return self::OP_EQUALS;
          case XDB::WILDCARD_PREFIX:
            return self::OP_PREFIX;
          case XDB::WILDCARD_SUFFIX:
            return self::OP_SUFFIX;
          case XDB::WILDCARD_CONTAINS:
            return self::OP_CONTAINS;
        }
        throw new Exception("Unknown wildcard mode: $wildcard");
    }

    public static function xdbWildcardFromComparison($comparison)
    {
        if (!self::isStringComparison($comparison)) {
            throw new Exception("Unknown string comparison: $comparison");
        }
        switch ($comparison) {
          case self::OP_EQUALS:
            return XDB::WILDCARD_EXACT;
          case self::OP_PREFIX:
            return XDB::WILDCARD_PREFIX;
          case self::OP_SUFFIX:
            return XDB::WILDCARD_SUFFIX;
          case self::OP_CONTAINS:
            return XDB::WILDCARD_CONTAINS;
        }
    }

    private static function isNumericComparison($comparison)
    {
        return $comparison == self::OP_EQUALS
            || $comparison == self::OP_GREATER
            || $comparison == self::OP_NOTGREATER
            || $comparison == self::OP_LESSER
            || $comparison == self::OP_NOTLESSER;
    }

    private static function isStringComparison($comparison)
    {
        return $comparison == self::OP_EQUALS
            || $comparison == self::OP_CONTAINS
            || $comparison == self::OP_PREFIX
            || $comparison == self::OP_SUFFIX;
    }

    public static function fromExport(array $export)
    {
        $export = new PlDict($export);
        if (!$export->has('type')) {
            throw new Exception("Missing type in export");
        }
        $type = $export->s('type');
        $cond = null;
        switch ($type) {
          case 'and':
          case 'or':
          case 'not':
          case 'true':
          case 'false':
            $class = 'pfc_' . $type;
            $cond = new $class();
            break;

          case 'host':
            if ($export->has('ip')) {
                $cond = new UFC_Ip($export->s('ip'));
            }
            break;

          case 'comment':
            if ($export->has('text') && $export->s('comparison') == self::OP_CONTAINS) {
                $cond = new UFC_Comment($export->s('text'));
            }
            break;

          case 'promo':
            if ($export->has('promo') && self::isNumericComparison($export->s('comparison'))) {
                $cond = new UFC_Promo($export->s('comparison'),
                                      $export->s('grade', UserFilter::DISPLAY),
                                      $export->s('promo'));
            }
            break;

          case 'lastname':
          case 'name':
          case 'firstname':
          case 'nickname':
          case 'pseudonym':
            if ($export->has('text')) {
                $flag = self::xdbWildcardFromComparison($export->s('comparison'));
                if ($export->b('search_in_variants')) {
                    $flag |= UFC_Name::VARIANTS;
                }
                if ($export->b('search_in_particle')) {
                    $flag |= UFC_Name::PARTICLE;
                }
                $cond = new UFC_Name($type, $export->s('text'), $flag);
            }
            break;

          case 'account_type':
          case 'account_perm':
          case 'hrpid':
          case 'hruid':
            $values = $export->v('values', array());
            $class = 'ufc_' . str_replace('_', '', $type);
            $cond = new $class($values);
            break;

          case 'school_id':
            $values = $export->v('values', array());
            $school_type = $export->s('school_type');
            $cond = new UFC_SchoolId($school_type, $values);
            break;

          case 'has_profile':
          case 'has_email_redirect':
          case 'has_valid_email':
            $class = 'ufc_' . str_replace('_', '', $type);
            $cond = new $class();
            break;

          default:
            throw new Exception("Unknown condition type: $type");
        }
        if (is_null($cond)) {
            throw new Exception("Unsupported $type definition");
        }
        if ($cond instanceof PFC_NChildren) {
            $children = $export->v('children', array());
            foreach ($children as $child) {
                $cond->addChild(self::fromExport($child));
            }
        } else if ($cond instanceof PFC_OneChild) {
            if ($export->has('child')) {
                $cond->setChild(self::fromExport($export->v('child')));
            }
        }
        return $cond;
    }
}
// }}}
// {{{ class UFC_HasProfile
/** Filters users who have a profile
 */
class UFC_HasProfile extends UserFilterCondition
{
    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        return '$PID IS NOT NULL';
    }

    public function export()
    {
        return $this->buildExport('has_profile');
    }
}
// }}}
// {{{ class UFC_AccountType
/** Filters users who have one of the given account types
 */
class UFC_AccountType extends UserFilterCondition
{
    private $types;

    public function __construct()
    {
        $this->types = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireAccounts();
        return XDB::format('a.type IN {?}', $this->types);
    }

    public function export()
    {
        $export = $this->buildExport('account_type');
        $export['values'] = $this->types;
        return $export;
    }
}
// }}}
// {{{ class UFC_AccountPerm
/** Filters users who have one of the given permissions
 */
class UFC_AccountPerm extends UserFilterCondition
{
    private $perms;

    public function __construct()
    {
        $this->perms = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requirePerms();
        $conds = array();
        foreach ($this->perms as $perm) {
            $conds[] = XDB::format('FIND_IN_SET({?}, IF(a.user_perms IS NULL, at.perms,
                                                        CONCAT(at.perms, \',\', a.user_perms)))',
                                   $perm);
        }
        if (empty($conds)) {
            return self::COND_TRUE;
        } else {
            return implode(' OR ', $conds);
        }
    }

    public function export()
    {
        $export = $this->buildExport('account_perm');
        $export['values'] = $this->perms;
        return $export;
    }
}
// }}}
// {{{ class UFC_Hruid
/** Filters users based on their hruid
 * @param $val Either an hruid, or a list of those
 */
class UFC_Hruid extends UserFilterCondition
{
    private $hruids;

    public function __construct()
    {
        $this->hruids = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireAccounts();
        return XDB::format('a.hruid IN {?}', $this->hruids);
    }

    public function export()
    {
        $export = $this->buildExport('hruid');
        $export['values'] = $this->hruids;
        return $export;
    }
}
// }}}
// {{{ class UFC_Hrpid
/** Filters users based on the hrpid of their profiles
 * @param $val Either an hrpid, or a list of those
 */
class UFC_Hrpid extends UserFilterCondition
{
    private $hrpids;

    public function __construct()
    {
        $this->hrpids = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        return XDB::format('p.hrpid IN {?}', $this->hrpids);
    }

    public function export()
    {
        $export = $this->buildExport('hrpid');
        $export['values'] = $this->hrpids;
        return $export;
    }
}
// }}}
// {{{ class UFC_HasEmailRedirect
/** Filters users, keeping only those with a valid email redirection (only X.org accounts).
 */
class UFC_HasEmailRedirect extends UserFilterCondition
{
    public function buildCondition(PlFilter $uf)
    {
        $sub_redirect = $uf->addActiveEmailRedirectFilter();
        return 'rf.redirect IS NOT NULL';
    }

    public function export()
    {
        $export = $this->buildExport('has_email_redirect');
        return $export;
    }
}
// }}}
// {{{ class UFC_HasValidEmail
/** Filters users, keeping only those with a valid email address (all accounts).
 */
class UFC_HasValidEmail extends UserFilterCondition
{
    public function buildCondition(PlFilter $uf)
    {
        $sub_redirect = $uf->addEmailRedirectFilter();
        $uf->requireAccounts();
        return 'ra' . $sub_redirect . '.flags = \'active\' OR a.email IS NOT NULL';
    }

    public function export()
    {
        $export = $this->buildExport('has_valid_email');
        return $export;
    }
}
// }}}
// {{{ class UFC_Ip
/** Filters users based on one of their last IPs
 * @param $ip IP from which connection are checked
 */
class UFC_Ip extends UserFilterCondition
{
    private $ip;

    public function __construct($ip)
    {
        $this->ip = $ip;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addLoggerFilter();
        $ip = ip_to_uint($this->ip);
        return XDB::format($sub . '.ip = {?} OR ' . $sub . '.forward_ip = {?}', $ip, $ip);
    }

    public function export()
    {
        $export = $this->buildExport('host');
        $export['ip'] = $this->ip;
        return $export;
    }
}
// }}}
// {{{ class UFC_Comment
class UFC_Comment extends UserFilterCondition
{
    private $text;

    public function __construct($text)
    {
        $this->text = $text;
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        return $uf->getVisibilityConditionForField('p.freetext_pub') . ' AND p.freetext ' . XDB::formatWildcards(XDB::WILDCARD_CONTAINS, $this->text);
    }

    public function export()
    {
        $export = $this->buildExport('comment');
        $export['comparison'] = self::OP_CONTAINS;
        $export['text'] = $this->text;
        return $export;
    }
}
// }}}
// {{{ class UFC_Promo
/** Filters users based on promotion
 * @param $comparison Comparison operator (>, =, ...)
 * @param $grade Formation on which to restrict, UserFilter::DISPLAY for "any formation"
 * @param $promo Promotion on which the filter is based
 */
class UFC_Promo extends UserFilterCondition
{

    private $grade;
    private $promo;
    private $comparison;

    public function __construct($comparison, $grade, $promo)
    {
        $this->grade = $grade;
        $this->comparison = $comparison;
        $this->promo = $promo;
        if ($this->grade != UserFilter::DISPLAY) {
            UserFilter::assertGrade($this->grade);
        }
        if ($this->grade == UserFilter::DISPLAY && $this->comparison != '=') {
            // XXX: we might try to guess the grade from the first char of the promo and forbid only '<= 2004', but allow '<= X2004'
            Platal::page()->killError("Il n'est pas possible d'appliquer la comparaison '" . $this->comparison . "' aux promotions sans spécifier de formation (X/M/D)");
        }
    }

    public function buildCondition(PlFilter $uf)
    {
        if ($this->grade == UserFilter::DISPLAY) {
            $sub = $uf->addDisplayFilter();
            return XDB::format('pd' . $sub . '.promo ' . $this->comparison . ' {?}', $this->promo);
        } else {
            $sub = $uf->addEducationFilter(true, $this->grade);
            $field = 'pe' . $sub . '.' . UserFilter::promoYear($this->grade);
            return $field . ' IS NOT NULL AND ' . $field . ' ' . $this->comparison . ' ' . XDB::format('{?}', $this->promo);
        }
    }

    public function export()
    {
        $export = $this->buildExport('promo');
        $export['comparison'] = $this->comparison;
        if ($this->grade != UserFilter::DISPLAY) {
            $export['grade'] = $this->grade;
        }
        $export['promo'] = $this->promo;
        return $export;
    }
}
// }}}
// {{{ class UFC_SchoolId
/** Filters users based on their shoold identifier
 * @param type Parameter type (Xorg, AX, School)
 * @param value Array of school ids
 */
class UFC_SchoolId extends UserFilterCondition
{
    const AX     = 'ax';
    const Xorg   = 'xorg';
    const School = 'school';

    private $type;
    private $id;

    static public function assertType($type)
    {
        if ($type != self::AX && $type != self::Xorg && $type != self::School) {
            Platal::page()->killError("Type de matricule invalide: $type");
        }
    }

    /** Construct a UFC_SchoolId
     * The first argument is the type, all following arguments can be either ids
     * or arrays of ids to use:
     * $ufc = new UFC_SchoolId(UFC_SchoolId::AX, $id1, $id2, array($id3, $id4));
     */
    public function __construct($type)
    {
        $this->type = $type;
        $ids = func_get_args();
        array_shift($ids);
        $this->ids   = pl_flatten($ids);
        self::assertType($type);
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        $ids = $this->ids;
        $type = $this->type;
        if ($type == self::School) {
            $type = self::Xorg;
            $ids  = array_map(array('Profile', 'getXorgId'), $ids);
        }
        return XDB::format('p.' . $type . '_id IN {?}', $ids);
    }

    public function export()
    {
        $export = $this->buildExport('school_id');
        $export['school_type'] = $this->type;
        $export['values'] = $this->ids;
        return $export;
    }
}
// }}}
// {{{ class UFC_EducationSchool
/** Filters users by formation
 * @param $val The formation to search (either ID or array of IDs)
 */
class UFC_EducationSchool extends UserFilterCondition
{
    private $val;

    public function __construct()
    {
        $this->val = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addEducationFilter();
        return XDB::format('pe' . $sub . '.eduid IN {?}', $this->val);
    }
}
// }}}
// {{{ class UFC_EducationDegree
class UFC_EducationDegree extends UserFilterCondition
{
    private $diploma;

    public function __construct()
    {
        $this->diploma = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addEducationFilter();
        return XDB::format('pe' . $sub . '.degreeid IN {?}', $this->diploma);
    }
}
// }}}
// {{{ class UFC_EducationField
class UFC_EducationField extends UserFilterCondition
{
    private $val;

    public function __construct()
    {
        $this->val = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addEducationFilter();
        return XDB::format('pe' . $sub . '.fieldid IN {?}', $this->val);
    }
}
// }}}
// {{{ class UFC_NameInitial
/** Filters users based on sort_name
 * @param $initial Initial on which to filter
 */
class UFC_NameInitial extends UserFilterCondition
{
    private $initial;

    public function __construct($initial)
    {
        $this->initial = $initial;
    }

    public function buildCondition(PlFilter $uf)
    {
        $table = 'sort_name';
        if ($uf->accountsRequired()) {
            $table = Profile::getAccountEquivalentName($table);
            $sub = 'a';
        } else {
            $uf->addDisplayFilter();
            $sub = 'pd';
        }
        return 'SUBSTRING(' . $sub . '.' . $table . ', 1, 1) ' . XDB::formatWildcards(XDB::WILDCARD_PREFIX, $this->initial);
    }

    public function export()
    {
        $export = $this->buildExport($this->initial);
        return $export;
    }
}
// }}}
// {{{ class UFC_NameTokens
/** Selects users based on tokens in their name (for quicksearch)
 * @param $tokens An array of tokens to search
 * @param $flags Flags the tokens must have (e.g 'public' for public search)
 * @param $soundex (bool) Whether those tokens are fulltext or soundex
 */
class UFC_NameTokens extends UserFilterCondition
{
    /* Flags */
    const FLAG_PUBLIC = 'public';

    private $tokens;
    private $flags;
    private $soundex;
    private $exact;
    private $general_type;

    public function __construct($tokens, $flags = array(), $soundex = false, $exact = false, $general_type = '')
    {
        if (is_array($tokens)) {
            $this->tokens = $tokens;
        } else {
            $this->tokens = array($tokens);
        }
        if (is_array($flags)) {
            $this->flags = $flags;
        } else {
            $this->flags = array($flags);
        }
        $this->soundex = $soundex;
        $this->exact = $exact;
        $this->general_type = $general_type;
    }

    public function buildCondition(PlFilter $uf)
    {
        $conds = array();
        foreach ($this->tokens as $i => $token) {
            $sub = $uf->addNameTokensFilter($token);
            if ($this->soundex) {
                $c = XDB::format($sub . '.soundex = {?}', soundex_fr($token));
            } else if ($this->exact) {
                $c = XDB::format($sub . '.token = {?}', $token);
            } else {
                $c = $sub . '.token ' . XDB::formatWildcards(XDB::WILDCARD_PREFIX, $token);
            }
            if ($this->flags != null) {
                $c .= XDB::format(' AND ' . $sub . '.flags IN {?}', $this->flags);
            }
            if ($this->general_type) {
                $c .= XDB::format(' AND ' . $sub . '.general_type = {?}', $this->general_type);
            }
            $c .= ' AND (' . $uf->getVisibilityConditionAbsolute(Visibility::EXPORT_PRIVATE) . ' OR ' . $sub . '.general_type != \'nickname\')';
            $conds[] = $c;
        }

        return implode(' AND ', $conds);
    }
}
// }}}
// {{{ class UFC_Nationality
class UFC_Nationality extends UserFilterCondition
{
    private $val;

    public function __construct()
    {
        $this->val = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        $nat = XDB::formatArray($this->val);
        $conds = array(
            'p.nationality1 IN ' . $nat,
            'p.nationality2 IN ' . $nat,
            'p.nationality3 IN ' . $nat,
        );
        return implode(' OR ', $conds);
    }
}
// }}}
// {{{ class UFC_Dead
/** Filters users based on death date
 * @param $comparison Comparison operator
 * @param $date Date to which death date should be compared (DateTime object, string or timestamp)
 */
class UFC_Dead extends UserFilterCondition
{
    private $comparison;
    private $date;

    public function __construct($comparison = null, $date = null)
    {
        $this->comparison = $comparison;
        $this->date = make_datetime($date);
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        $str = 'p.deathdate IS NOT NULL';
        if (!is_null($this->comparison)) {
            $str .= ' AND p.deathdate ' . $this->comparison . ' ' . XDB::format('{?}', $this->date->format('Y-m-d'));
        }
        return $str;
    }
}
// }}}
// {{{ class UFC_Registered
/** Filters users based on registration state
 * @param $active Whether we want to use only "active" users (i.e with a valid redirection)
 * @param $comparison Comparison operator
 * @param $date Date to which users registration date should be compared
 */
class UFC_Registered extends UserFilterCondition
{
    private $active;
    private $comparison;
    private $date;

    public function __construct($active = false, $comparison = null, $date = null)
    {
        $this->active = $active;
        $this->comparison = $comparison;
        $this->date = make_datetime($date);
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireAccounts();
        if ($this->active) {
            $date = '$UID IS NOT NULL AND a.state = \'active\'';
        } else {
            $date = '$UID IS NOT NULL AND a.state != \'pending\'';
        }
        if (!is_null($this->comparison)) {
            $date .= ' AND a.registration_date != \'0000-00-00 00:00:00\' AND a.registration_date ' . $this->comparison . ' ' . XDB::format('{?}', $this->date->format('Y-m-d'));
        }
        return $date;
    }
}
// }}}
// {{{ class UFC_ProfileUpdated
/** Filters users based on profile update date
 * @param $comparison Comparison operator
 * @param $date Date to which profile update date must be compared
 */
class UFC_ProfileUpdated extends UserFilterCondition
{
    private $comparison;
    private $date;

    public function __construct($comparison = null, $date = null)
    {
        $this->comparison = $comparison;
        $this->date = $date;
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        return 'p.last_change ' . $this->comparison . XDB::format(' {?}', date('Y-m-d H:i:s', $this->date));
    }
}
// }}}
// {{{ class UFC_Birthday
/** Filters users based on next birthday date
 * @param $comparison Comparison operator
 * @param $date Date to which users next birthday date should be compared
 */
class UFC_Birthday extends UserFilterCondition
{
    private $comparison;
    private $date;

    public function __construct($comparison = null, $date = null)
    {
        $this->comparison = $comparison;
        $this->date = $date;
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        return 'p.next_birthday ' . $this->comparison . XDB::format(' {?}', date('Y-m-d', $this->date));
    }
}
// }}}
// {{{ class UFC_Sex
/** Filters users based on sex
 * @parm $sex One of User::GENDER_MALE or User::GENDER_FEMALE, for selecting users
 */
class UFC_Sex extends UserFilterCondition
{
    private $sex;
    public function __construct($sex)
    {
        $this->sex = $sex;
    }

    public function buildCondition(PlFilter $uf)
    {
        if ($this->sex != User::GENDER_MALE && $this->sex != User::GENDER_FEMALE) {
            return self::COND_FALSE;
        } else {
            $uf->requireProfiles();
            return XDB::format('p.sex = {?}', $this->sex == User::GENDER_FEMALE ? 'female' : 'male');
        }
    }
}
// }}}
// {{{ class UFC_NLSubscribed
/** Filters users based on NL subscription
 * @param $nlid NL whose subscribers we are selecting
 * @param $issue Select only subscribers who have not yet received that issue
 */
class UFC_NLSubscribed extends UserFilterCondition
{
    private $nlid;
    private $issue_id;
    public function __construct($nlid, $issue_id = null)
    {
        $this->nlid = $nlid;
        $this->issue_id = $issue_id;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addNewsLetterFilter($this->nlid);
        $cond = $sub . '.nlid IS NOT NULL';
        if (!is_null($this->issue_id)) {
            $cond = XDB::format($cond . ' AND ( ' . $sub . '.last IS NULL OR ' . $sub . '.last < {?})', $this->issue_id);
        }
        return $cond;
    }
}
// }}}
// {{{ class UFC_Group
/** Filters users based on group membership
 * @param $group Group whose members we are selecting
 * @param $anim Whether to restrict selection to animators of that group
 */
class UFC_Group extends UserFilterCondition
{
    const BOTH = 0;
    const NOTIFIED = 1;
    const UNNOTIFIED = 2;

    private $group;
    private $anim;
    private $notified;

    public function __construct($group, $anim = false, $notified = self::BOTH)
    {
        $this->group = $group;
        $this->anim = $anim;
        $this->notified = $notified;
    }

    public function buildCondition(PlFilter $uf)
    {
        // Groups are only visible for users with perm 'groups'.
        if (!S::user()->checkPerms(User::PERM_GROUPS)) {
            return self::COND_FALSE;
        }
        $sub = $uf->addGroupFilter($this->group);
        $where = 'gpm' . $sub . '.perms IS NOT NULL';
        if ($this->anim) {
            $where .= ' AND gpm' . $sub . '.perms = \'admin\'';
        }
        if ($this->notified != self::BOTH) {
            $where .= ' AND ' . ($this->notified == self::UNNOTIFIED ? 'NOT ' : '')
                   . "FIND_IN_SET('notify', gpm" . $sub . '.flags)';
        }
        return $where;
    }
}
// }}}
// {{{ class UFC_GroupFormerMember
/** Filters users based on group former membership
 * @param $group Group whose former members we are selecting
 */
class UFC_GroupFormerMember extends UserFilterCondition
{
    private $group;

    public function __construct($group)
    {
        $this->group = $group;
    }

    public function buildCondition(PlFilter $uf)
    {
        // Groups are only visible for users with perm 'groups'.
        if (!S::user()->checkPerms(User::PERM_GROUPS)) {
            return self::COND_FALSE;
        }
        $sub = $uf->addGroupFormerMemberFilter();
        return XDB::format('gpfm' . $sub . '.asso_id = {?}', $this->group);
    }
}
// }}}
// {{{ class UFC_Binet
/** Selects users based on their belonging to a given (list of) binet
 * @param $binet either a binet_id or an array of binet_ids
 */
class UFC_Binet extends UserFilterCondition
{
    private $val;

    public function __construct()
    {
        $this->val = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addBinetsFilter();
        // Binets are private.
        return XDB::format($uf->getVisibilityConditionAbsolute(Visibility::EXPORT_PRIVATE) . ' AND ' . $sub . '.binet_id IN {?}', $this->val);
    }
}
// }}}
// {{{ class UFC_Section
/** Selects users based on section
 * @param $section ID of the section
 */
class UFC_Section extends UserFilterCondition
{
    private $section;

    public function __construct()
    {
        $this->section = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        // Sections are private.
        $uf->requireProfiles();
        return XDB::format($uf->getVisibilityConditionAbsolute(Visibility::EXPORT_PRIVATE) . ' AND p.section IN {?}', $this->section);
    }
}
// }}}
// {{{ class UFC_Email
/** Filters users based on an email or a list of emails
 * @param $emails List of emails whose owner must be selected
 */
class UFC_Email extends UserFilterCondition
{
    private $emails;
    public function __construct()
    {
        $this->emails = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $foreign = array();
        $local   = array();
        $cond    = array();

        if (count($this->emails) == 0) {
            return PlFilterCondition::COND_FALSE;
        }

        foreach ($this->emails as $entry) {
            if (User::isForeignEmailAddress($entry)) {
                $foreign[] = $entry;
            } else {
                list($local_part, ) = explode('@', $entry);
                $local[] = $local_part;
            }
        }

        if (count($foreign) > 0) {
            $sub = $uf->addEmailRedirectFilter($foreign);
            $cond[] = XDB::format('ra' . $sub . '.redirect IS NOT NULL OR ra' . $sub . '.redirect IN {?} OR a.email IN {?}', $foreign, $foreign);
        }
        if (count($local) > 0) {
            $sub = $uf->addAliasFilter($local);
            $cond[] = 'sa' . $sub . '.email IS NOT NULL';
        }
        return '(' . implode(') OR (', $cond) . ')';
    }
}
// }}}
// {{{ class UFC_Address
abstract class UFC_Address extends UserFilterCondition
{
    /** Valid address type
     */
    const TYPE_HOME     = 1;
    const TYPE_PRO      = 2;
    const TYPE_NON_HQ   = 3;
    const TYPE_HQ       = 4;
    const TYPE_ANY      = 7;

    /** Text for these types
     */
    protected static $typetexts = array(
        self::TYPE_HOME => 'home',
        self::TYPE_PRO  => 'pro',
        self::TYPE_HQ   => 'hq',
    );

    protected $type;

    /** Flags for addresses
     */
    const FLAG_NONE      = 0x0000;
    const FLAG_CURRENT   = 0x0001;
    const FLAG_TEMP      = 0x0002;
    const FLAG_SECOND    = 0x0004;
    const FLAG_MAIL      = 0x0008;
    const FLAG_CEDEX     = 0x0010;
    const FLAG_BEST_MAIL = 0x0020;

    // Binary OR of those flags
    const FLAG_ANY     = 0x003F;

    /** Text of these flags
     *  "Best mail" is a denormalized flag, hence the dn_ prefix
     */
    protected static $flagtexts = array(
        self::FLAG_CURRENT   => 'current',
        self::FLAG_TEMP      => 'temporary',
        self::FLAG_SECOND    => 'secondary',
        self::FLAG_MAIL      => 'mail',
        self::FLAG_CEDEX     => 'cedex',
        self::FLAG_BEST_MAIL => 'dn_best_mail',
    );

    protected $flags;

    public function __construct($type = null, $flags = null)
    {
        $this->type  = $type;
        $this->flags = $flags;
    }

    protected function initConds($sub, $vis_cond)
    {
        $conds = array($vis_cond);

        $types = array();
        foreach (self::$typetexts as $flag => $type) {
            if ($flag & $this->type) {
                $types[] = $type;
            }
        }
        if (count($types)) {
            $conds[] = XDB::format('pa' . $sub . '.type IN {?}', $types);
        }

        if ($this->flags != self::FLAG_ANY) {
            foreach(self::$flagtexts as $flag => $text) {
                if ($flag & $this->flags) {
                    $conds[] = 'FIND_IN_SET(' . XDB::format('{?}', $text) . ', pa' . $sub . '.flags)';
                }
            }
        }
        return $conds;
    }

}
// }}}
// {{{ class UFC_AddressField
/** Filters users based on their address,
 * @param $val Either a code for one of the fields, or an array of such codes
 * @param $fieldtype The type of field to look for
 * @param $type Filter on address type
 * @param $flags Filter on address flags
 */
class UFC_AddressComponent extends UFC_Address
{
    static $components = array('postal_code', 'locality', 'administrative_area_level_3', 'administrative_area_level_2', 'administrative_area_level_1', 'country');

    /** Data of the filter
     */
    private $val;
    private $fieldtype;
    private $exact;

    public function __construct($val, $fieldtype, $type = null, $flags = self::FLAG_ANY)
    {
        if (!in_array($fieldtype, self::$components)) {
            Platal::page()->killError('Invalid address field type: ' . $this->fieldtype);
        }

        parent::__construct($type, $flags);
        if (!is_array($val)) {
            $val = array($val);
        }
        $this->val       = $val;
        $this->fieldtype = $fieldtype;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addAddressFilter($this->fieldtype);
        $conds = $this->initConds($sub, $uf->getVisibilityConditionForField('pa' . $sub . '.pub'));
        $conds[] = XDB::format('pace' . $sub . '.id IN {?}', $this->val);

        return implode(' AND ', $conds);
    }
}
// }}}
// {{{ class UFC_Corps
/** Filters users based on the corps they belong to
 * @param $corps Corps we are looking for (abbreviation)
 * @param $type Whether we search for original or current corps
 */
class UFC_Corps extends UserFilterCondition
{
    const CURRENT   = 1;
    const ORIGIN    = 2;

    private $corps;
    private $id;
    private $type;

    public function __construct($corps, $id = null, $type = self::CURRENT)
    {
        $this->corps = $corps;
        $this->id    = $id;
        $this->type  = $type;
    }

    public function buildCondition(PlFilter $uf)
    {
        /** Tables shortcuts:
         * pc for profile_corps,
         * pceo for profile_corps_enum - orginal
         * pcec for profile_corps_enum - current
         */
        $sub = $uf->addCorpsFilter($this->type);
        if (is_null($this->id)) {
            $cond = $sub . '.abbreviation = ' . $this->corps;
        } else {
            $cond = $sub . '.id = ' . $this->id;
        }
        // XXX(x2006barrois): find a way to get rid of that hardcoded
        // reference to 'pc'.
        $cond .= ' AND ' . $uf->getVisibilityConditionForField('pc.corps_pub');
        return $cond;
    }
}
// }}}
// {{{ class UFC_Corps_Rank
/** Filters users based on their rank in the corps
 * @param $rank Rank we are looking for (abbreviation)
 */
class UFC_Corps_Rank extends UserFilterCondition
{
    private $rank;
    private $id;

    public function __construct($rank, $id = null)
    {
        $this->rank = $rank;
        $this->id   = $id;
    }

    public function buildCondition(PlFilter $uf)
    {
        /** Tables shortcuts:
         * pc for profile_corps
         * pcr for profile_corps_rank
         */
        $sub = $uf->addCorpsRankFilter();
        if (is_null($this->id)) {
            $cond = $sub . '.abbreviation = ' . $this->rank;
        } else {
            $cond = $sub . '.id = ' . $this->id;
        }
        // XXX(x2006barrois): find a way to get rid of that hardcoded
        // reference to 'pc'.
        $cond .= ' AND ' . $uf->getVisibilityConditionForField('pc.corps_pub');
        return $cond;
    }
}
// }}}
// {{{ class UFC_Job_Company
/** Filters users based on the company they belong to
 * @param $type The field being searched (self::JOBID, self::JOBNAME or self::JOBACRONYM)
 * @param $value The searched value
 */
class UFC_Job_Company extends UserFilterCondition
{
    const JOBID = 'id';
    const JOBNAME = 'name';
    const JOBACRONYM = 'acronym';

    private $type;
    private $value;

    public function __construct($type, $value)
    {
        $this->assertType($type);
        $this->type = $type;
        $this->value = $value;
    }

    private function assertType($type)
    {
        if ($type != self::JOBID && $type != self::JOBNAME && $type != self::JOBACRONYM) {
            Platal::page()->killError("Type de recherche non valide.");
        }
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addJobCompanyFilter();
        $cond  = $sub . '.' . $this->type . XDB::formatWildcards(XDB::WILDCARD_CONTAINS, $this->value);
        $jsub = $uf->addJobFilter();
        $cond .= ' AND ' . $uf->getVisibilityConditionForField($jsub . '.pub');
        return $cond;
    }
}
// }}}
// {{{ class UFC_Job_Terms
/** Filters users based on the job terms they assigned to one of their
 * jobs.
 * @param $val The ID of the job term, or an array of such IDs
 */
class UFC_Job_Terms extends UserFilterCondition
{
    private $val;

    public function __construct($val)
    {
        if (!is_array($val)) {
            $val = array($val);
        }
        $this->val = $val;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addJobTermsFilter(count($this->val));
        $conditions = array();
        foreach ($this->val as $i => $jtid) {
            $conditions[] = $sub[$i] . '.jtid_1 = ' . XDB::escape($jtid);
        }
        $jsub = $uf->addJobFilter();
        $conditions[] = $uf->getVisibilityConditionForField($jsub . '.pub');
        return implode(' AND ', $conditions);
    }
}
// }}}
// {{{ class UFC_Job_Description
/** Filters users based on their job description
 * @param $description The text being searched for
 * @param $fields The fields to search for (CV, user-defined)
 */
class UFC_Job_Description extends UserFilterCondition
{

    private $description;
    private $fields;

    public function __construct($description, $fields)
    {
        $this->fields = $fields;
        $this->description = $description;
    }

    public function buildCondition(PlFilter $uf)
    {
        $conds = array();

        $jsub = $uf->addJobFilter();
        if ($this->fields & UserFilter::JOB_USERDEFINED) {
            $conds[] = $jsub . '.description ' . XDB::formatWildcards(XDB::WILDCARD_CONTAINS, $this->description);
        }
        if ($this->fields & UserFilter::JOB_CV) {
            $uf->requireProfiles();
            // CV is private
            $conds[] = '( ' . $uf->getVisibilityConditionAbsolute(Visibility::EXPORT_PRIVATE) . ' AND p.cv ' . XDB::formatWildcards(XDB::WILDCARD_CONTAINS, $this->description) . ')';
        }
        if (count($conds) == 0) {
            return self::COND_TRUE;
        }
        return $uf->getVisibilityConditionForField($jsub . '.pub') . ' AND ( ' . implode(' OR ', $conds) . ' )';
    }
}
// }}}
// {{{ class UFC_Networking
/** Filters users based on network identity (IRC, ...)
 * @param $type Type of network (-1 for any)
 * @param $value Value to search
 */
class UFC_Networking extends UserFilterCondition
{
    private $type;
    private $value;

    public function __construct($type, $value)
    {
        $this->type = $type;
        $this->value = $value;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addNetworkingFilter();
        $conds = array();
        $conds[] = $uf->getVisibilityConditionForField($sub . '.pub');
        $conds[] = $sub . '.address ' . XDB::formatWildcards(XDB::WILDCARD_CONTAINS, $this->value);
        if ($this->type != -1) {
            $conds[] = $sub . '.nwid = ' . XDB::format('{?}', $this->type);
        }
        return implode(' AND ', $conds);
    }
}
// }}}
// {{{ class UFC_Phone
/** Filters users based on their phone number
 * @param $num_type Type of number (pro/user/home)
 * @param $phone_type Type of phone (fixed/mobile/fax)
 * @param $number Phone number
 */
class UFC_Phone extends UserFilterCondition
{
    const NUM_PRO   = 'pro';
    const NUM_USER  = 'user';
    const NUM_HOME  = 'address';
    const NUM_ANY   = 'any';

    const PHONE_FIXED   = 'fixed';
    const PHONE_MOBILE  = 'mobile';
    const PHONE_FAX     = 'fax';
    const PHONE_ANY     = 'any';

    private $num_type;
    private $phone_type;
    private $number;

    public function __construct($number, $num_type = self::NUM_ANY, $phone_type = self::PHONE_ANY)
    {
        $phone = new Phone(array('display' => $number));
        $phone->format();
        $this->number = $phone->search;
        $this->num_type = $num_type;
        $this->phone_type = $phone_type;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addPhoneFilter();
        $conds = array();

        $conds[] = $uf->getVisibilityConditionForField($sub . '.pub');

        $conds[] = $sub . '.search_tel = ' . XDB::format('{?}', $this->number);
        if ($this->num_type != self::NUM_ANY) {
            $conds[] = $sub . '.link_type = ' . XDB::format('{?}', $this->num_type);
        }
        if ($this->phone_type != self::PHONE_ANY) {
            $conds[] = $sub . '.tel_type = ' . XDB::format('{?}', $this->phone_type);
        }
        return implode(' AND ', $conds);
    }
}
// }}}
// {{{ class UFC_Medal
/** Filters users based on their medals
 * @param $medal ID of the medal
 * @param $grade Grade of the medal (null for 'any')
 */
class UFC_Medal extends UserFilterCondition
{
    private $medal;
    private $grade;

    public function __construct($medal, $grade = null)
    {
        $this->medal = $medal;
        $this->grade = $grade;
    }

    public function buildCondition(PlFilter $uf)
    {
        $conds = array();

        // This will require profiles => table 'p' will be available.
        $sub = $uf->addMedalFilter();

        $conds[] = $uf->getVisibilityConditionForField('p.medals_pub');

        $conds[] = $sub . '.mid = ' . XDB::format('{?}', $this->medal);
        if ($this->grade != null) {
            $conds[] = $sub . '.gid = ' . XDB::format('{?}', $this->grade);
        }
        return implode(' AND ', $conds);
    }
}
// }}}
// {{{ class UFC_Photo
/** Filters profiles with photo
 */
class UFC_Photo extends UserFilterCondition
{
    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addPhotoFilter();
        return $sub . '.attach IS NOT NULL AND ' . $uf->getVisibilityConditionForField($sub . '.pub');
    }
}
// }}}
// {{{ class UFC_Mentor
class UFC_Mentor extends UserFilterCondition
{
    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addMentorFilter(UserFilter::MENTOR);
        return $sub . '.expertise IS NOT NULL';
    }
}
// }}}
// {{{ class UFC_Mentor_Expertise
/** Filters users by mentoring expertise
 * @param $expertise Domain of expertise
 */
class UFC_Mentor_Expertise extends UserFilterCondition
{
    private $expertise;

    public function __construct($expertise)
    {
        $this->expertise = $expertise;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addMentorFilter(UserFilter::MENTOR_EXPERTISE);
        return $sub . '.expertise ' . XDB::formatWildcards(XDB::WILDCARD_CONTAINS, $this->expertise);
    }
}
// }}}
// {{{ class UFC_Mentor_Country
/** Filters users by mentoring country
 * @param $country Two-letters code of country being searched
 */
class UFC_Mentor_Country extends UserFilterCondition
{
    private $country;

    public function __construct()
    {
        $this->country = pl_flatten(func_get_args());
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addMentorFilter(UserFilter::MENTOR_COUNTRY);
        return $sub . '.country IN ' . XDB::format('{?}', $this->country);
    }
}
// }}}
// {{{ class UFC_Mentor_Terms
/** Filters users based on the job terms they used in mentoring.
 * @param $val The ID of the job term, or an array of such IDs
 */
class UFC_Mentor_Terms extends UserFilterCondition
{
    private $val;

    public function __construct($val)
    {
        $this->val = $val;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addMentorFilter(UserFilter::MENTOR_TERM);
        return $sub . '.jtid_1 = ' . XDB::escape($this->val);
    }
}
// }}}
// {{{ class UFC_UserRelated
/** Filters users based on a relation toward a user
 * @param $user User to which searched users are related
 */
abstract class UFC_UserRelated extends UserFilterCondition
{
    protected $user;
    public function __construct(PlUser $user)
    {
        $this->user =& $user;
    }
}
// }}}
// {{{ class UFC_DeltaTen
class UFC_DeltaTen extends UserFilterCondition
{
    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addDeltaTenFilter(UserFilter::DELTATEN);
        return $sub . '.message IS NOT NULL';
    }
}
// }}}
// {{{ class UFC_DeltaTen_Message
/** Filters users by deltaten message
 * @param $message Message for the DeltaTen program
 */
class UFC_DeltaTen_Message extends UserFilterCondition
{
    private $message;

    public function __construct($message)
    {
        $this->message = $message;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addDeltaTenFilter(UserFilter::DELTATEN_MESSAGE);
        return $sub . '.message ' . XDB::formatWildcards(XDB::WILDCARD_CONTAINS, $this->message);
    }
}
// }}}
// {{{ class UFC_Contact
/** Filters users who belong to selected user's contacts
 */
class UFC_Contact extends UFC_UserRelated
{
    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addContactFilter($this->user->id());
        return 'c' . $sub . '.contact IS NOT NULL';
    }
}
// }}}
// {{{ class UFC_WatchRegistration
/** Filters users being watched by selected user
 */
class UFC_WatchRegistration extends UFC_UserRelated
{
    public function buildCondition(PlFilter $uf)
    {
        if (!$this->user->watchType('registration')) {
            return PlFilterCondition::COND_FALSE;
        }
        $uids = $this->user->watchUsers();
        if (count($uids) == 0) {
            return PlFilterCondition::COND_FALSE;
        } else {
            return XDB::format('$UID IN {?}', $uids);
        }
    }
}
// }}}
// {{{ class UFC_WatchPromo
/** Filters users belonging to a promo watched by selected user
 * @param $user Selected user (the one watching promo)
 * @param $grade Formation the user is watching
 */
class UFC_WatchPromo extends UFC_UserRelated
{
    private $grade;
    public function __construct(PlUser $user, $grade = UserFilter::GRADE_ING)
    {
        parent::__construct($user);
        $this->grade = $grade;
    }

    public function buildCondition(PlFilter $uf)
    {
        $promos = $this->user->watchPromos();
        if (count($promos) == 0) {
            return PlFilterCondition::COND_FALSE;
        } else {
            $sube = $uf->addEducationFilter(true, $this->grade);
            $field = 'pe' . $sube . '.' . UserFilter::promoYear($this->grade);
            return XDB::format($field . ' IN {?}', $promos);
        }
    }
}
// }}}
// {{{ class UFC_WatchGroup
/** Filters users belonging to a group watched by selected user
 * @param $user Selected user (the one watching group)
 */
class UFC_WatchGroup extends UFC_UserRelated
{
    public function buildCondition(PlFilter $uf)
    {
        $groups = $this->user->watchGroups();
        if (count($groups) == 0) {
            return PlFilterCondition::COND_FALSE;
        }
        $conditions = array();
        foreach ($groups as $group) {
            $sub = $uf->addGroupFilter($group);
            $conditions[] = 'gpm' . $sub . '.perms IS NOT NULL';
        }
        return implode(' OR ', $conditions);
    }
}
// }}}
// {{{ class UFC_WatchContact
/** Filters users watched by selected user
 */
class UFC_WatchContact extends UFC_Contact
{
    public function buildCondition(PlFilter $uf)
    {
        if (!$this->user->watchContacts()) {
            return PlFilterCondition::COND_FALSE;
        }
        return parent::buildCondition($uf);
    }
}
// }}}
// {{{ class UFC_MarketingHash
/** Filters users using the hash generated
 * to send marketing emails to him.
 */
class UFC_MarketingHash extends UserFilterCondition
{
    private $hash;

    public function __construct($hash)
    {
        $this->hash = $hash;
    }

    public function buildCondition(PlFilter $uf)
    {
        $table = $uf->addMarketingHash();
        return XDB::format('rm.hash = {?}', $this->hash);
    }
}
// }}}
// {{{ class UFC_PartnerSharing
/** Filters users, keeping only those sharing data with a given partner.
 */
class UFC_PartnerSharing extends UserFilterCondition
{
    const PTA = 'pta';

    private $partner_id;

    public function __construct($partner_id)
    {
        $this->partner_id = $partner_id;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addPartnerSharingFilter($this->partner_id);
        return XDB::format("$sub.exposed_uid IS NOT NULL");
    }
}
// }}}
// {{{ class UFC_PartnerSharingEmail
/** Filters users, keeping only those allowing emails to be sent by
 * a given partner.
 */
class UFC_PartnerSharingEmail extends UserFilterCondition
{
    private $partner_id;

    public function __construct($partner_id)
    {
        $this->partner_id = $partner_id;
    }

    public function buildCondition(PlFilter $uf)
    {
        $sub = $uf->addPartnerSharingFilter($this->partner_id);
        return XDB::format("$sub.allow_email IN ('digest', 'direct')");
    }
}
// }}}
// {{{ class UFC_PartnerSharingID
/** Filters users according to a list of partner-known IDs
 */
class UFC_PartnerSharingID extends UserFilterCondition
{
    private $partner_id;
    private $ids;

    public function __construct($partner_id)
    {
        $this->partner_id = $partner_id;
        $ids = func_get_args();
        array_shift($ids);
        $this->ids   = pl_flatten($ids);
    }

    public function buildCondition(PlFilter $uf)
    {
        $uf->requireProfiles();
        $ids = $this->ids;
        $sub = $uf->addPartnerSharingFilter($this->partner_id);
        return XDB::format("$sub.exposed_uid IN {?}", $ids);
    }
}
// }}}

// vim:set et sw=4 sts=4 sws=4 foldmethod=marker fenc=utf-8:
?>