<?php

/*
 * This file is part of Phraseanet
 *
 * (c) 2005-2013 Alchemy
 *
 * For the full copyright and license information, please view the LICENSE
 * file that was distributed with this source code.
 */

namespace Alchemy\Phrasea\Controller\Report;

use Silex\Application;
use Silex\ControllerProviderInterface;
use Symfony\Component\HttpFoundation\Request;
use Symfony\Component\HttpFoundation\Response;
use Symfony\Component\HttpFoundation\JsonResponse;

class Root implements ControllerProviderInterface
{
    public function connect(Application $app)
    {
        $controllers = $app['controllers_factory'];

        $controllers->before(function() use ($app) {
            $app['firewall']->requireAuthentication();
            $app['firewall']->requireAccessToModule('report');
        });

        $controllers->get('/', function(Application $app) {
            return $app->redirectPath('report_dashboard');
        })->bind('report');

        $controllers->get('/dashboard', $this->call('getDashboard'))
            ->bind('report_dashboard');

        $controllers->post('/init', $this->call('initReport'))
            ->bind('report_init');

        $controllers->post('/connexions', $this->call('doReportConnexions'))
            ->bind('report_connexions');

        $controllers->post('/questions', $this->call('doReportQuestions'))
            ->bind('report_questions');

        $controllers->post('/downloads', $this->call('doReportDownloads'))
            ->bind('report_downloads');

        $controllers->post('/documents', $this->call('doReportDocuments'))
            ->bind('report_documents');

        $controllers->post('/clients', $this->call('doReportClients'))
            ->bind('report_clients');

        return $controllers;
    }

    /**
     * Display dashboard informations
     *
     * @param  Application  $app
     * @param  Request      $request
     * @return JsonResponse
     */
    public function getDashboard(Application $app, Request $request)
    {
        $dashboard = new \module_report_dashboard($app, $app['authentication']->getUser());

        if ('json' !== $request->getRequestFormat()) {
            \Session_Logger::updateClientInfos($app, 4);

            $dashboard->execute();

            return $app['twig']->render('report/report_layout_child.html.twig', array(
                'ajax_dash'   => true,
                'dashboard'   => $dashboard,
                'home_title'  => $app['phraseanet.registry']->get('GV_homeTitle'),
                'module'      => 'report',
                'module_name' => 'Report',
                'anonymous'   => $app['phraseanet.registry']->get('GV_anonymousReport'),
                'g_anal'      => $app['phraseanet.registry']->get('GV_googleAnalytics'),
                'ajax'        => false,
                'ajax_chart'  => false
            ));
        }

        $dmin = $request->request->get('dmin');
        $dmax = $request->request->get('dmax');

        if ($dmin && $dmax) {
            $dashboard->setDate($dmin, $dmax);
        }

        $dashboard->execute();

        return $app->json(array('html' => $app['twig']->render('report/ajax_dashboard_content_child.html.twig', array(
            'dashboard' => $dashboard
        ))));
    }

    /**
     * Gets available collections where current user can see report and
     * format date
     *
     * @param  Application  $app
     * @param  Request      $request
     * @return JsonResponse
     */
    public function initReport(Application $app, Request $request)
    {
        $popbases = $request->request->get('popbases', array());

        if ('' === $dmin = $request->request->get('dmin', '')) {
            $dmin = '01-' . date('m') . '-' . date('Y');
        }

        if ('' === $dmax = $request->request->get('dmax', '')) {
            $dmax = date('d') . '-' . date('m') . '-' . date('Y');
        }

        $dmin = \DateTime::createFromFormat('d-m-Y H:i:s', sprintf('%s 00:00:00', $dmin));
        $dmax = \DateTime::createFromFormat('d-m-Y H:i:s', sprintf('%s 23:59:59', $dmax));

        //get user's sbas & collections selection from popbases
        $selection = array();
        $liste = $id_sbas = '';
        $i = 0;
        foreach (array_fill_keys($popbases, 0) as $key => $val) {
            $exp = explode('_', $key);
            if ($exp[0] != $id_sbas && $i != 0) {
                $selection[$id_sbas]['liste'] = $liste;
                $liste = '';
            }
            $selection[$exp[0]][] = $exp[1];
            $liste .= (empty($liste) ? '' : ',') . $exp[1];
            $id_sbas = $exp[0];
            $i ++;
        }
        //fill the last entry
        $selection[$id_sbas]['liste'] = $liste;

        return $app['twig']->render('report/ajax_report_content.html.twig', array(
            'selection' => $selection,
            'anonymous' => $app['phraseanet.registry']->get('GV_anonymousReport'),
            'ajax'      => true,
            'dmin'      => $dmin->format('Y-m-d H:i:s'),
            'dmax'      => $dmax->format('Y-m-d H:i:s'),
        ));
    }

