<?php

use Engelsystem\ShiftSignupState;

/**
 * @param array $shift
 * @return string
 */
function shift_link($shift)
{
    $link = page_link_to('shifts', ['action' => 'view']);
    if (isset($shift['SID'])) {
        $link .= '&shift_id=' . $shift['SID'];
    }
    return $link;
}

/**
 * @param array $shift
 * @return string
 */
function shift_delete_link($shift)
{
    return page_link_to('user_shifts', ['delete_shift' => $shift['SID']]);
}

/**
 * @param array $shift
 * @return string
 */
function shift_edit_link($shift)
{
    return page_link_to('user_shifts', ['edit_shift' => $shift['SID']]);
}

/**
 * Edit a single shift.
 *
 * @return string
 */
function shift_edit_controller()
{
    global $privileges;

    // Schicht bearbeiten
    $msg = '';
    $valid = true;
    $request = request();

    if (!in_array('admin_shifts', $privileges)) {
        redirect(page_link_to('user_shifts'));
    }

    if (!$request->has('edit_shift') || !test_request_int('edit_shift')) {
        redirect(page_link_to('user_shifts'));
    }
    $shift_id = $request->input('edit_shift');

    $shift = Shift($shift_id);

    $room = select_array(Rooms(), 'RID', 'Name');
    $angeltypes = select_array(AngelTypes(), 'id', 'name');
    $shifttypes = select_array(ShiftTypes(), 'id', 'name');

    $needed_angel_types = select_array(NeededAngelTypes_by_shift($shift_id), 'angel_type_id', 'count');
    foreach (array_keys($angeltypes) as $angeltype_id) {
        if (!isset($needed_angel_types[$angeltype_id])) {
            $needed_angel_types[$angeltype_id] = 0;
        }
    }

    $shifttype_id = $shift['shifttype_id'];
    $title = $shift['title'];
    $rid = $shift['RID'];
    $start = $shift['start'];
    $end = $shift['end'];

    if ($request->has('submit')) {
        // Name/Bezeichnung der Schicht, darf leer sein
        $title = strip_request_item('title');

        // Auswahl der sichtbaren Locations für die Schichten
        if (
            $request->has('rid')
            && preg_match('/^\d+$/', $request->input('rid'))
            && isset($room[$request->input('rid')])
        ) {
            $rid = $request->input('rid');
        } else {
            $valid = false;
            $msg .= error(_('Please select a room.'), true);
        }

        if ($request->has('shifttype_id') && isset($shifttypes[$request->input('shifttype_id')])) {
            $shifttype_id = $request->input('shifttype_id');
        } else {
            $valid = false;
            $msg .= error(_('Please select a shifttype.'), true);
        }

        if ($request->has('start') && $tmp = parse_date('Y-m-d H:i', $request->input('start'))) {
            $start = $tmp;
        } else {
            $valid = false;
            $msg .= error(_('Please enter a valid starting time for the shifts.'), true);
        }

        if ($request->has('end') && $tmp = parse_date('Y-m-d H:i', $request->input('end'))) {
            $end = $tmp;
        } else {
            $valid = false;
            $msg .= error(_('Please enter a valid ending time for the shifts.'), true);
        }

        if ($start >= $end) {
            $valid = false;
            $msg .= error(_('The ending time has to be after the starting time.'), true);
        }

        foreach ($needed_angel_types as $needed_angeltype_id => $count) {
            $needed_angel_types[$needed_angeltype_id] = 0;

            $queryKey = 'type_' . $needed_angeltype_id;
            if ($request->has($queryKey)) {
                if (test_request_int($queryKey)) {
                    $needed_angel_types[$needed_angeltype_id] = trim($request->input($queryKey));
                } else {
                    $valid = false;
                    $msg .= error(sprintf(
                        _('Please check your input for needed angels of type %s.'),
                        $angeltypes[$needed_angeltype_id]
                    ), true);
                }
            }
        }

        if ($valid) {
            $shift['shifttype_id'] = $shifttype_id;
            $shift['title'] = $title;
            $shift['RID'] = $rid;
            $shift['start'] = $start;
            $shift['end'] = $end;

            $result = Shift_update($shift);
            if ($result === false) {
                engelsystem_error('Unable to update shift.');
            }
            NeededAngelTypes_delete_by_shift($shift_id);
            $needed_angel_types_info = [];
            foreach ($needed_angel_types as $type_id => $count) {
                NeededAngelType_add($shift_id, $type_id, null, $count);
                $needed_angel_types_info[] = $angeltypes[$type_id] . ': ' . $count;
            }

            engelsystem_log(
                'Updated shift \'' . $shifttypes[$shifttype_id] . ', ' . $title
                . '\' from ' . date('Y-m-d H:i', $start)
                . ' to ' . date('Y-m-d H:i', $end)
                . ' with angel types ' . join(', ', $needed_angel_types_info)
            );
            success(_('Shift updated.'));

            redirect(shift_link([
                'SID' => $shift_id
            ]));
        }
    }

    $angel_types_spinner = '';
    foreach ($angeltypes as $angeltype_id => $angeltype_name) {
        $angel_types_spinner .= form_spinner('type_' . $angeltype_id, $angeltype_name,
            $needed_angel_types[$angeltype_id]);
    }

    return page_with_title(
        shifts_title(),
        [
            msg(),
            '<noscript>' . info(_('This page is much more comfortable with javascript.'), true) . '</noscript>',
            form([
                form_select('shifttype_id', _('Shifttype'), $shifttypes, $shifttype_id),
                form_text('title', _('Title'), $title),
                form_select('rid', _('Room:'), $room, $rid),
                form_text('start', _('Start:'), date('Y-m-d H:i', $start)),
                form_text('end', _('End:'), date('Y-m-d H:i', $end)),
                '<h2>' . _('Needed angels') . '</h2>',
                $angel_types_spinner,
                form_submit('submit', _('Save'))
            ])
        ]
    );
}

