<?php
/*
 * Laconica - a distributed open-source microblogging tool
 * Copyright (C) 2008, Controlez-Vous, Inc.
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Affero General Public License as published by
 * the Free Software Foundation, either version 3 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 Affero General Public License for more details.
 *
 * You should have received a copy of the GNU Affero General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 */

if (!defined('LACONICA')) { exit(1); }

require_once(INSTALLDIR.'/lib/settingsaction.php');

class ProfilesettingsAction extends SettingsAction {

    function get_instructions()
    {
        return _('You can update your personal profile info here '.
                  'so people know more about you.');
    }

    function show_form($msg=null, $success=false)
    {
        $this->form_header(_('Profile settings'), $msg, $success);
        $this->show_settings_form();
        common_element('h2', null, _('Avatar'));
        $this->show_avatar_form();
        common_element('h2', null, _('Change password'));
        $this->show_password_form();
//        common_element('h2', null, _('Delete my account'));
//        $this->show_delete_form();
        common_show_footer();
    }

    function handle_post()
    {

        # CSRF protection

        $token = $this->trimmed('token');
        if (!$token || $token != common_session_token()) {
            $this->show_form(_('There was a problem with your session token. Try again, please.'));
            return;
        }

        if ($this->arg('save')) {
            $this->save_profile();
        } else if ($this->arg('upload')) {
            $this->upload_avatar();
        } else if ($this->arg('changepass')) {
            $this->change_password();
        }

    }

    function show_settings_form()
    {

        $user = common_current_user();
        $profile = $user->getProfile();

        common_element_start('form', array('method' => 'POST',
                                           'id' => 'profilesettings',
                                           'action' =>
                                           common_local_url('profilesettings')));
        common_hidden('token', common_session_token());
        
        # too much common patterns here... abstractable?
        
        common_input('nickname', _('Nickname'),
                     ($this->arg('nickname')) ? $this->arg('nickname') : $profile->nickname,
                     _('1-64 lowercase letters or numbers, no punctuation or spaces'));
        common_input('fullname', _('Full name'),
                     ($this->arg('fullname')) ? $this->arg('fullname') : $profile->fullname);
        common_input('homepage', _('Homepage'),
                     ($this->arg('homepage')) ? $this->arg('homepage') : $profile->homepage,
                     _('URL of your homepage, blog, or profile on another site'));
        common_textarea('bio', _('Bio'),
                        ($this->arg('bio')) ? $this->arg('bio') : $profile->bio,
                        _('Describe yourself and your interests in 140 chars'));
        common_input('location', _('Location'),
                     ($this->arg('location')) ? $this->arg('location') : $profile->location,
                     _('Where you are, like "City, State (or Region), Country"'));
        common_input('tags', _('Tags'),
                     ($this->arg('tags')) ? $this->arg('tags') : implode(' ', $user->getSelfTags()),
                     _('Tags for yourself (letters, numbers, -, ., and _), comma- or space- separated'));

        $language = common_language();
        common_dropdown('language', _('Language'), get_nice_language_list(), _('Preferred language'), true, $language);
        $timezone = common_timezone();
        $timezones = array();
        foreach(DateTimeZone::listIdentifiers() as $k => $v) {
            $timezones[$v] = $v;
        }
        common_dropdown('timezone', _('Timezone'), $timezones, _('What timezone are you normally in?'), true, $timezone);

        common_checkbox('autosubscribe', _('Automatically subscribe to whoever subscribes to me (best for non-humans)'),
                        ($this->arg('autosubscribe')) ? $this->boolean('autosubscribe') : $user->autosubscribe);

        common_submit('save', _('Save'));

        common_element_end('form');


    }

