<?php
/***************************************************************************
 *  Copyright (C) 2003-2008 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 ProfileSearchName implements ProfileSetting
{

    public function __construct()
    {
    }

    public function value(ProfilePage &$page, $field, $value, &$success)
    {
    }

    public function save(ProfilePage &$page, $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",
                                 S::v('uid'));
            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)",
                     S::i('uid'));
        foreach ($value as $eduid=>&$edu) {
            if ($edu['eduid'] != '') {
                XDB::execute("INSERT INTO  profile_education
                                      SET  id = {?}, uid = {?}, eduid = {?}, degreeid = {?},
                                           fieldid = {?}, grad_year = {?}, program = {?}",
                             $eduid, S::i('uid'), $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 = {?}",
                                 S::i('uid'));
            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 = {?}",
                     S::i('uid'));
        if (!count($value)) {
            return;
        }
        $insert = array();
        foreach ($value as $id=>$network) {
            XDB::execute("INSERT INTO  profile_networking (uid, nwid, network_type, address, pub)
                               VALUES  ({?}, {?}, {?}, {?}, {?})",
                         S::i('uid'), $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['nom']    = $this->settings['prenom']
                                  = new ProfileNom();
        $this->settings['naissance'] = new ProfileDate();
        $this->settings['freetext_pub']
                                  = $this->settings['photo_pub']
                                  = new ProfilePub();
        $this->settings['freetext']
                                  = $this->settings['nationalite']
                                  = $this->settings['nationalite2']
                                  = $this->settings['nationalite3']
                                  = $this->settings['nick']
                                  = $this->settings['yourself']
                                  = $this->settings['display_name']
                                  = $this->settings['sort_name']
                                  = $this->settings['tooltip_name']
                                  = $this->settings['promo_display']
                                  = 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('nom' => true, 'freetext' => true, 'tels' => true,
                              'networking' => true, 'edus' => true,
                              'nationalite' => true, 'nationalite2' => true,
                              'nationalite3' => true, 'nick' => true);
    }

    protected function _fetchData()
    {
        // Checkout all data...
        $res = XDB::query("SELECT  p.promo_display, e.entry_year AS entry_year, e.grad_year AS grad_year,
                                   u.nom_usage, u.nationalite, u.nationalite2, u.nationalite3, u.naissance,
                                   t.display_tel as mobile, t.pub as mobile_pub,
                                   d.email_directory as email_directory,
                                   q.profile_freetext as freetext, q.profile_freetext_pub as freetext_pub,
                                   q.profile_nick as nick, q.profile_from_ax as synchro_ax, u.matricule_ax,
                                   n.yourself, n.display AS display_name, n.sort AS sort_name,
                                   n.tooltip AS tooltip_name
                             FROM  auth_user_md5         AS u
                       INNER JOIN  auth_user_quick       AS q ON (u.user_id = q.user_id)
                       INNER JOIN  profile_names_display AS n ON (n.user_id = u.user_id)
                       INNER JOIN  profile_display       AS p ON (p.uid = u.user_id)
                       INNER JOIN  profile_education     AS e ON (e.uid = u.user_id AND FIND_IN_SET('primary', e.flags))
                        LEFT JOIN  profile_phones        AS t ON (u.user_id = t.uid AND link_type = 'user')
                        LEFT JOIN  profile_directory     AS d ON (d.uid = u.user_id)
                            WHERE  u.user_id = {?}", S::v('uid', -1));
        $this->values = $res->fetchOneAssoc();

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

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

        // Retreive search names info
        $this->values['search_names'] = XDB::iterator("
                              SELECT  sn.search_name, sn.name_type, sn.pub, sn.sn_id
                                FROM  profile_names_search AS sn
                               WHERE  sn.user_id = {?}
                            ORDER BY  sn.name_type, search_score, search_name",
                          S::v('uid'));

        // 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['nationalite'] || $this->changed['nationalite2'] || $this->changed['nationalite3']
            || $this->changed['nom'] || $this->changed['prenom'] || $this->changed['naissance']) {
            if ($this->values['nationalite3'] == "") {
                $this->values['nationalite3'] = NULL;
            }
            if ($this->values['nationalite2'] == "") {
                $this->values['nationalite2'] = $this->values['nationalite3'];
                $this->values['nationalite3'] = NULL;
            }
            if ($this->values['nationalite'] == "") {
                $this->values['nationalite']  = $this->values['nationalite2'];
                $this->values['nationalite2'] = $this->values['nationalite3'];
                $this->values['nationalite3'] = NULL;
            }

            XDB::execute("UPDATE  auth_user_md5
                             SET  nationalite = {?}, nationalite2 = {?}, nationalite3 = {?}, nom={?}, prenom={?}, naissance={?}
                           WHERE  user_id = {?}",
                          $this->values['nationalite'], $this->values['nationalite2'], $this->values['nationalite3'],
                          $this->values['nom'], $this->values['prenom'],
                          preg_replace('@(\d{2})/(\d{2})/(\d{4})@', '\3-\2-\1', $this->values['naissance']),
                          S::v('uid'));
        }
        if ($this->changed['nick'] || $this->changed['freetext'] || $this->changed['freetext_pub'] || $this->changed['synchro_ax']) {
            XDB::execute("UPDATE  auth_user_quick
                             SET  profile_nick= {?},
                                  profile_freetext={?},
                                  profile_freetext_pub={?}, profile_from_ax = {?} 
                           WHERE  user_id = {?}", 
                         $this->values['nick'],
                         $this->values['freetext'], $this->values['freetext_pub'],
                         $this->values['synchro_ax'], S::v('uid'));
        }
        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  ({?}, {?})",
                         S::v('uid'), $new_email);
        }
        if ($this->changed['nick']) {
            require_once('user.func.inc.php');
            user_reindex(S::v('uid'));
        }
        if ($this->changed['photo_pub']) {
            XDB::execute("UPDATE  photo
                             SET  pub = {?}
                           WHERE  uid = {?}",
                         $this->values['photo_pub'], S::v('uid'));
        }
        if ($this->changed['yourself'] || $this->changed['sort_name'] ||
            $this-> changed['display_name'] || $this->changed['tooltip_name']) {
            XDB::execute("UPDATE  profile_names_display AS n
                             SET  n.yourself = {?},
                                  n.sort = {?}, ". // SET
                                 "n.display = {?}, ". // SET
                                 "n.tooltip = {?} ". // SET
                          "WHERE  n.user_id = {?}",
                         $this->values['yourself'],
                         $this->values['sort_name'],
                         $this->values['display_name'],
                         $this->values['tooltip_name'],
                         S::v('uid'));
        }
        if ($this->changed['promo_display']) {
            XDB::execute("UPDATE  profile_display
                             SET  promo_display = {?}
                           WHERE  uid = {?}",
                         $this->values['promo_display'], S::v('uid'));
        }
    }

    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);

        $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:
?>