/**
 * @return string
 */
function shift_delete_controller()
{
    global $privileges;
    $request = request();

    if (!in_array('user_shifts_admin', $privileges)) {
        redirect(page_link_to('user_shifts'));
    }

    // Schicht komplett löschen (nur für admins/user mit user_shifts_admin privileg)
    if (!$request->has('delete_shift') || !preg_match('/^\d*$/', $request->input('delete_shift'))) {
        redirect(page_link_to('user_shifts'));
    }
    $shift_id = $request->input('delete_shift');

    $shift = Shift($shift_id);
    if ($shift == null) {
        redirect(page_link_to('user_shifts'));
    }

    // Schicht löschen bestätigt
    if ($request->has('delete')) {
        Shift_delete($shift_id);

        engelsystem_log(
            'Deleted shift ' . $shift['name']
            . ' from ' . date('Y-m-d H:i', $shift['start'])
            . ' to ' . date('Y-m-d H:i', $shift['end'])
        );
        success(_('Shift deleted.'));
        redirect(page_link_to('user_shifts'));
    }

    return page_with_title(shifts_title(), [
        error(sprintf(
            _('Do you want to delete the shift %s from %s to %s?'),
            $shift['name'],
            date('Y-m-d H:i', $shift['start']),
            date('H:i', $shift['end'])
        ), true),
        '<a class="button" href="'
        . page_link_to('user_shifts', ['delete_shift' => $shift_id, 'delete' => 1]) .
        '">' . _('delete') . '</a>'
    ]);
}

/**
 * @return array
 */
function shift_controller()
{
    global $user, $privileges;
    $request = request();

    if (!in_array('user_shifts', $privileges)) {
        redirect(page_link_to('?'));
    }

    if (!$request->has('shift_id')) {
        redirect(page_link_to('user_shifts'));
    }

    $shift = Shift($request->input('shift_id'));
    if ($shift == null) {
        error(_('Shift could not be found.'));
        redirect(page_link_to('user_shifts'));
    }

    $shifttype = ShiftType($shift['shifttype_id']);
    $room = Room($shift['RID']);
    $angeltypes = AngelTypes();
    $user_shifts = Shifts_by_user($user);

    $shift_signup_state = new ShiftSignupState(ShiftSignupState::OCCUPIED, 0);
    foreach ($angeltypes as &$angeltype) {
        $needed_angeltype = NeededAngeltype_by_Shift_and_Angeltype($shift, $angeltype);
        $shift_entries = ShiftEntries_by_shift_and_angeltype($shift['SID'], $angeltype['id']);

        $angeltype_signup_state = Shift_signup_allowed(
            $user,
            $shift,
            $angeltype,
            null,
            $user_shifts,
            $needed_angeltype,
            $shift_entries
        );
        if ($shift_signup_state == null) {
            $shift_signup_state = $angeltype_signup_state;
        } else {
            $shift_signup_state->combineWith($angeltype_signup_state);
        }
        $angeltype['shift_signup_state'] = $angeltype_signup_state;
    }

    return [
        $shift['name'],
        Shift_view($shift, $shifttype, $room, $angeltypes, $shift_signup_state)
    ];
}

/**
 * @return array|false
 */
function shifts_controller()
{
    $request = request();
    if (!$request->has('action')) {
        redirect(page_link_to('user_shifts'));
    }

    switch ($request->input('action')) {
        case 'view':
            return shift_controller();
        case 'next':
            return shift_next_controller();
        default:
            redirect(page_link_to('?'));
    }

    return false;
}

/**
 * Redirects the user to his next shift.
 *
 * @return false
 */
function shift_next_controller()
{
    global $user, $privileges;

    if (!in_array('user_shifts', $privileges)) {
        redirect(page_link_to('?'));
    }

    $upcoming_shifts = ShiftEntries_upcoming_for_user($user);

    if (!empty($upcoming_shifts)) {
        redirect(shift_link($upcoming_shifts[0]));
    }

    redirect(page_link_to('user_shifts'));
    exit;
}

/**
 * Export all shifts using api-key.
 */
function shifts_json_export_all_controller()
{
    $api_key = config('api_key');
    $request = request();

    if (empty($api_key)) {
        engelsystem_error('Config contains empty apikey.');
    }

    if (!$request->has('api_key')) {
        engelsystem_error('Missing parameter api_key.');
    }

    if ($request->input('api_key') != $api_key) {
        engelsystem_error('Invalid api_key.');
    }

    $shifts_source = Shifts();
    if ($shifts_source === false) {
        engelsystem_error('Unable to load shifts.');
    }

    header('Content-Type: application/json; charset=utf-8');
    raw_output(json_encode($shifts_source));
}

/**
 * Export filtered shifts via JSON.
 * (Like iCal Export or shifts view)
 */
function shifts_json_export_controller()
{
    global $user;
    $request = request();

    if (!$request->has('key') || !preg_match('/^[\da-f]{32}$/', $request->input('key'))) {
        engelsystem_error('Missing key.');
    }

    $key = $request->input('key');

    $user = User_by_api_key($key);
    if ($user == null) {
        engelsystem_error('Key invalid.');
    }
    if (!in_array('shifts_json_export', privileges_for_user($user['UID']))) {
        engelsystem_error('No privilege for shifts_json_export.');
    }

    $shifts = load_ical_shifts();

    header('Content-Type: application/json; charset=utf-8');
    raw_output(json_encode($shifts));
}

/**
 * Returns users shifts to export.
 *
 * @return array
 */
function load_ical_shifts()
{
    global $user;

    return Shifts_by_user($user);
}