    /**
     * Display instance connexion report
     *
     * @param  Application  $app
     * @param  Request      $request
     * @return JsonResponse
     */
    public function doReportConnexions(Application $app, Request $request)
    {
        $cnx = new \module_report_connexion(
            $app,
            $request->request->get('dmin'),
            $request->request->get('dmax'),
            $request->request->get('sbasid'),
            $request->request->get('collection')
        );

        $conf = array(
            'user'      => array(_('phraseanet::utilisateurs'), 1, 1, 1, 1),
            'ddate'     => array(_('report:: date'), 1, 0, 1, 1),
            'ip'        => array(_('report:: IP'), 1, 0, 0, 0),
            'appli'     => array(_('report:: modules'), 1, 0, 0, 0),
            'fonction'  => array(_('report::fonction'), 1, 1, 1, 1),
            'activite'  => array(_('report::activite'), 1, 1, 1, 1),
            'pays'      => array(_('report::pays'), 1, 1, 1, 1),
            'societe'   => array(_('report::societe'), 1, 1, 1, 1)
        );

        if ($request->request->get('printcsv') == 'on') {
            $cnx->setHasLimit(false);
            $cnx->setPrettyString(false);

            try {
                $csv = \format::arr_to_csv($cnx->getResult(), $cnx->getDisplay());
            } catch (\Exception $e) {
                $csv = '';
            }

            return $app->json(array('rs' => $csv));
        }

        $report = $this->doReport($app, $request, $cnx, $conf);

        if ($report instanceof Response) {
            return $report;
        }

        return $app->json(array(
                'rs'          =>  $app['twig']->render('report/ajax_data_content.html.twig', array(
                'result'      => isset($report['report']) ? $report['report'] : $report,
                'is_infouser' => false,
                'is_nav'      => false,
                'is_groupby'  => false,
                'is_plot'     => false,
                'is_doc'      => false
            )),
            'display_nav' => $report['display_nav'], // do we display the prev and next button ?
            'next'        => $report['next_page'], //Number of the next page
            'prev'        => $report['previous_page'], //Number of the previoous page
            'page'        => $report['page'], //The current page
            'filter'      => ((sizeof($report['filter']) > 0) ? serialize($report['filter']) : ''), //the serialized filters
            'col'         => $report['active_column'], //all the columns where a filter is applied
            'limit'       => $report['nb_record']
        ));
    }

    /**
     * Display instance questions report
     *
     * @param  Application  $app
     * @param  Request      $request
     * @return JsonResponse
     */
    public function doReportQuestions(Application $app, Request $request)
    {
        $questions = new \module_report_question(
            $app,
            $request->request->get('dmin'),
            $request->request->get('dmax'),
            $request->request->get('sbasid'),
            $request->request->get('collection')
        );

        $conf = array(
            'user'      => array(_('report:: utilisateur'), 1, 1, 1, 1),
            'search'    => array(_('report:: question'), 1, 0, 1, 1),
            'ddate'     => array(_('report:: date'), 1, 0, 1, 1),
            'fonction'  => array(_('report:: fonction'), 1, 1, 1, 1),
            'activite'  => array(_('report:: activite'), 1, 1, 1, 1),
            'pays'      => array(_('report:: pays'), 1, 1, 1, 1),
            'societe'   => array(_('report:: societe'), 1, 1, 1, 1)
        );

        if ($request->request->get('printcsv') == 'on') {
            $questions->setHasLimit(false);
            $questions->setPrettyString(false);

            try {
                $csv = \format::arr_to_csv($questions->getResult(), $questions->getDisplay());
            } catch (\Exception $e) {
                $csv = '';
            }

            return $app->json(array('rs' => $csv));
        }

        $report = $this->doReport($app, $request, $questions, $conf);

        if ($report instanceof Response) {
            return $report;
        }

        return $app->json(array(
                'rs'          =>  $app['twig']->render('report/ajax_data_content.html.twig', array(
                'result'      => isset($report['report']) ? $report['report'] : $report,
                'is_infouser' => false,
                'is_nav'      => false,
                'is_groupby'  => false,
                'is_plot'     => false,
                'is_doc'      => false
            )),
            'display_nav' => $report['display_nav'], // do we display the prev and next button ?
            'next'        => $report['next_page'], //Number of the next page
            'prev'        => $report['previous_page'], //Number of the previoous page
            'page'        => $report['page'], //The current page
            'filter'      => ((sizeof($report['filter']) > 0) ? serialize($report['filter']) : ''), //the serialized filters
            'col'         => $report['active_column'], //all the columns where a filter is applied
            'limit'       => $report['nb_record']
        ));
    }

