<?php
/***************************************************************************
 *  Copyright (C) 2003-2009 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 ProfileNom implements ProfileSetting
{
    private function matchWord($old, $new, $newLen)
    {
        return ($i = strpos($old, $new)) !== false
            && ($i == 0 || $old{$i-1} == ' ')
            && ($i + $newLen == strlen($old) || $old{$i + $newLen} == ' ');
    }

    private function prepareField($value)
    {
        $value = strtoupper(replace_accent($value));
        return preg_replace('/[^A-Z]/', ' ', $value);
    }

    public function value(ProfilePage &$page, $field, $value, &$success)
    {
        $success = true;
        $current = S::v($field);
        $init    = S::v($field . '_ini');
        if (is_null($value)) {
            return $current;
        }
        if ($value == $current || $value == $init) {
            return $value;
        }
        $ini = $this->prepareField($init);
        $old = $this->prepareField($current);
        $new = $this->prepareField($value);
        $newLen = strlen($new);
        $success = $this->matchWord($old, $new, $newLen)
                || $this->matchWord($ini, $new, $newLen)
                || ($field == 'nom' && $new == 'DE ' . $old);
        if (!$success) {
            Platal::page()->trigError("Le $field que tu as choisi ($value) est trop loin de ton $field initial ($init)"
                                    . (($init == $current)? "" : " et de ton prénom précédent ($current)"));
        }
        return $success ? $value : $current;
    }

    public function save(ProfilePage &$page, $field, $new_value)
    {
        $_SESSION[$field] = $new_value;
    }
}

class ProfileEdu implements ProfileSetting
{
    public function __construct() {
    }

    static function sortByGradYear($line1, $line2) {
        $a = (int) $line1['grad_year'];
        $b = (int) $line2['grad_year'];
        if ($a == $b) {
            return 0;
        }
        return ($a < $b) ? -1 : 1;
    }

    public function value(ProfilePage &$page, $field, $value, &$success)
    {
        $success = true;
        if (is_null($value) || !is_array($value)) {
            $value = array();
            $res = XDB::iterator("SELECT  eduid, degreeid, fieldid, grad_year, program
                                    FROM  profile_education
                                   WHERE  uid = {?} AND !FIND_IN_SET('primary', flags)
                                ORDER BY  id",
                                 $page->pid());
            while($edu = $res->next()) {
                $value[] = $edu;
            }
        } else {
            $i = 0;
            foreach ($value as $key=>&$edu) {
                if (($edu['grad_year'] < 1921) || ($edu['grad_year'] > (date('Y') + 4))) {
                    Platal::page()->trigError('L\'année d\'obtention du diplôme est mal renseignée, elle doit être du type : 2004.');
                    $edu['error'] = true;
                    $success = false;
                }
                if ($key != $i) {
                    $value[$i] = $edu;
                    unset($value[$key]);
                }
                $i++;
            }
            usort($value, array("ProfileEdu", "sortByGradYear"));
        }
        return $value;
    }

    public function save(ProfilePage &$page, $field, $value)
    {
        XDB::execute("DELETE FROM  profile_education
                            WHERE  uid = {?} AND !FIND_IN_SET('primary', flags)",
                     $page->pid());
        foreach ($value as $eduid=>&$edu) {
            if ($edu['eduid'] != '') {
                XDB::execute("INSERT INTO  profile_education
                                      SET  id = {?}, uid = {?}, eduid = {?}, degreeid = {?},
                                           fieldid = {?}, grad_year = {?}, program = {?}",
                             $eduid, $page->pid(), $edu['eduid'], $edu['degreeid'],
                             $edu['fieldid'], $edu['grad_year'], $edu['program']);
            }
        }
    }
}

class ProfileEmailDirectory implements ProfileSetting
{
    public function __construct(){}
    public function save(ProfilePage &$page, $field, $value){}

    public function value(ProfilePage &$page, $field, $value, &$success)
    {
        $p = Platal::page();

        $success = true;
        if (!is_null($value)) {
            $email_stripped = strtolower(trim($value));
            if ((!isvalid_email($email_stripped)) && ($email_stripped) && ($page->values['email_directory'] == "new@example.org")) {
                $p->assign('email_error', '1');
                $p->assign('email_directory_error', $email_stripped);
                $p->trigError('Adresse Email invalide');
                $success = false;
            } else {
                $p->assign('email_error', '0');
            }
        }
        return $value;
    }
}

class ProfileNetworking implements ProfileSetting
{
    private $email;
    private $pub;
    private $web;
    private $number;

    public function __construct()
    {
        $this->email  = new ProfileEmail();
        $this->pub    = new ProfilePub();
        $this->web    = new ProfileWeb();
        $this->number = new ProfileNumber();
    }

    public function value(ProfilePage &$page, $field, $value, &$success)
    {
        if (is_null($value)) {
            $value = array();
            $res = XDB::iterator("SELECT  n.address, n.network_type AS type, n.pub, m.name
                                    FROM  profile_networking AS n
                              INNER JOIN  profile_networking_enum AS m ON (n.network_type = m.network_type)
                                   WHERE  n.uid = {?}",
                                 $page->pid());
            while($network = $res->next()) {
                $value[] = $network;
            }
        }
        if (!is_array($value)) {
            $value = array();
        }
        $res = XDB::iterator("SELECT  filter, network_type AS type
                                FROM  profile_networking_enum;");
        $filters = array();
        while($filter = $res->next()) {
            $filters[$filter['type']] = $filter['filter'];
        }
        $success = true;
        foreach($value as $i=>&$network) {
            if (!trim($network['address'])) {
                unset($value[$i]);
            } else {
                if (!isset($network['pub'])) {
                    $network['pub'] = 'private';
                }
                $network['error'] = false;
                $network['pub'] = $this->pub->value($page, 'pub', $network['pub'], $s);
                $s = true;
                if ($filters[$network['type']] == 'web') {
                    $network['address'] = $this->web->value($page, 'address', $network['address'], $s);
                } elseif ($filters[$network['type']] == 'email') {
                    $network['address'] = $this->email->value($page, 'address', $network['address'], $s);
                } elseif ($filters[$network['type']] == 'number') {
                    $network['address'] = $this->number->value($page, 'address', $network['address'], $s);
                }
                if (!$s) {
                    $success = false;
                    $network['error'] = true;
                }
            }
        }
        return $value;
    }

    public function save(ProfilePage &$page, $field, $value)
    {
        XDB::execute("DELETE FROM profile_networking
                            WHERE uid = {?}",
                     $page->pid());
        if (!count($value)) {
            return;
        }
        $insert = array();
        foreach ($value as $id=>$network) {
            XDB::execute("INSERT INTO  profile_networking (uid, nwid, network_type, address, pub)
                               VALUES  ({?}, {?}, {?}, {?}, {?})",
                         $page->pid(), $id, $network['type'], $network['address'], $network['pub']);
        }
    }
}

class ProfileGeneral extends ProfilePage
{
    protected $pg_template = 'profile/general.tpl';

    public function __construct(PlWizard &$wiz)
    {
        parent::__construct($wiz);
        $this->settings['birthdate'] = new ProfileDate();
        $this->settings['freetext_pub']
                                  = $this->settings['photo_pub']
                                  = new ProfilePub();
        $this->settings['freetext']
                                  = $this->settings['nationality1']
                                  = $this->settings['nationality2']
                                  = $this->settings['nationality3']
                                  = $this->settings['nick']
                                  = $this->settings['yourself']
                                  = $this->settings['display_name']
                                  = $this->settings['sort_name']
                                  = $this->settings['tooltip_name']
                                  = $this->settings['promo_display']
                                  = $this->settings['search_names']
                                  = null;
        $this->settings['synchro_ax']
                                  = new ProfileBool();
        $this->settings['email_directory']
                                  = new ProfileEmail();
        $this->settings['email_directory_new']
                                  = new ProfileEmailDirectory();
        $this->settings['networking'] = new ProfileNetworking();
        $this->settings['tels']   = new ProfilePhones('user', 0);
        $this->settings['edus']   = new ProfileEdu();
        $this->watched= array('freetext' => true, 'tels' => true,
                              'networking' => true, 'edus' => true,
                              'nationality1' => true, 'nationality2' => true,
                              'nationality3' => true, 'nick' => true);
    }

    protected function _fetchData()
    {
        // Checkout all data...
        $res = XDB::query("SELECT  p.promo AS promo_display, e.entry_year AS entry_year, e.grad_year AS grad_year,
                                   pr.nationality1, pr.nationality2, pr.nationality3, pr.birthdate,
                                   t.display_tel as mobile, t.pub as mobile_pub,
                                   d.email_directory as email_directory,
                                   pr.freetext, pr.freetext_pub as freetext_pub,
                                   n.yourself, n.display AS display_name, n.sort AS sort_name,
                                   n.tooltip AS tooltip_name
                             FROM  profiles              AS pr
                       INNER JOIN  profile_names_display AS n ON (n.user_id = pr.pid)
                       INNER JOIN  profile_display       AS p ON (p.pid = pr.pid)
                       INNER JOIN  profile_education     AS e ON (e.uid = pr.pid AND FIND_IN_SET('primary', e.flags))
                        LEFT JOIN  profile_phones        AS t ON (t.uid = pr.pid AND link_type = 'user')
                        LEFT JOIN  profile_directory     AS d ON (d.uid = pr.pid)
                            WHERE  pr.pid = {?}", $this->pid());
        $this->values = $res->fetchOneAssoc();

        // Retreive photo informations
        $res = XDB::query("SELECT  pub
                             FROM  photo
                            WHERE  uid = {?}", $this->pid());
        $this->values['photo_pub'] = $res->fetchOneCell();

        if ($this->owner) {
            $res = XDB::query("SELECT  COUNT(*)
                                 FROM  requests
                                WHERE  type='photo' AND user_id = {?}",
                              $this->owner->id());
            $this->values['nouvellephoto'] = $res->fetchOneCell();
        } else {
            $this->values['nouvellephoto'] = 0;
        }

        // Retreive search names info
        $sn_all = XDB::iterator("SELECT  IF(sn.particle = '', sn.name, CONCAT(sn.particle, ' ', sn.name)) AS name,
                                         sn.particle, sn.typeid, e.name AS type,
                                         FIND_IN_SET('has_particle', e.flags) AS has_particle,
                                         FIND_IN_SET('always_displayed', e.flags) AS always_displayed,
                                         FIND_IN_SET('public', e.flags) AS pub
                                   FROM  profile_name_search      AS sn
                             INNER JOIN  profile_name_search_enum AS e  ON (e.id = sn.typeid)
                                  WHERE  sn.pid = {?} AND NOT FIND_IN_SET('not_displayed', e.flags)
                               ORDER BY  NOT FIND_IN_SET('always_displayed', e.flags), e.id, sn.name",
                                $this->pid());

        $sn_types = XDB::iterator("SELECT  id, name, FIND_IN_SET('has_particle', flags) AS has_particle
                                     FROM  profile_name_search_enum
                                    WHERE  NOT FIND_IN_SET('not_displayed', flags)
                                           AND FIND_IN_SET('always_displayed', flags)
                                 ORDER BY  id");

        $this->values['search_names'] = array();
        $sn = $sn_all->next();
        while ($sn_type = $sn_types->next()) {
            if ($sn_type['id'] == $sn['typeid']) {
                $this->values['search_names'][] = $sn;
                $sn = $sn_all->next();
            } else {
                $this->values['search_names'][] = array('typeid' => $sn_type['id'],
                                                        'type'   => $sn_type['name'],
                                                        'pub'    => 1,
                                                        'has_particle'     => $sn_type['has_particle'],
                                                        'always_displayed' => 1);
            }
        }
        do {
            $this->values['search_names'][] = $sn;
        } while ($sn = $sn_all->next());

        // Proposes choice for promo_display
        if ($this->values['entry_year'] != $this->values['grad_year'] - 3) {
            for ($i = $this->values['entry_year']; $i < $this->values['grad_year'] - 2; $i++) {
                $this->values['promo_choice'][] = "X" . $i;
            }
        }
    }

    protected function _saveData()
    {
        if ($this->changed['nationality1'] || $this->changed['nationality2'] || $this->changed['nationality3']
            || $this->changed['birthdate'] || $this->changed['freetext'] || $this->changed['freetext_pub']) {
            if ($this->values['nationality3'] == "") {
                $this->values['nationality3'] = NULL;
            }
            if ($this->values['nationality2'] == "") {
                $this->values['nationality2'] = $this->values['nationality3'];
                $this->values['nationality3'] = NULL;
            }
            if ($this->values['nationality1'] == "") {
                $this->values['nationality1']  = $this->values['nationality2'];
                $this->values['nationality2'] = $this->values['nationality3'];
                $this->values['nationality3'] = NULL;
            }

            XDB::execute("UPDATE  profiles
                             SET  nationality1 = {?}, nationality2 = {?}, nationality3 = {?}, birthdate = {?},
                                  freetext = {?}, freetext_pub = {?}
                           WHERE  user_id = {?}",
                          $this->values['nationality1'], $this->values['nationality2'], $this->values['nationality3'],
                          preg_replace('@(\d{2})/(\d{2})/(\d{4})@', '\3-\2-\1', $this->values['birthdate']),
                          $this->values['freetext'], $this->values['freetext_pub'],
                          $this->pid());
        }
        if ($this->changed['email_directory']) {
            $new_email = ($this->values['email_directory'] == "new@example.org") ?
                $this->values['email_directory_new'] : $this->values['email_directory'];
            if ($new_email == "") {
                $new_email = NULL;
            }
            XDB::execute("REPLACE INTO  profile_directory (uid, email_directory)
                                VALUES  ({?}, {?})",
                         $this->pid(), $new_email);
        }
        if ($this->changed['photo_pub']) {
            XDB::execute("UPDATE  photo
                             SET  pub = {?}
                           WHERE  uid = {?}",
                         $this->values['photo_pub'], $this->pid());
        }

        if ($this->changed['yourself'] || $this->changed['search_names']) {
            if ($this->changed['search_names']) {
                XDB::execute("DELETE FROM  s
                                    USING  profile_name_search      AS s
                               INNER JOIN  profile_name_search_enum AS e ON (s.typeid = e.id)
                                    WHERE  s.pid = {?} AND NOT FIND_IN_SET('not_displayed', e.flags)",
                             $this->pid());
                $search_names = array();
                foreach ($this->values['search_names'] as $sn) {
                    if ($sn['name'] != '') {
                        if ($sn['particle']) {
                            list($particle, $name) = explode(' ', $sn['name'], 2);
                            if (!$name) {
                                list($particle, $name) = explode('\'', $sn['name'], 2);
                            }
                        } else {
                            $particle = '';
                            $name     = $sn['name'];
                        }
                        $particle   = trim($particle);
                        $name       = trim($name);
                        $sn['name'] = trim($sn['name']);
                        XDB::execute("INSERT INTO  profile_name_search (particle, name, typeid, pid)
                                           VALUES  ({?}, {?}, {?}, {?})",
                                     $particle, $name, $sn['typeid'], $this->pid());
                        if (!isset($search_names[$sn['typeid']])) {
                            $search_names[$sn['typeid']] = array($sn['name'], $name);
                        } else {
                            $search_names[$sn['typeid']] = array_merge($search_names[$sn['typeid']], array($name));
                        }
                    }
                }

                require_once 'name.func.inc.php';
                $sn_types_public  = build_types('public');
                $sn_types_private = build_types('private');
                $full_name      = build_full_name($search_names, $sn_types_public);
                $directory_name = build_directory_name($search_names, $sn_types_public, $full_name);
                $short_name     = short_name($search_names, $sn_types_public);
                $sort_name      = short_name($search_names, $sn_types_public);
                $this->values['public_name']  = build_public_name($search_names, $sn_types_public, $full_name);
                $this->values['private_name'] = $public_name . build_private_name($search_names, $sn_types_private);
                XDB::execute("UPDATE  profile_display
                                 SET  yourself = {?}, public_name = {?}, private_name = {?},
                                      directory_name = {?}, short_name = {?}, sort_name = {?}
                               WHERE  pid = {?}",
                             $this->values['yourself'], $this->values['public_name'],
                             $this->values['private_name'], $directory_name, $short_name,
                             $sort_name, $this->pid());
                /*if ($this->changed['search_names']) {
                    require_once('user.func.inc.php');
                    user_reindex(S::v('uid'));
                }*/
            } else {
                XDB::execute("UPDATE  profile_display
                                 SET  yourself = {?}
                               WHERE  pid = {?}",
                             $this->values['yourself'], $this->pid());
            }
        }
        if ($this->changed['promo_display']) {
            XDB::execute("UPDATE  profile_display
                             SET  promo = {?}
                           WHERE  pid = {?}",
                         $this->values['promo_display'], $this->pid());
        }
    }

    public function _prepare(PlPage &$page, $id)
    {
        require_once "education.func.inc.php";

        $res = XDB::iterator("SELECT  id, field
                                FROM  profile_education_field_enum
                            ORDER BY  field");
        $page->assign('edu_fields', $res->fetchAllAssoc());

        require_once "emails.combobox.inc.php";
        fill_email_combobox($page, $this->owner, $this->profile);

        $res = XDB::iterator("SELECT  nw.network_type AS type, nw.name
                                FROM  profile_networking_enum AS nw
                            ORDER BY  name");
        $page->assign('network_list', $res->fetchAllAssoc());
    }
}

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