<?php

/* For licensing terms, see /license.txt */

use Chamilo\CoreBundle\Entity\Session;

$cidReset = true;

require_once __DIR__.'/../inc/global.inc.php';

// setting the section (for the tabs)
$this_section = SECTION_PLATFORM_ADMIN;

api_protect_admin_script(true);

$session_id = isset($_GET['session_id']) ? intval($_GET['session_id']) : 0;

$formSent = 0;
$errorMsg = '';

// Database Table Definitions
$tblUser = Database::get_main_table(TABLE_MAIN_USER);
$tblCourse = Database::get_main_table(TABLE_MAIN_COURSE);
$tblCourseRelUser = Database::get_main_table(TABLE_MAIN_COURSE_USER);
$tblSession = Database::get_main_table(TABLE_MAIN_SESSION);
$tblSessionRelUser = Database::get_main_table(TABLE_MAIN_SESSION_USER);
$tblSessionRelCourse = Database::get_main_table(TABLE_MAIN_SESSION_COURSE);
$tblSessionRelCourseRelUser = Database::get_main_table(TABLE_MAIN_SESSION_COURSE_USER);

$archivePath = api_get_path(SYS_ARCHIVE_PATH);
$archiveURL = api_get_path(WEB_CODE_PATH).'course_info/download.php?archive_path=&archive=';