    /**
     * Display instance download report
     *
     * @param  Application  $app
     * @param  Request      $request
     * @return JsonResponse
     */
    public function doReportDownloads(Application $app, Request $request)
    {
        $download = new \module_report_download(
            $app,
            $request->request->get('dmin'),
            $request->request->get('dmax'),
            $request->request->get('sbasid'),
            $request->request->get('collection')
        );

        $conf_pref = array();

        foreach (\module_report::getPreff($app, $request->request->get('sbasid')) as $field) {
            $conf_pref[strtolower($field)] = array($field, 0, 0, 0, 0);
        }

        $conf = array_merge(array(
            'user'      => array(_('report:: utilisateurs'), 1, 1, 1, 1),
            'ddate'     => array(_('report:: date'), 1, 0, 1, 1),
            'record_id' => array(_('report:: record id'), 1, 1, 1, 1),
            'final'     => array(_('phrseanet:: sous definition'), 1, 0, 1, 1),
            'coll_id'   => array(_('report:: collections'), 1, 0, 1, 1),
            'comment'   => array(_('report:: commentaire'), 1, 0, 0, 0),
            'fonction'  => array(_('report:: fonction'), 1, 1, 1, 1),
            'activite'  => array(_('report:: activite'), 1, 1, 1, 1),
            'pays'      => array(_('report:: pays'), 1, 1, 1, 1),
            'societe'   => array(_('report:: societe'), 1, 1, 1, 1)
        ), $conf_pref);

        if ($request->request->get('printcsv') == 'on') {
            $download->setHasLimit(false);
            $download->setPrettyString(false);

            try {
                $csv = \format::arr_to_csv($download->getResult(), $download->getDisplay());
            } catch (\Exception $e) {
                $csv = '';
            }

            return $app->json(array('rs' => $csv));
        }

        $report = $this->doReport($app, $request, $download, $conf);

        if ($report instanceof Response) {
            return $report;
        }

        return $app->json(array(
                'rs'          =>  $app['twig']->render('report/ajax_data_content.html.twig', array(
                'result'      => isset($report['report']) ? $report['report'] : $report,
                'is_infouser' => false,
                'is_nav'      => false,
                'is_groupby'  => false,
                'is_plot'     => false,
                'is_doc'      => false
            )),
            'display_nav' => $report['display_nav'], // do we display the prev and next button ?
            'next'        => $report['next_page'], //Number of the next page
            'prev'        => $report['previous_page'], //Number of the previoous page
            'page'        => $report['page'], //The current page
            'filter'      => ((sizeof($report['filter']) > 0) ? serialize($report['filter']) : ''), //the serialized filters
            'col'         => $report['active_column'], //all the columns where a filter is applied
            'limit'       => $report['nb_record']
        ));
    }

    /**
     * Display instance document report
     *
     * @param  Application  $app
     * @param  Request      $request
     * @return JsonResponse
     */
    public function doReportDocuments(Application $app, Request $request)
    {
        $document = new \module_report_download(
            $app,
            $request->request->get('dmin'),
            $request->request->get('dmax'),
            $request->request->get('sbasid'),
            $request->request->get('collection')
        );

        $conf_pref = array();

        foreach (\module_report::getPreff($app, $request->request->get('sbasid')) as $field) {
            $conf_pref[strtolower($field)] = array($field, 0, 0, 0, 0);
        }

        $conf = array_merge(array(
            'telechargement'    => array(_('report:: telechargements'), 1, 0, 0, 0),
            'record_id'         => array(_('report:: record id'), 1, 1, 1, 0),
            'final'             => array(_('phraseanet:: sous definition'), 1, 0, 1, 1),
            'file'              => array(_('report:: fichier'), 1, 0, 0, 1),
            'mime'              => array(_('report:: type'), 1, 0, 1, 1),
            'size'              => array(_('report:: taille'), 1, 0, 1, 1)
        ), $conf_pref);

        if ($request->request->get('printcsv') == 'on') {
            $document->setHasLimit(false);
            $document->setPrettyString(false);

            try {
                $csv = \format::arr_to_csv($document->getResult(), $document->getDisplay());
            } catch (\Exception $e) {
                $csv = '';
            }

            return $app->json(array('rs' => $csv));
        }

        $report = $this->doReport($app, $request, $document, $conf, 'record_id');

        if ($report instanceof Response) {
            return $report;
        }

        return $app->json(array(
                'rs'          =>  $app['twig']->render('report/ajax_data_content.html.twig', array(
                'result'      => isset($report['report']) ? $report['report'] : $report,
                'is_infouser' => false,
                'is_nav'      => false,
                'is_groupby'  => false,
                'is_plot'     => false,
                'is_doc'      => true
            )),
            'display_nav' => $report['display_nav'], // do we display the prev and next button ?
            'next'        => $report['next_page'], //Number of the next page
            'prev'        => $report['previous_page'], //Number of the previoous page
            'page'        => $report['page'], //The current page
            'filter'      => ((sizeof($report['filter']) > 0) ? serialize($report['filter']) : ''), //the serialized filters
            'col'         => $report['active_column'], //all the columns where a filter is applied
            'limit'       => $report['nb_record']
        ));
    }

