<?php
/***************************************************************************
 *  Copyright (C) 2003-2010 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                *
 ***************************************************************************/

class ProfileVisibility
{
    static private $v_values = array(self::VIS_PUBLIC  => array(self::VIS_PUBLIC),
                                     self::VIS_AX      => array(self::VIS_AX, self::VIS_PUBLIC),
                                     self::VIS_PRIVATE => array(self::VIS_PRIVATE, self::VIS_AX, self::VIS_PUBLIC));

    const VIS_PUBLIC  = 'public';
    const VIS_AX      = 'ax';
    const VIS_PRIVATE = 'private';

    private $level;

    public function __construct($level = null)
    {
        $this->setLevel($level);
    }

    public function setLevel($level = self::VIS_PUBLIC)
    {
        if ($level != null && $level != self::VIS_PRIVATE && $level != self::VIS_AX && $level != self::VIS_PUBLIC) {
            Platal::page()->kill("Invalid visibility: " . $level);
        }

        if (!S::logged()) {
            $level = self::VIS_PUBLIC;
        } else if ($level == null) {
            $level = self::VIS_PRIVATE;
        }

        if ($this->level == null || $this->level == self::VIS_PRIVATE) {
            $this->level = $level;
        } else if ($this->level == self::VIS_AX && $level == self::VIS_PRIVATE) {
            return;
        } else {
            $this->level = self::VIS_PUBLIC;
        }
    }

    public function level()
    {
        if ($this->level == null) {
            return self::VIS_PUBLIC;
        } else {
            return $this->level;
        }
    }

    public function levels()
    {
        return self::$v_values[$this->level()];
    }

    public function isVisible($visibility)
    {
        return in_array($visibility, $this->levels());
    }
}

class Profile
{

    /* name tokens */
    const LASTNAME  = 'lastname';
    const FIRSTNAME = 'firstname';
    const NICKNAME  = 'nickname';
    const PSEUDONYM = 'pseudonym';
    const NAME      = 'name';
    /* name variants */
    const VN_MARITAL  = 'marital';
    const VN_ORDINARY = 'ordinary';
    const VN_OTHER    = 'other';
    const VN_INI      = 'ini';
    /* display names */
    const DN_FULL      = 'directory_name';
    const DN_DISPLAY   = 'yourself';
    const DN_YOURSELF  = 'yourself';
    const DN_DIRECTORY = 'directory_name';
    const DN_PRIVATE   = 'private_name';
    const DN_PUBLIC    = 'public_name';
    const DN_SHORT     = 'short_name';
    const DN_SORT      = 'sort_name';
    /* education related names */
    const EDU_X    = 'École polytechnique';
    const DEGREE_X = 'Ingénieur';
    const DEGREE_M = 'Master';
    const DEGREE_D = 'Doctorat';

    static public $name_variants = array(
            self::LASTNAME => array(self::VN_MARITAL, self::VN_ORDINARY),
            self::FIRSTNAME => array(self::VN_ORDINARY, self::VN_INI, self::VN_OTHER)
        );

    const ADDRESS_MAIN       = 0x00000001;
    const ADDRESS_PERSO      = 0x00000002;
    const ADDRESS_PRO        = 0x00000004;
    const ADDRESS_ALL        = 0x00000006;
    const ADDRESS_POSTAL     = 0x00000008;

    const EDUCATION_MAIN     = 0x00000010;
    const EDUCATION_EXTRA    = 0x00000020;
    const EDUCATION_ALL      = 0x00000040;
    const EDUCATION_FINISHED = 0x00000080;
    const EDUCATION_CURRENT  = 0x00000100;

    const JOBS_MAIN          = 0x00001000;
    const JOBS_ALL           = 0x00002000;
    const JOBS_FINISHED      = 0x00004000;
    const JOBS_CURRENT       = 0x00008000;

    const NETWORKING_ALL     = 0x00070000;
    const NETWORKING_WEB     = 0x00010000;
    const NETWORKING_IM      = 0x00020000;
    const NETWORKING_SOCIAL  = 0x00040000;

    const PHONE_LINK_JOB     = 0x00100000;
    const PHONE_LINK_ADDRESS = 0x00200000;
    const PHONE_LINK_PROFILE = 0x00400000;
    const PHONE_LINK_COMPANY = 0x00800000;
    const PHONE_LINK_ANY     = 0x00F00000;

    const PHONE_TYPE_FAX     = 0x01000000;
    const PHONE_TYPE_FIXED   = 0x02000000;
    const PHONE_TYPE_MOBILE  = 0x04000000;
    const PHONE_TYPE_ANY     = 0x07000000;

    const PHONE_ANY          = 0x07F00000;