$tool_name = get_lang('Export sessions list');
$interbreadcrumb[] = ['url' => 'session_list.php', 'name' => get_lang('Session list')];
set_time_limit(0);
if (isset($_POST['formSent'])) {
    $formSent = $_POST['formSent'];
    $file_type = isset($_POST['file_type']) ? $_POST['file_type'] : 'csv';
    $session_id = $_POST['session_id'];
    if (empty($session_id)) {
        $sql = "SELECT
                    s.id,
                    s.name,
                    u.username,
                    s.access_start_date,
                    s.access_end_date,
                    s.visibility,
                    s.session_category_id
                FROM $tblSession s
                INNER JOIN $tblSessionRelUser sru
                    ON (s.id = sru.session_id AND sru.relation_type = ".Session::GENERAL_COACH.")
                INNER JOIN $tblUser u
                ON u.id = sru.user_id
                ORDER BY s.id";

        if (api_is_multiple_url_enabled()) {
            $tbl_session_rel_access_url = Database::get_main_table(TABLE_MAIN_ACCESS_URL_REL_SESSION);
            $access_url_id = api_get_current_access_url_id();
            if (-1 != $access_url_id) {
                $sql = "SELECT s.id, s.name,u.username,s.access_start_date,s.access_end_date,s.visibility,s.session_category_id
                    FROM $tblSession s
                    INNER JOIN $tbl_session_rel_access_url as session_rel_url
                    ON (s.id= session_rel_url.session_id)
                    INNER JOIN $tblSessionRelUser sru
                        ON (s.id = sru.session_id AND sru.relation_type = ".Session::GENERAL_COACH.")
                    INNER JOIN $tblUser u ON (u.id = sru.user_id)
                    WHERE session_rel_url.access_url_id = $access_url_id
                    ORDER BY s.id";
            }
        }

        $result = Database::query($sql);
    } else {
        $sql = "SELECT s.id,s.name,u.username,s.access_start_date,s.access_end_date,s.visibility,s.session_category_id
                FROM $tblSession s
                INNER JOIN $tblSessionRelUser sru
                    ON (s.id = sru.session_id AND sru.relation_type = ".Session::GENERAL_COACH.")
                INNER JOIN $tblUser u
                    ON u.id = sru.user_id
                WHERE s.id='$session_id'";
        $result = Database::query($sql);
    }

    if (Database::num_rows($result)) {
        $sessionListToExport = [];
        if (in_array($file_type, ['csv', 'xls'])) {
            $archiveFile = 'export_sessions_'.$session_id.'_'.api_get_local_time();
            $cvs = true;
            $sessionListToExport[] = [
                'SessionName',
                'Coach',
                'DateStart',
                'DateEnd',
                'Visibility',
                'SessionCategory',
                'Users',
                'Courses',
            ];
        } else {
            if (!file_exists($archivePath)) {
                mkdir($archivePath, api_get_permissions_for_new_directories(), true);
            }

            if (!file_exists($archivePath.'index.html')) {
                $fp = fopen($archivePath.'index.html', 'w');
                fputs($fp, '<html><head></head><body></body></html>');
                fclose($fp);
            }

            $archiveFile = 'export_sessions_'.$session_id.'_'.api_get_local_time().'.'.$file_type;
            while (file_exists($archivePath.$archiveFile)) {
                $archiveFile = 'export_users_'.$session_id.'_'.api_get_local_time().'_'.uniqid('').'.'.$file_type;
            }

            $cvs = false;
            $fp = fopen($archivePath.$archiveFile, 'w');
            fputs($fp, "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<Sessions>\n");
        }

        while ($row = Database::fetch_array($result)) {
            $row['name'] = str_replace(';', ',', $row['name']);
            $row['username'] = str_replace(';', ',', $row['username']);
            $row['access_start_date'] = str_replace(';', ',', $row['access_start_date']);
            $row['access_end_date'] = str_replace(';', ',', $row['access_end_date']);
            $row['visibility'] = str_replace(';', ',', $row['visibility']);
            $row['session_category'] = str_replace(';', ',', $row['session_category_id']);
            // users
            $sql = "SELECT DISTINCT $tblUser.username
                    FROM $tblUser
                    INNER JOIN $tblSessionRelUser
                    ON
                        $tblUser.user_id = $tblSessionRelUser.user_id AND
                        $tblSessionRelUser.relation_type = ".Session::STUDENT." AND
                        $tblSessionRelUser.session_id = '".$row['id']."'";

            $rsUsers = Database::query($sql);
            $users = '';
            while ($rowUsers = Database::fetch_array($rsUsers)) {
                if ($cvs) {
                    $users .= str_replace(';', ',', $rowUsers['username']).'|';
                } else {
                    $users .= "\t\t<User>$rowUsers[username]</User>\n";
                }
            }

            if (!empty($users) && $cvs) {
                $users = api_substr($users, 0, api_strlen($users) - 1);
            }

            // Courses
            $sql = "SELECT DISTINCT c.code, sc.id, c_id
                    FROM $tblCourse c
                    INNER JOIN $tblSessionRelCourseRelUser sc
                    ON c.id = sc.c_id AND sc.session_id = '".$row['id']."'";

            $rsCourses = Database::query($sql);

            $courses = '';
            while ($rowCourses = Database::fetch_array($rsCourses)) {
                // get coachs from a course
                $sql = "SELECT u.username
                        FROM $tblSessionRelCourseRelUser scu
                        INNER JOIN $tblUser u
                        ON u.id = scu.user_id
                        WHERE
                            scu.c_id = '{$rowCourses['c_id']}' AND
                            scu.session_id = '".$row['id']."' AND
                            scu.status = ".Session::COURSE_COACH;

                $rs_coachs = Database::query($sql);
                $coachs = [];
                while ($row_coachs = Database::fetch_array($rs_coachs)) {
                    $coachs[] = $row_coachs['username'];
                }

                $coachs = implode(",", $coachs);

                if ($cvs) {
                    $courses .= str_replace(';', ',', $rowCourses['code']);
                    $courses .= '['.str_replace(';', ',', $coachs).'][';
                } else {
                    $courses .= "\t\t<Course>\n";
                    $courses .= "\t\t\t<CourseCode>$rowCourses[code]</CourseCode>\n";
                    $courses .= "\t\t\t<Coach>$coachs</Coach>\n";
                }

                // rel user courses
                $sql = "SELECT DISTINCT u.username
                        FROM $tblSessionRelCourseRelUser scu
                        INNER JOIN $tblSessionRelUser su
                        ON
                            scu.user_id = su.user_id AND
                            scu.session_id = su.session_id AND
                            su.relation_type = ".Session::STUDENT."
                        INNER JOIN $tblUser u
                        ON
                            scu.user_id = u.id AND
                            scu.c_id='".$rowCourses['c_id']."' AND
                            scu.session_id='".$row['id']."'";

                $rsUsersCourse = Database::query($sql);
                $userscourse = '';
                while ($rowUsersCourse = Database::fetch_array($rsUsersCourse)) {
                    if ($cvs) {
                        $userscourse .= str_replace(';', ',', $rowUsersCourse['username']).',';
                    } else {
                        $courses .= "\t\t\t<User>$rowUsersCourse[username]</User>\n";
                    }
                }

                if ($cvs) {
                    if (!empty($userscourse)) {
                        $userscourse = api_substr(
                            $userscourse,
                            0,
                            api_strlen($userscourse) - 1
                        );
                    }

                    $courses .= $userscourse.']|';
                } else {
                    $courses .= "\t\t</Course>\n";
                }
            }

            if (!empty($courses) && $cvs) {
                $courses = api_substr($courses, 0, api_strlen($courses) - 1);
            }
            $add = $courses;

            if (in_array($file_type, ['csv', 'xls'])) {
                $sessionListToExport[] = [
                    $row['name'],
                    $row['username'],
                    $row['access_start_date'],
                    $row['access_end_date'],
                    $row['visibility'],
                    $row['session_category'],
                    $users,
                    $courses,
                ];
            } else {
                $add = "\t<Session>\n"
                         ."\t\t<SessionName>$row[name]</SessionName>\n"
                         ."\t\t<Coach>$row[username]</Coach>\n"
                         ."\t\t<DateStart>$row[access_start_date]</DateStart>\n"
                         ."\t\t<DateEnd>$row[access_end_date]</DateEnd>\n"
                         ."\t\t<Visibility>$row[visibility]</Visibility>\n"
                         ."\t\t<SessionCategory>$row[session_category]</SessionCategory>\n";
            }

            if (!$cvs) {
                $add .= "\t</Session>\n";
                fputs($fp, $add);
            }
        }

        switch ($file_type) {
            case 'xml':
                fputs($fp, "</Sessions>\n");
                fclose($fp);
                $errorMsg = get_lang('The users list has been exported.').'<br/>
                <a class="btn btn-default" href="'.$archiveURL.$archiveFile.'">'.get_lang('Download the file').'</a>';
                break;
            case 'csv':
                Export::arrayToCsv($sessionListToExport, $archiveFile);
                exit;
            case 'xls':
                Export::arrayToXls($sessionListToExport, $archiveFile);
                exit;
                break;
        }
    }
}