    /**
     * Display informations about client (browser, resolution etc ...)
     *
     * @param  Application  $app
     * @param  Request      $request
     * @return JsonResponse
     */
    public function doReportClients(Application $app, Request $request)
    {
        $nav = new \module_report_nav(
            $app,
            $request->request->get('dmin'),
            $request->request->get('dmax'),
            $request->request->get('sbasid'),
            $request->request->get('collection')
        );

        $conf_nav = array(
            'nav'       => array(_('report:: navigateur'), 0, 1, 0, 0),
            'nb'        => array(_('report:: nombre'), 0, 0, 0, 0),
            'pourcent'  => array(_('report:: pourcentage'), 0, 0, 0, 0)
        );

        $conf_combo = array(
            'combo'     => array(_('report:: navigateurs et plateforme'), 0, 0, 0, 0),
            'nb'        => array(_('report:: nombre'), 0, 0, 0, 0),
            'pourcent'  => array(_('report:: pourcentage'), 0, 0, 0, 0)
        );
        $conf_os = array(
            'os'        => array(_('report:: plateforme'), 0, 0, 0, 0),
            'nb'        => array(_('report:: nombre'), 0, 0, 0, 0),
            'pourcent'  => array(_('report:: pourcentage'), 0, 0, 0, 0)
        );
        $conf_res = array(
            'res'       => array(_('report:: resolution'), 0, 0, 0, 0),
            'nb'        => array(_('report:: nombre'), 0, 0, 0, 0),
            'pourcent'  => array(_('report:: pourcentage'), 0, 0, 0, 0)
        );
        $conf_mod = array(
            'appli'     => array(_('report:: module'), 0, 0, 0, 0),
            'nb'        => array(_('report:: nombre'), 0, 0, 0, 0),
            'pourcent'  => array(_('report:: pourcentage'), 0, 0, 0, 0)
        );

        $report = array(
            'nav'   => $nav->buildTabNav($conf_nav),
            'os'    => $nav->buildTabOs($conf_os),
            'res'   => $nav->buildTabRes($conf_res),
            'mod'   => $nav->buildTabModule($conf_mod),
            'combo' => $nav->buildTabCombo($conf_combo)
        );

         if ($request->request->get('printcsv') == 'on') {
             return $app->json(array(
                'nav'   => \format::arr_to_csv($report['nav']['result'], $conf_nav),
                'os'    => \format::arr_to_csv($report['os']['result'], $conf_os),
                'res'   => \format::arr_to_csv($report['res']['result'], $conf_res),
                'mod'   => \format::arr_to_csv($report['mod']['result'], $conf_mod),
                'combo' => \format::arr_to_csv($report['combo']['result'], $conf_combo)
            ));
         }

         return $app->json(array(
            'rs' =>  $app['twig']->render('report/ajax_data_content.html.twig', array(
                'result'      => isset($report['report']) ? $report['report'] : $report,
                'is_infouser' => false,
                'is_nav'      => true,
                'is_groupby'  => false,
                'is_plot'     => false,
                'is_doc'      => false
            )),
            'display_nav' => false,
            'title'       => false
        ));
    }