    const FETCH_ADDRESSES      = 0x000001;
    const FETCH_CORPS          = 0x000002;
    const FETCH_EDU            = 0x000004;
    const FETCH_JOBS           = 0x000008;
    const FETCH_MEDALS         = 0x000010;
    const FETCH_NETWORKING     = 0x000020;
    const FETCH_MENTOR_SECTOR  = 0x000040;
    const FETCH_MENTOR_COUNTRY = 0x000080;
    const FETCH_PHONES         = 0x000100;

    const FETCH_MINIFICHES   = 0x00012D; // FETCH_ADDRESSES | FETCH_EDU | FETCH_JOBS | FETCH_NETWORKING | FETCH_PHONES

    const FETCH_ALL          = 0x0001FF; // OR of FETCH_*

    private $fetched_fields  = 0x000000;

    private $pid;
    private $hrpid;
    private $owner;
    private $owner_fetched = false;
    private $data = array();

    private $visibility = null;


    private function __construct(array $data)
    {
        $this->data = $data;
        $this->pid = $this->data['pid'];
        $this->hrpid = $this->data['hrpid'];
        $this->visibility = new ProfileVisibility();
    }

    public function id()
    {
        return $this->pid;
    }

    public function hrid()
    {
        return $this->hrpid;
    }

    public function owner()
    {
        if ($this->owner == null && !$this->owner_fetched) {
            $this->owner_fetched = true;
            $this->owner = User::getSilent($this);
        }
        return $this->owner;
    }

    public function isActive()
    {
        if ($this->owner()) {
            return $this->owner->isActive();
        }
        return false;
    }

    public function promo()
    {
        return $this->promo;
    }

    public function yearpromo()
    {
        return intval(substr($this->promo, 1, 4));
    }

    /** Check if user is an orange (associated with several promos)
     */
    public function isMultiPromo()
    {
        return $this->grad_year != $this->entry_year + $this->mainEducationDuration();
    }

    /** Returns an array with all associated promo years.
     */
    public function yearspromo()
    {
        $promos = array();
        $d = -$this->deltaPromoToGradYear();
        for ($g = $this->entry_year + $this->mainEducationDuration(); $g <= $this->grad_year; ++$g) {
            $promos[] = $g + $d;
        }
        return $promos;
    }

    public function mainEducation()
    {
        if (empty($this->promo)) {
            return null;
        } else {
            return $this->promo{0};
        }
    }

    public function mainGrade()
    {
        switch ($this->mainEducation()) {
          case 'X':
            return UserFilter::GRADE_ING;
          case 'M':
            return UserFilter::GRADE_MST;
          case 'D':
            return UserFilter::GRADE_PHD;
          default:
            return null;
        }
    }

    public function mainEducationDuration()
    {
        switch ($this->mainEducation()) {
          case 'X':
            return 3;
          case 'M':
            return 2;
          case 'D':
            return 3;
          default:
            return 0;
        }
    }

    /** Number of years between the promotion year until the
     * graduation year. In standard schools it's 0, but for
     * Polytechnique the promo year is the entry year.
     */
    public function deltaPromoToGradYear()
    {
        if ($this->mainEducation() == 'X') {
            return $this->mainEducationDuration();
        }
        return 0;
    }

    /** Print a name with the given formatting:
     * %s = • for women
     * %f = firstname
     * %l = lastname
     * %F = fullname
     * %S = shortname
     * %p = promo
     */
    public function name($format)
    {
        return str_replace(array('%s', '%f', '%l', '%F', '%S', '%p'),
                           array($this->isFemale() ? '•' : '',
                                 $this->firstName(), $this->lastName(),
                                 $this->fullName(), $this->shortName(),
                                 $this->promo()), $format);
    }

    public function fullName($with_promo = false)
    {
        if ($with_promo) {
            return $this->full_name . ' (' . $this->promo . ')';
        }
        return $this->full_name;
    }

    public function shortName($with_promo = false)
    {
        if ($with_promo) {
            return $this->short_name . ' (' . $this->promo . ')';
        }
        return $this->short_name;
    }

    public function firstName()
    {
        return $this->firstname;
    }

    public function firstNames()
    {
        return $this->nameVariants(self::FIRSTNAME);
    }

    public function lastName()
    {
        return $this->lastname;
    }

    public function lastNames()
    {
        return $this->nameVariants(self::LASTNAME);
    }

    public function isFemale()
    {
        return $this->sex == PlUser::GENDER_FEMALE;
    }

    public function isDead()
    {
        return ($this->deathdate != null);
    }

    public function displayEmail()
    {
        $o = $this->owner();
        if ($o != null) {
            return $o->bestEmail();
        } else {
            return $this->email_directory;
        }
    }

    public function data()
    {
        $this->first_name;
        return $this->data;
    }