    function show_avatar_form()
    {

        $user = common_current_user();
        $profile = $user->getProfile();

        if (!$profile) {
            common_log_db_error($user, 'SELECT', __FILE__);
            $this->server_error(_('User without matching profile'));
            return;
        }
        
        $original = $profile->getOriginalAvatar();


        common_element_start('form', array('enctype' => 'multipart/form-data',
                                           'method' => 'POST',
                                           'id' => 'avatar',
                                           'action' =>
                                           common_local_url('profilesettings')));
        common_hidden('token', common_session_token());

        if ($original) {
            common_element('img', array('src' => $original->url,
                                        'class' => 'avatar original',
                                        'width' => $original->width,
                                        'height' => $original->height,
                                        'alt' => $user->nickname));
        }

        $avatar = $profile->getAvatar(AVATAR_PROFILE_SIZE);

        if ($avatar) {
            common_element('img', array('src' => $avatar->url,
                                        'class' => 'avatar profile',
                                        'width' => AVATAR_PROFILE_SIZE,
                                        'height' => AVATAR_PROFILE_SIZE,
                                        'alt' => $user->nickname));
        }


        common_element('input', array('name' => 'MAX_FILE_SIZE',
                                      'type' => 'hidden',
                                      'id' => 'MAX_FILE_SIZE',
                                      'value' => MAX_AVATAR_SIZE));

        common_element_start('p');


        common_element('input', array('name' => 'avatarfile',
                                      'type' => 'file',
                                      'id' => 'avatarfile'));
        common_element_end('p');

        common_submit('upload', _('Upload'));
        common_element_end('form');

    }

    function show_password_form()
    {

        $user = common_current_user();
        common_element_start('form', array('method' => 'POST',
                                           'id' => 'password',
                                           'action' =>
                                           common_local_url('profilesettings')));

        common_hidden('token', common_session_token());

        # Users who logged in with OpenID won't have a pwd
        if ($user->password) {
            common_password('oldpassword', _('Old password'));
        }
        common_password('newpassword', _('New password'),
                        _('6 or more characters'));
        common_password('confirm', _('Confirm'),
                        _('same as password above'));
        common_submit('changepass', _('Change'));
        common_element_end('form');
    }

    function save_profile()
    {
        $nickname = $this->trimmed('nickname');
        $fullname = $this->trimmed('fullname');
        $homepage = $this->trimmed('homepage');
        $bio = $this->trimmed('bio');
        $location = $this->trimmed('location');
        $autosubscribe = $this->boolean('autosubscribe');
        $language = $this->trimmed('language');
        $timezone = $this->trimmed('timezone');
        $tagstring = $this->trimmed('tags');
        
        # Some validation

        if (!Validate::string($nickname, array('min_length' => 1,
                                               'max_length' => 64,
                                               'format' => VALIDATE_NUM . VALIDATE_ALPHA_LOWER))) {
            $this->show_form(_('Nickname must have only lowercase letters and numbers and no spaces.'));
            return;
        } else if (!User::allowed_nickname($nickname)) {
            $this->show_form(_('Not a valid nickname.'));
            return;
        } else if (!is_null($homepage) && (strlen($homepage) > 0) &&
                   !Validate::uri($homepage, array('allowed_schemes' => array('http', 'https')))) {
            $this->show_form(_('Homepage is not a valid URL.'));
            return;
        } else if (!is_null($fullname) && strlen($fullname) > 255) {
            $this->show_form(_('Full name is too long (max 255 chars).'));
            return;
        } else if (!is_null($bio) && strlen($bio) > 140) {
            $this->show_form(_('Bio is too long (max 140 chars).'));
            return;
        } else if (!is_null($location) && strlen($location) > 255) {
            $this->show_form(_('Location is too long (max 255 chars).'));
            return;
        }  else if (is_null($timezone) || !in_array($timezone, DateTimeZone::listIdentifiers())) {
            $this->show_form(_('Timezone not selected.'));
            return;
        } else if ($this->nickname_exists($nickname)) {
            $this->show_form(_('Nickname already in use. Try another one.'));
            return;
        } else if (!is_null($language) && strlen($language) > 50) {
            $this->show_form(_('Language is too long (max 50 chars).'));
            return;
        }

        if ($tagstring) {
            $tags = array_map('common_canonical_tag', preg_split('/[\s,]+/', $tagstring));
        } else {
            $tags = array();
        }
            
        foreach ($tags as $tag) {
            if (!common_valid_profile_tag($tag)) {
                $this->show_form(sprintf(_('Invalid tag: "%s"'), $tag));
                return;
            }
        }
        
        $user = common_current_user();

        $user->query('BEGIN');

        if ($user->nickname != $nickname ||
            $user->language != $language ||
            $user->timezone != $timezone) {

            common_debug('Updating user nickname from ' . $user->nickname . ' to ' . $nickname,
                         __FILE__);
            common_debug('Updating user language from ' . $user->language . ' to ' . $language,
                         __FILE__);
            common_debug('Updating user timezone from ' . $user->timezone . ' to ' . $timezone,
                         __FILE__);

            $original = clone($user);

            $user->nickname = $nickname;
            $user->language = $language;
            $user->timezone = $timezone;

            $result = $user->updateKeys($original);

            if ($result === false) {
                common_log_db_error($user, 'UPDATE', __FILE__);
                common_server_error(_('Couldn\'t update user.'));
                return;
            } else {
                # Re-initialize language environment if it changed
                common_init_language();
            }
        }

        # XXX: XOR

        if ($user->autosubscribe ^ $autosubscribe) {

            $original = clone($user);

            $user->autosubscribe = $autosubscribe;

            $result = $user->update($original);

            if ($result === false) {
                common_log_db_error($user, 'UPDATE', __FILE__);
                common_server_error(_('Couldn\'t update user for autosubscribe.'));
                return;
            }
        }

        $profile = $user->getProfile();

        $orig_profile = clone($profile);

        $profile->nickname = $user->nickname;
        $profile->fullname = $fullname;
        $profile->homepage = $homepage;
        $profile->bio = $bio;
        $profile->location = $location;
        $profile->profileurl = common_profile_url($nickname);

        common_debug('Old profile: ' . common_log_objstring($orig_profile), __FILE__);
        common_debug('New profile: ' . common_log_objstring($profile), __FILE__);

        $result = $profile->update($orig_profile);

        if (!$result) {
            common_log_db_error($profile, 'UPDATE', __FILE__);
            common_server_error(_('Couldn\'t save profile.'));
            return;
        }

        # Set the user tags
        
        $result = $user->setSelfTags($tags);

        if (!$result) {
            common_server_error(_('Couldn\'t save tags.'));
            return;
        }
        
        $user->query('COMMIT');

        common_broadcast_profile($profile);

        $this->show_form(_('Settings saved.'), true);
    }