    /**
     * Set Report configuration according to request parameters
     *
     * @param  Application    $app     An application instance
     * @param  Request        $request A request instance
     * @param  \module_report $report  A report instance
     * @param  Array          $conf    A report column configuration
     * @param  Boolean        $what    Whether to group on a particular field or not
     * @return Array
     */
    private function doReport(Application $app, Request $request, \module_report $report, $conf, $what = false)
    {
        if ($app['phraseanet.registry']->get('GV_anonymousReport') == true) {
            if (isset($conf['user'])) {
                unset($conf['user']);
            }

            if (isset($conf['ip'])) {
                unset($conf['ip']);
            }
        }
        //save initial conf
        $base_conf = $conf;
        //format conf according user preferences
        if ('' !== $columnsList = $request->request->get('list_column', '')) {
            $new_conf = $conf;
            $columns = explode(',', $columnsList);

            foreach (array_keys($conf) as $col) {
                if (!in_array($col, $columns)) {
                    unset($new_conf[$col]);
                }
            }

            $conf = $new_conf;
        }

        //display content of a table column when user click on it
        if ($request->request->get('conf') == 'on') {
            return $app->json(array('liste' => $app['twig']->render('report/listColumn.html.twig', array(
                'conf'  => $base_conf
            )), 'title' => _('configuration')));
        }

        //set order
        if (('' !== $order = $request->request->get('order', '')) && ('' !== $field = $request->request->get('champ', ''))) {
            $report->setOrder($field, $order);
        }

        //work on filters
        $mapColumnTitleToSqlField = $report->getTransQueryString();

        $currentfilter = array();

        if ('' !== $serializedFilter = $request->request->get('liste_filter', '')) {
            $currentfilter = @unserialize(urldecode($serializedFilter));
        }

        $filter = new \module_report_filter($app, $currentfilter, $mapColumnTitleToSqlField);

        if ('' !== $filterColumn = $request->request->get('filter_column', '')) {
            $field = current(explode(' ', $filterColumn));
            $value = $request->request->get('filter_value', '');

            if ($request->request->get('liste') == 'on') {
                return $app->json(array('diag'  => $app['twig']->render('report/colFilter.html.twig', array(
                    'result' => $report->colFilter($field),
                    'field'  => $field
                )), 'title'  => sprintf(_('filtrer les resultats sur la colonne %s'), $field)));
            }

            if ($field === $value) {
                $filter->removeFilter($field);
            } else {
                $filter->addFilter($field, '=', $value);
            }
        }

        //set new request filter if user asking for them
        if ($request->request->get('precise') == 1) {
            $filter->addFilter('xml', 'LIKE', $request->request->get('word', ''));
        } elseif ($request->request->get('precise') == 2) {
            $filter->addFilter('record_id', '=', $request->request->get('word', ''));
        }

        //set filters to current report
        $report->setFilter($filter->getTabFilter());
        $report->setActiveColumn($filter->getActiveColumn());
        $report->setPostingFilter($filter->getPostingFilter());

        // display a new arraywhere results are group
        if ('' !== $groupby = $request->request->get('groupby', '')) {
            $report->setConfig(false);
            $groupby = current(explode(' ', $groupby));

            $reportArray = $report->buildReport(false, $groupby);

            if (count($reportArray['allChamps']) > 0 && count($reportArray['display']) > 0) {
                $groupField = isset($reportArray['display'][$reportArray['allChamps'][0]]['title']) ? $reportArray['display'][$reportArray['allChamps'][0]]['title'] : '';
            } else {
                $groupField = isset($conf[strtolower($groupby)]['title']) ? $conf[strtolower($groupby)]['title'] : '';
            }

            return $app->json(array(
                'rs' => $app['twig']->render('report/ajax_data_content.html.twig', array(
                    'result'      => isset($reportArray['report']) ? $reportArray['report'] : $reportArray,
                    'is_infouser' => false,
                    'is_nav'      => false,
                    'is_groupby'  => true,
                    'is_plot'     => false,
                    'is_doc'      => false
                )),
                'display_nav' => false,
                'title'       => _(sprintf('Groupement des resultats sur le champ %s',  $groupField))
            ));
        }

        //set Limit
        if ($report->getEnableLimit()
                && ('' !== $page = $request->request->get('page', ''))
                && ('' !== $limit = $request->request->get('limit', ''))) {
            $report->setLimit($page, $limit);
        } else {
            $report->setLimit(false, false);
        }

        //time to build our report
        if (false === $what) {
            $reportArray = $report->buildReport($conf);
        } else {
            $reportArray = $report->buildReport($conf, $what, $request->request->get('tbl', false));
        }

        return $reportArray;
    }

    /**
     * Prefix the method to call with the controller class name
     *
     * @param  string $method The method to call
     * @return string
     */
    private function call($method)
    {
        return sprintf('%s::%s', __CLASS__, $method);
    }
}