    private function nameVariants($type)
    {
        $vals = array($this->$type);
        foreach (self::$name_variants[$type] as $var) {
            $vartype = $type . '_' . $var;
            $varname = $this->$vartype;
            if ($varname != null && $varname != "") {
                $vals[] = $varname;
            }
        }
        return array_unique($vals);
    }

    public function nationalities()
    {
        $nats = array();
        $countries = DirEnum::getOptions(DirEnum::COUNTRIES);
        if ($this->nationality1) {
            $nats[$this->nationality1] = $countries[$this->nationality1];
        }
        if ($this->nationality2) {
            $nats[$this->nationality2] = $countries[$this->nationality2];
        }
        if ($this->nationality3) {
            $nats[$this->nationality3] = $countries[$this->nationality3];
        }
        return $nats;
    }

    public function __get($name)
    {
        if (property_exists($this, $name)) {
            return $this->$name;
        }

        if (isset($this->data[$name])) {
            return $this->data[$name];
        }

        return null;
    }

    public function __isset($name)
    {
        return property_exists($this, $name) || isset($this->data[$name]);
    }

    public function __unset($name)
    {
        if (property_exists($this, $name)) {
            $this->$name = null;
        } else {
            unset($this->data[$name]);
        }
    }


    /**
     * Clears a profile.
     *  *always deletes in: profile_addresses, profile_binets, profile_job,
     *      profile_langskills, profile_mentor, profile_networking,
     *      profile_phones, profile_skills, watch_profile
     *  *always keeps in: profile_corps, profile_display, profile_education,
     *      profile_medals, profile_name, profile_photos, search_name
     *  *modifies: profiles
     */
    public function clear()
    {
        $tables = array(
            'profile_job', 'profile_langskills', 'profile_mentor',
            'profile_networking', 'profile_skills', 'watch_profile',
            'profile_phones', 'profile_addresses', 'profile_binets');

        foreach ($tables as $t) {
            XDB::execute('DELETE FROM  ' . $t . '
                                WHERE  pid = {?}',
                                $this->id());
        }

        XDB::execute("UPDATE  profiles
                         SET  cv = NULL, freetext = NULL, freetext_pub = 'private',
                              medals_pub = 'private', alias_pub = 'private',
                              email_directory = NULL
                       WHERE  pid = {?}",
                     $this->id());
    }

    /** Sets the level of visibility of the profile
     * Sets $this->visibility to a list of valid visibilities.
     * @param one of the self::VIS_* values
     */
    public function setVisibilityLevel($visibility)
    {
        $this->visibility->setLevel($visibility);
    }

    /** Determine whether an item with visibility $visibility can be displayed
     * with the current level of visibility of the profile
     * @param $visibility The level of visibility to be checked
     */
    public function isVisible($visibility)
    {
        return $this->visibility->isVisible($visibility);
    }

    /** Stores the list of fields which have already been fetched for this Profile
     */
    public function setFetchedFields($fields)
    {
        if (($fields | self::FETCH_ALL) != self::FETCH_ALL) {
            Platal::page()->kill("Invalid fetched fields: $fields");
        }

        $this->fetched_fields = $fields;
    }

    private function fetched($field)
    {
        if (!array_key_exists($field, ProfileField::$fields)) {
            Platal::page()->kill("Invalid field: $field");
        }

        return ($this->fetched_fields & $field);
    }

    /** If not already done, fetches data for the given field
     * @param $field One of the Profile::FETCH_*
     * @return A ProfileField, or null
     */
    private function getProfileField($field)
    {
        if ($this->fetched($field)) {
            return null;
        } else {
            $this->fetched_fields = $this->fetched_fields | $field;
        }

        $cls = ProfileField::$fields[$field];

        return ProfileField::getForPID($cls, $this->id(), $this->visibility);
    }

    /** Consolidates internal data (addresses, phones, jobs)
     */
    private function consolidateFields()
    {
        if ($this->phones != null) {
            if ($this->addresses != null) {
                $this->addresses->addPhones($this->phones);
            }

            if ($this->jobs != null) {
                $this->jobs->addPhones($this->phones);
            }
        }

        if ($this->addresses != null && $this->jobs != null) {
            $this->jobs->addAddresses($this->addresses);
        }
    }