    function upload_avatar()
    {
        switch ($_FILES['avatarfile']['error']) {
         case UPLOAD_ERR_OK: # success, jump out
            break;
         case UPLOAD_ERR_INI_SIZE:
         case UPLOAD_ERR_FORM_SIZE:
            $this->show_form(_('That file is too big.'));
            return;
         case UPLOAD_ERR_PARTIAL:
            @unlink($_FILES['avatarfile']['tmp_name']);
            $this->show_form(_('Partial upload.'));
            return;
         default:
            $this->show_form(_('System error uploading file.'));
            return;
        }

        $info = @getimagesize($_FILES['avatarfile']['tmp_name']);

        if (!$info) {
            @unlink($_FILES['avatarfile']['tmp_name']);
            $this->show_form(_('Not an image or corrupt file.'));
            return;
        }

        switch ($info[2]) {
         case IMAGETYPE_GIF:
         case IMAGETYPE_JPEG:
         case IMAGETYPE_PNG:
            break;
         default:
            $this->show_form(_('Unsupported image file format.'));
            return;
        }

        $user = common_current_user();
        $profile = $user->getProfile();

        if ($profile->setOriginal($_FILES['avatarfile']['tmp_name'])) {
            $this->show_form(_('Avatar updated.'), true);
        } else {
            $this->show_form(_('Failed updating avatar.'));
        }

        @unlink($_FILES['avatarfile']['tmp_name']);
    }

    function nickname_exists($nickname)
    {
        $user = common_current_user();
        $other = User::staticGet('nickname', $nickname);
        if (!$other) {
            return false;
        } else {
            return $other->id != $user->id;
        }
    }

    function change_password()
    {

        $user = common_current_user();
        assert(!is_null($user)); # should already be checked

        # FIXME: scrub input

        $newpassword = $this->arg('newpassword');
        $confirm = $this->arg('confirm');
        $token = $this->arg('token');

        if (0 != strcmp($newpassword, $confirm)) {
            $this->show_form(_('Passwords don\'t match.'));
            return;
        }

        if ($user->password) {
            $oldpassword = $this->arg('oldpassword');

            if (!common_check_user($user->nickname, $oldpassword)) {
                $this->show_form(_('Incorrect old password'));
                return;
            }
        }

        $original = clone($user);

        $user->password = common_munge_password($newpassword, $user->id);

        $val = $user->validate();
        if ($val !== true) {
            $this->show_form(_('Error saving user; invalid.'));
            return;
        }

        if (!$user->update($original)) {
            common_server_error(_('Can\'t save new password.'));
            return;
        }

        $this->show_form(_('Password saved.'), true);
    }
}