// display the header
Display::display_header($tool_name);

//select of sessions
$sql = "SELECT id, name FROM $tblSession ORDER BY name";

if (api_is_multiple_url_enabled()) {
    $tbl_session_rel_access_url = Database::get_main_table(TABLE_MAIN_ACCESS_URL_REL_SESSION);
    $access_url_id = api_get_current_access_url_id();
    if (-1 != $access_url_id) {
        $sql = "SELECT s.id, name FROM $tblSession s
                INNER JOIN $tbl_session_rel_access_url as session_rel_url
                ON (s.id = session_rel_url.session_id)
                WHERE access_url_id = $access_url_id
                ORDER BY name";
    }
}
$result = Database::query($sql);
$Sessions = Database::store_result($result);

$actions = '<a href="../session/session_list.php">'.
        Display::return_icon('back.png', get_lang('Back to').' '.get_lang('Session list'), '', ICON_SIZE_MEDIUM).'</a>';
echo Display::toolbarAction('toolbar', [$actions]);

if (!empty($errorMsg)) {
    echo Display::return_message($errorMsg, 'normal', false); //main API
}

$form = new FormValidator('session_export', 'post', api_get_self());
$form->addElement('hidden', 'formSent', 1);
$form->addElement('radio', 'file_type', get_lang('Output file type'), 'CSV', 'csv', null);
$form->addElement('radio', 'file_type', '', 'XLS', 'xls', null);
$form->addElement('radio', 'file_type', null, 'XML', 'xml', null, ['id' => 'file_type_xml']);

$options = [];
$options['0'] = get_lang('All the sessions');
foreach ($Sessions as $enreg) {
    $options[$enreg['id']] = $enreg['name'];
}

$form->addSelect('session_id', get_lang('Choose the session to export'), $options);
$form->addButtonExport(get_lang('Export session(s)'));

$defaults = [];
$defaults['file_type'] = 'csv';
$form->setDefaults($defaults);
$form->display();
unset($courses);
Display::display_footer();