    /* Photo
     */
    private $photo = null;
    public function getPhoto($fallback = true, $data = false)
    {
        if ($this->has_photo) {
            if ($data && ($this->photo == null || $this->photo->mimeType == null)) {
                $res = XDB::fetchOneAssoc('SELECT  attach, attachmime, x, y
                                             FROM  profile_photos
                                            WHERE  pid = {?}', $this->pid);
                $this->photo = PlImage::fromData($res['attach'], $res['attachmime'], $res['x'], $res['y']);
            } else if ($this->photo == null) {
                $this->photo = PlImage::fromData(null, null, $this->photo_width, $this->photo_height);
            }
            return $this->photo;
        } else if ($fallback) {
            return PlImage::fromFile(dirname(__FILE__).'/../htdocs/images/none.png',
                                     'image/png');
        }
        return null;
    }

    /* Addresses
     */
    private $addresses = null;
    public function setAddresses(ProfileAddresses $addr)
    {
        $this->addresses = $addr;
        $this->consolidateFields();
    }

    private function fetchAddresses()
    {
        if ($this->addresses == null  && !$this->fetched(self::FETCH_ADDRESSES)) {
            $addr = $this->getProfileField(self::FETCH_ADDRESSES);
            if ($addr) {
                $this->setAddresses($addr);
                $this->fetchPhones();
            }
        }
    }

    public function getAddresses($flags, $limit = null)
    {
        $this->fetchAddresses();

        if ($this->addresses == null) {
            return array();
        }
        return $this->addresses->get($flags, $limit);
    }

    public function iterAddresses($flags, $limit = null)
    {
        return PlIteratorUtils::fromArray($this->getAddresses($flags, $limit), 1, true);
    }

    public function getMainAddress()
    {
        $addr = $this->getAddresses(self::ADDRESS_PERSO | self::ADDRESS_MAIN);
        if (count($addr) == 0) {
            return null;
        } else {
            return array_pop($addr);
        }
    }

    /* Phones
     */
    private $phones = null;
    public function setPhones(ProfilePhones $phones)
    {
        $this->phones = $phones;
        $this->consolidateFields();
    }

    private function fetchPhones()
    {
        if ($this->phones == null && !$this->fetched(self::FETCH_PHONES)) {
            $phones = $this->getProfileField(self::FETCH_PHONES);
            if (isset($phones)) {
                $this->setPhones($phones);
            }
        }
    }

    public function getPhones($flags, $limit = null)
    {
        $this->fetchPhones();
        if ($this->phones == null) {
            return array();
        }
        return $this->phones->get($flags, $limit);
    }

    /* Educations
     */
    private $educations = null;
    public function setEducations(ProfileEducation $edu)
    {
        $this->educations = $edu;
    }

    public function getEducations($flags, $limit = null)
    {
        if ($this->educations == null && !$this->fetched(self::FETCH_EDU)) {
            $this->setEducations($this->getProfileField(self::FETCH_EDU));
        }

        if ($this->educations == null) {
            return array();
        }
        return $this->educations->get($flags, $limit);
    }

    public function getExtraEducations($limit = null)
    {
        return $this->getEducations(self::EDUCATION_EXTRA, $limit);
    }

    /* Corps
     */
    private $corps = null;
    public function setCorps(ProfileCorps $corps)
    {
        $this->corps = $corps;
    }

    public function getCorps()
    {
        if ($this->corps == null && !$this->fetched(self::FETCH_CORPS)) {
            $this->setCorps($this->getProfileField(self::FETCH_CORPS));
        }
        return $this->corps;
    }

    /** Networking
     */
    private $networks = null;
    public function setNetworking(ProfileNetworking $nw)
    {
        $this->networks = $nw;
    }

    public function getNetworking($flags, $limit = null)
    {
        if ($this->networks == null && !$this->fetched(self::FETCH_NETWORKING)) {
            $nw = $this->getProfileField(self::FETCH_NETWORKING);
            if ($nw) {
                $this->setNetworking($nw);
            }
        }
        if ($this->networks == null) {
            return array();
        }
        return $this->networks->get($flags, $limit);
    }

    public function getWebSite()
    {
        $site = $this->getNetworking(self::NETWORKING_WEB, 1);
        if (count($site) != 1) {
            return null;
        }
        $site = array_pop($site);
        return $site;
    }


    /** Jobs
     */
    private $jobs = null;
    public function setJobs(ProfileJobs $jobs)
    {
        $this->jobs = $jobs;
        $this->consolidateFields();
    }

    private function fetchJobs()
    {
        if ($this->jobs == null && !$this->fetched(self::FETCH_JOBS)) {
            $jobs = $this->getProfileField(self::FETCH_JOBS);
            if ($jobs) {
                $this->setJobs($jobs);
                $this->fetchAddresses();
            }
        }
    }

    public function getJobs($flags, $limit = null)
    {
        $this->fetchJobs();

        if ($this->jobs == null) {
            return array();
        }
        return $this->jobs->get($flags, $limit);
    }

    public function getMainJob()
    {
        $job = $this->getJobs(self::JOBS_MAIN, 1);
        if (count($job) != 1) {
            return null;
        }
        return array_pop($job);
    }

    /* Mentoring
     */
    private $mentor_sectors = null;
    public function setMentoringSectors(ProfileMentoringSectors $sectors)
    {
        $this->mentor_sectors = $sectors;
    }

    public function getMentoringSectors()
    {
        if ($this->mentor_sectors == null && !$this->fetched(self::FETCH_MENTOR_SECTOR)) {
            $this->setMentoringSectors($this->getProfileField(self::FETCH_MENTOR_SECTOR));
        }

        if ($this->mentor_sectors == null) {
            return array();
        } else {
            return $this->mentor_sectors->sectors;
        }
    }

    private $mentor_countries = null;
    public function setMentoringCountries(ProfileMentoringCountries $countries)
    {
        $this->mentor_countries = $countries;
    }

    public function getMentoringCountries()
    {
        if ($this->mentor_countries == null && !$this->fetched(self::FETCH_MENTOR_COUNTRY)) {
            $this->setMentoringCountries($this->getProfileField(self::FETCH_MENTOR_COUNTRY));
        }

        if ($this->mentor_countries == null) {
            return array();
        } else {
            return $this->mentor_countries->countries;
        }
    }

    /* Binets
     */
    public function getBinets()
    {
        if ($this->visibility->isVisible(ProfileVisibility::VIS_PRIVATE)) {
            return XDB::fetchColumn('SELECT  binet_id
                                       FROM  profile_binets
                                      WHERE  pid = {?}', $this->id());
        } else {
            return array();
        }
    }
    public function getBinetsNames()
    {
        if ($this->visibility->isVisible(ProfileVisibility::VIS_PRIVATE)) {
            return XDB::fetchColumn('SELECT  text
                                       FROM  profile_binets AS pb
                                  LEFT JOIN  profile_binet_enum AS pbe ON (pbe.id = pb.binet_id)
                                      WHERE  pb.pid = {?}', $this->id());
        } else {
            return array();
        }
    }

    /* Medals
     */
    private $medals = null;
    public function setMedals(ProfileMedals $medals)
    {
        $this->medals = $medals;
    }

    public function getMedals()
    {
        if ($this->medals == null && !$this->fetched(self::FETCH_MEDALS)) {
            $this->setMedals($this->getProfileField(self::FETCH_MEDALS));
        }
        if ($this->medals == null) {
            return array();
        }
        return $this->medals->medals;
    }

    public function compareNames($firstname, $lastname)
    {
        $_lastname  = mb_strtoupper($this->lastName());
        $_firstname = mb_strtoupper($this->firstName());
        $lastname   = mb_strtoupper($lastname);
        $firstname  = mb_strtoupper($firstname);

        $isOk  = (mb_strtoupper($_firstname) == mb_strtoupper($firstname));
        $tokens = preg_split("/[ \-']/", $lastname, -1, PREG_SPLIT_NO_EMPTY);
        $maxlen = 0;

        foreach ($tokens as $str) {
            $isOk &= (strpos($_lastname, $str) !== false);
            $maxlen = max($maxlen, strlen($str));
        }

        return ($isOk && ($maxlen > 2 || $maxlen == strlen($_lastname)));
    }

    private static function fetchProfileData(array $pids, $respect_order = true, $fields = 0x0000, $visibility = null)
    {
        if (count($pids) == 0) {
            return null;
        }

        if ($respect_order) {
            $order = 'ORDER BY  ' . XDB::formatCustomOrder('p.pid', $pids);
        } else {
            $order = '';
        }

        $visibility = new ProfileVisibility($visibility);

        $it = XDB::Iterator('SELECT  p.pid, p.hrpid, p.xorg_id, p.ax_id, p.birthdate, p.birthdate_ref,
                                     p.next_birthday, p.deathdate, p.deathdate_rec, p.sex = \'female\' AS sex,
                                     IF ({?}, p.cv, NULL) AS cv, p.medals_pub, p.alias_pub, p.email_directory,
                                     p.last_change, p.nationality1, p.nationality2, p.nationality3,
                                     IF (p.freetext_pub IN {?}, p.freetext, NULL) AS freetext,
                                     pe.entry_year, pe.grad_year,
                                     IF ({?}, pse.text, NULL) AS section,
                                     pn_f.name AS firstname, pn_l.name AS lastname,
                                     IF( {?}, pn_n.name, NULL) AS nickname,
                                     IF(pn_uf.name IS NULL, pn_f.name, pn_uf.name) AS firstname_ordinary,
                                     IF(pn_ul.name IS NULL, pn_l.name, pn_ul.name) AS lastname_ordinary,
                                     pd.yourself, pd.promo, pd.short_name, pd.public_name AS full_name,
                                     pd.directory_name, pd.public_name, pd.private_name,
                                     IF(pp.pub IN {?}, pp.display_tel, NULL) AS mobile,
                                     (ph.pub IN {?} AND ph.attach IS NOT NULL) AS has_photo,
                                     ph.x AS photo_width, ph.y AS photo_height,
                                     p.last_change < DATE_SUB(NOW(), INTERVAL 365 DAY) AS is_old,
                                     pm.expertise AS mentor_expertise,
                                     ap.uid AS owner_id
                               FROM  profiles AS p
                         INNER JOIN  profile_display AS pd ON (pd.pid = p.pid)
                         INNER JOIN  profile_education AS pe ON (pe.pid = p.pid AND FIND_IN_SET(\'primary\', pe.flags))
                          LEFT JOIN  profile_section_enum AS pse ON (pse.id = p.section)
                         INNER JOIN  profile_name AS pn_f ON (pn_f.pid = p.pid
                                                              AND pn_f.typeid = ' . self::getNameTypeId('firstname', true) . ')
                         INNER JOIN  profile_name AS pn_l ON (pn_l.pid = p.pid
                                                              AND pn_l.typeid = ' . self::getNameTypeId('lastname', true) . ')
                          LEFT JOIN  profile_name AS pn_uf ON (pn_uf.pid = p.pid
                                                               AND pn_uf.typeid = ' . self::getNameTypeId('firstname_ordinary', true) . ')
                          LEFT JOIN  profile_name AS pn_ul ON (pn_ul.pid = p.pid
                                                               AND pn_ul.typeid = ' . self::getNameTypeId('lastname_ordinary', true) . ')
                          LEFT JOIN  profile_name AS pn_n ON (pn_n.pid = p.pid
                                                              AND pn_n.typeid = ' . self::getNameTypeId('nickname', true) . ')
                          LEFT JOIN  profile_phones AS pp ON (pp.pid = p.pid AND pp.link_type = \'user\' AND tel_type = \'mobile\')
                          LEFT JOIN  profile_photos AS ph ON (ph.pid = p.pid)
                          LEFT JOIN  profile_mentor AS pm ON (pm.pid = p.pid)
                          LEFT JOIN  account_profiles AS ap ON (ap.pid = p.pid AND FIND_IN_SET(\'owner\', ap.perms))
                              WHERE  p.pid IN {?}
                           GROUP BY  p.pid
                                     ' . $order,
                           $visibility->isVisible(ProfileVisibility::VIS_PRIVATE), // CV
                           $visibility->levels(), // freetext
                           $visibility->isVisible(ProfileVisibility::VIS_PRIVATE), // section
                           $visibility->isVisible(ProfileVisibility::VIS_PRIVATE), // nickname
                           $visibility->levels(), // mobile
                           $visibility->levels(), // photo
                           $pids
                       );
        return new ProfileIterator($it, $pids, $fields, $visibility);
    }

    public static function getPID($login)
    {
        if ($login instanceof PlUser) {
            return XDB::fetchOneCell('SELECT  pid
                                        FROM  account_profiles
                                       WHERE  uid = {?} AND FIND_IN_SET(\'owner\', perms)',
                                     $login->id());
        } else if (ctype_digit($login)) {
            return XDB::fetchOneCell('SELECT  pid
                                        FROM  profiles
                                       WHERE  pid = {?}', $login);
        } else {
            return XDB::fetchOneCell('SELECT  pid
                                        FROM  profiles
                                       WHERE  hrpid = {?}', $login);
        }
    }

    public static function getPIDsFromUIDs($uids, $respect_order = true)
    {
        if ($respect_order) {
            $order = 'ORDER BY ' . XDB::formatCustomOrder('uid', $uids);
        } else {
            $order = '';
        }
        return XDB::fetchAllAssoc('uid', 'SELECT  ap.uid, ap.pid
                                            FROM  account_profiles AS ap
                                           WHERE  FIND_IN_SET(\'owner\', ap.perms)
                                                  AND ap.uid IN ' . XDB::formatArray($uids) .'
                                               ' . $order);
    }

    /** Return the profile associated with the given login.
     */
    public static function get($login, $fields = 0x0000, $visibility = null)
    {
        if (is_array($login)) {
            $pf = new Profile($login);
            $pf->setVisibilityLevel($visibility);
            return $pf;
        }
        $pid = self::getPID($login);
        if (!is_null($pid)) {
            $it = self::iterOverPIDs(array($pid), false, $fields, $visibility);
            return $it->next();
        } else {
            /* Let say we can identify a profile using the identifiers of its owner.
             */
            if (!($login instanceof PlUser)) {
                $user = User::getSilent($login);
                if ($user && $user->hasProfile()) {
                    return $user->profile();
                }
            }
            return null;
        }
    }

    public static function iterOverUIDs($uids, $respect_order = true, $fields = 0x0000, $visibility = null)
    {
        return self::iterOverPIDs(self::getPIDsFromUIDs($uids), $respect_order, $fields, $visibility);
    }

    public static function iterOverPIDs($pids, $respect_order = true, $fields = 0x0000, $visibility = null)
    {
        return self::fetchProfileData($pids, $respect_order, $fields, $visibility);
    }

    /** Return profiles for the list of pids.
     */
    public static function getBulkProfilesWithPIDs(array $pids, $fields = 0x0000, $visibility = null)
    {
        if (count($pids) == 0) {
            return array();
        }
        $it = self::iterOverPIDs($pids, true, $fields, $visibility);
        $profiles = array();
        while ($p = $it->next()) {
            $profiles[$p->id()] = $p;
        }
        return $profiles;
    }

    /** Return profiles for uids.
     */
    public static function getBulkProfilesWithUIDS(array $uids, $fields = 0x000, $visibility = null)
    {
        if (count($uids) == 0) {
            return array();
        }
        return self::getBulkProfilesWithPIDs(self::getPIDsFromUIDs($uids), $fields, $visibility);
    }

    public static function isDisplayName($name)
    {
        return $name == self::DN_FULL || $name == self::DN_DISPLAY
            || $name == self::DN_YOURSELF || $name == self::DN_DIRECTORY
            || $name == self::DN_PRIVATE || $name == self::DN_PUBLIC
            || $name == self::DN_SHORT || $name == self::DN_SORT;
    }

    /** Returns the closest "accounts only" name type for $name
     */
    public static function getAccountEquivalentName($name)
    {
        switch ($name)
        {
        case self::DN_DIRECTORY:
        case self::DN_SORT:
            return 'directory_name';
        case self::DN_FULL:
        case self::DN_PUBLIC:
            return 'full_name';
        case self::DN_PRIVATE:
        case self::DN_SHORT:
        case self::DN_YOURSELF:
        default:
            return 'display_name';
        }
    }

    public static function getNameTypeId($type, $for_sql = false)
    {
        if (!S::has('name_types')) {
            $table = XDB::fetchAllAssoc('type', 'SELECT  id, type
                                                   FROM  profile_name_enum');
            S::set('name_types', $table);
        } else {
            $table = S::v('name_types');
        }
        if ($for_sql) {
            return XDB::escape($table[$type]);
        } else {
            return $table[$type];
        }
    }

    public static function rebuildSearchTokens($pid)
    {
        XDB::execute('DELETE FROM  search_name
                            WHERE  pid = {?}',
                     $pid);
        $keys = XDB::iterator("SELECT  CONCAT(n.particle, n.name) AS name, e.score,
                                       FIND_IN_SET('public', e.flags) AS public
                                 FROM  profile_name      AS n
                           INNER JOIN  profile_name_enum AS e ON (n.typeid = e.id)
                                WHERE  n.pid = {?}",
                              $pid);

        while ($key = $keys->next()) {
            if ($key['name'] == '') {
                continue;
            }
            $toks  = preg_split('/[ \'\-]+/', $key['name']);
            $token = '';
            $first = 5;
            while ($toks) {
                $token = strtolower(replace_accent(array_pop($toks) . $token));
                $score = ($toks ? 0 : 10 + $first) * ($key['score'] / 10);
                XDB::execute('REPLACE INTO  search_name (token, pid, soundex, score, flags)
                                    VALUES  ({?}, {?}, {?}, {?}, {?})',
                             $token, $pid, soundex_fr($token), $score, $key['public']);
                $first = 0;
            }
        }
    }

    /** The school identifier consists of 6 digits. The first 3 represent the
     * promotion entry year. The last 3 indicate the student's rank.
     * 
     * Our identifier consists of 8 digits and both half have the same role.
     * This enables us to deal with bigger promotions and with a wider range
     * of promotions.
     *
     * getSchoolId returns a school identifier given one of ours.
     * getXorgId returns a X.org identifier given a school identifier.
     */
    public static function getSchoolId($xorgId)
    {
        if (!preg_match('/^[0-9]{8}$/', $xorgId)) {
            return null;
        }

        $year = intval(substr($xorgId, 0, 4));
        $rank = intval(substr($xorgId, 5, 3));
        if ($year < 1996) {
            return null;
        } elseif ($year < 2000) {
            $year = intval(substr(1900 - $year, 1, 3));
            return sprintf('%02u0%03u', $year, $rank);
        } else {
            $year = intval(substr(1900 - $year, 1, 3));
            return sprintf('%03u%03u', $year, $rank);
        }
    }

    public static function getXorgId($schoolId)
    {
        if (!preg_match('/^[0-9]{6}$/', $schoolId)) {
            return null;
        }

        $year = intval(substr($schoolId, 0, 3));
        $rank = intval(substr($schoolId, 3, 3));

        if ($year > 200) {
            $year /= 10;
        }
        if ($year < 96) {
            return null;
        } else {
            return sprintf('%04u%04u', 1900 + $year, $rank);
        }
    }
}


/** Iterator over a set of Profiles
 */
class ProfileIterator implements PlIterator
{
    private $iterator = null;
    private $fields;
    private $visibility;

    public function __construct(PlIterator $it, array $pids, $fields = 0x0000, ProfileVisibility $visibility = null)
    {
        require_once 'profilefields.inc.php';

        if ($visibility == null) {
            $visibility = new ProfileVisibility();
        }

        $this->fields = $fields;
        $this->visibility = $visibility;

        $subits = array();
        $callbacks = array();

        $subits[0] = $it;
        $callbacks[0] = PlIteratorUtils::arrayValueCallback('pid');
        $cb = PlIteratorUtils::objectPropertyCallback('pid');

        if ($fields & Profile::FETCH_ADDRESSES) {
            $callbacks[Profile::FETCH_ADDRESSES] = $cb;
            $subits[Profile::FETCH_ADDRESSES] = new ProfileFieldIterator('ProfileAddresses', $pids, $visibility);
        }

        if ($fields & Profile::FETCH_CORPS) {
            $callbacks[Profile::FETCH_CORPS] = $cb;
            $subits[Profile::FETCH_CORPS] = new ProfileFieldIterator('ProfileCorps', $pids, $visibility);
        }

        if ($fields & Profile::FETCH_EDU) {
            $callbacks[Profile::FETCH_EDU] = $cb;
            $subits[Profile::FETCH_EDU] = new ProfileFieldIterator('ProfileEducation', $pids, $visibility);
        }

        if ($fields & Profile::FETCH_JOBS) {
            $callbacks[Profile::FETCH_JOBS] = $cb;
            $subits[Profile::FETCH_JOBS] = new ProfileFieldIterator('ProfileJobs', $pids, $visibility);
        }

        if ($fields & Profile::FETCH_MEDALS) {
            $callbacks[Profile::FETCH_MEDALS] = $cb;
            $subits[Profile::FETCH_MEDALS] = new ProfileFieldIterator('ProfileMedals', $pids, $visibility);
        }

        if ($fields & Profile::FETCH_NETWORKING) {
            $callbacks[Profile::FETCH_NETWORKING] = $cb;
            $subits[Profile::FETCH_NETWORKING] = new ProfileFieldIterator('ProfileNetworking', $pids, $visibility);
        }

        if ($fields & Profile::FETCH_PHONES) {
            $callbacks[Profile::FETCH_PHONES] = $cb;
            $subits[Profile::FETCH_PHONES] = new ProfileFieldIterator('ProfilePhones', $pids, $visibility);
        }

        $this->iterator = PlIteratorUtils::parallelIterator($subits, $callbacks, 0);
    }

    private function hasData($field, $vals)
    {
        return ($this->fields & $field) && ($vals[$field] != null);
    }

    private function fillProfile(array $vals)
    {
        $pf = Profile::get($vals[0]);
        $pf->setVisibilityLevel($this->visibility->level());
        $pf->setFetchedFields($this->fields);

        if ($this->hasData(Profile::FETCH_PHONES, $vals)) {
            $pf->setPhones($vals[Profile::FETCH_PHONES]);
        }
        if ($this->hasData(Profile::FETCH_ADDRESSES, $vals)) {
            $pf->setAddresses($vals[Profile::FETCH_ADDRESSES]);
        }
        if ($this->hasData(Profile::FETCH_JOBS, $vals)) {
            $pf->setJobs($vals[Profile::FETCH_JOBS]);
        }

        if ($this->hasData(Profile::FETCH_CORPS, $vals)) {
            $pf->setCorps($vals[Profile::FETCH_CORPS]);
        }
        if ($this->hasData(Profile::FETCH_EDU, $vals)) {
            $pf->setEducations($vals[Profile::FETCH_EDU]);
        }
        if ($this->hasData(Profile::FETCH_MEDALS, $vals)) {
            $pf->setMedals($vals[Profile::FETCH_MEDALS]);
        }
        if ($this->hasData(Profile::FETCH_NETWORKING, $vals)) {
            $pf->setNetworking($vals[Profile::FETCH_NETWORKING]);
        }

        return $pf;
    }

    public function next()
    {
        $vals = $this->iterator->next();
        if ($vals == null) {
            return null;
        }
        return $this->fillProfile($vals);
    }

    public function first()
    {
        return $this->iterator->first();
    }

    public function last()
    {
        return $this->iterator->last();
    }

    public function total()
    {
        return $this->iterator->total();
    }
}

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