sgi/apsa/export/ical_calendario.php

<?php
/*
 * Recibe los perfiles y a busca los eventos del periodo en sesión
 */
require_once("../../include/constantes.php");
require_once("../../include/nocache.php");
require_once("../../include/bd_pdo.php");
require_once("../../include/util.php");
require_once("../../classes/ValidaSesion.php");
include_once("../../include/iCalcreator/autoload.php");

use Kigkonsult\Icalcreator\Vcalendar;


function getVcalDia($diaNum){
    switch($diaNum){
        case 0: return Vcalendar::SU;
        case 1: return Vcalendar::MO;
        case 2: return Vcalendar::TU;
        case 3: return Vcalendar::WE;
        case 4: return Vcalendar::TH;
        case 5: return Vcalendar::FR;
        case 6: return Vcalendar::SA;
    }
}

function getDiasArray($diasStr, $week_num = false, $freq = 0){
    $diasArr = explode(",", $diasStr);
    $final_arr = array();
    foreach($diasArr as $dia){
        if(!$week_num)
            $final_arr[] = array(Vcalendar::DAY => getVcalDia($dia));
        else
            $final_arr[] = array($freq, Vcalendar::DAY => getVcalDia($dia));
    }
    return $final_arr;
}

function fechaICal($fecha, $hora="", $tz=""){
    $fecha = fechaGuion($fecha);
    if($hora!= ""){
        if($tz != ""){
            return str_replace('-', '', $fecha).'T'.str_replace(':', '', $hora)." ".$tz;
        }else{
            return str_replace('-', '', $fecha).'T'.str_replace(':', '', $hora);
        }
    }
    return str_replace('-', '', $fecha);
}

$objSesion = new ValidaSesion($pdo, 57, APSA);
if(!$objSesion->tieneAcceso() ){
    echo "Error! No tienes permisos para realizar esta acción.";
    exit();
}else if(!isset($_POST["perfiles"])){
    echo "Error! No se recibió la información de los perfiles.";
    exit();
}else{
    $perfiles = trim(filter_input(INPUT_POST, "perfiles", FILTER_SANITIZE_STRING,array('flags' => FILTER_FLAG_STRIP_LOW)));//limpia texto
    //$fecha_min = fechaGuion(trim(filter_input(INPUT_POST, "fecha_min", FILTER_SANITIZE_STRING,array('flags' => FILTER_FLAG_STRIP_LOW))));//limpia texto
    //$fecha_max = fechaGuion(trim(filter_input(INPUT_POST, "fecha_max", FILTER_SANITIZE_STRING,array('flags' => FILTER_FLAG_STRIP_LOW))));//limpia texto

    // Obtiene fecha máxima y min
    $stmt = $pdo->prepare('Select * from fs_fechaimportante(:periodo, 3)');//periodo
    $stmt->bindParam(":periodo", $_SESSION["periodo_id"]);
    if(!$stmt->execute()){
        $errorDesc = "Ocurrió un error al cargar las fechas del periodo";
    }else{
        $fecha_rs = $stmt->fetch();
        $fecha_min = date('d/m/Y', strtotime($fecha_rs["FechaImportante_inicial"].' - 1 month '));
        $fecha_max = date('d/m/Y', strtotime($fecha_rs["FechaImportante_final"].' + 1 month '));
    }
    $stmt->closeCursor();
    $stmt = null;
    
    //Obtiene datos de periodo
    $stmt = $pdo->prepare('Select * from fs_periodo(:periodo, NULL, NULL, true)');
    $stmt->bindParam(":periodo", $_SESSION["periodo_id"]);
    if(!$stmt->execute()){
        //print_r($stmt->errorInfo());
        $errorDesc = "Ocurrió un error al cargar los datos del periodo";
    }else{
        $periodo_rs = $stmt->fetch();
    }
    $stmt->closeCursor();
                
                
    $eventos_display = array();//todos los eventos para exportar
    
    
    $stmt = $pdo->prepare('Select * from fs_calendarioevento(:per, :fecha_i, :fecha_f, :perf, false)');
    $stmt->bindParam(":per", $_SESSION["periodo_id"]);
    $stmt->bindParam(":fecha_i", $fecha_min);
    $stmt->bindParam(":fecha_f", $fecha_max);
    $stmt->bindParam(":perf", $perfiles);
    unset($perfiles);
    
    $error = false;
    if(!$stmt->execute()){
        $t = $stmt->errorInfo();
        echo "Ocurrió un error al obtener los eventos.".$t[2];
        exit();
        $error = true;
    }
    if(!$error){
        $eventos_rs = $stmt->fetchAll();
        $stmt->closeCursor();
        
        
        //Configuración de calendario
        $tz = "America/Mexico_City";
        $config = [
            Vcalendar::UNIQUE_ID => "IngenieriaLaSalle",
            Vcalendar::LANGUAGE=> "es",
        ];
        $calendar = Vcalendar::factory( $config )
                // required of some calendar software
            ->setMethod( Vcalendar::PUBLISH )
            ->setXprop(  Vcalendar::X_WR_CALNAME,  "Ingeniería La Salle" )
            ->setXprop(  Vcalendar::X_WR_CALDESC,  "Calendario de Ingeniería ".$periodo_rs["Periodo_desc"] )
            ->setXprop(  Vcalendar::X_WR_RELCALID,"3E26604A-50F4-4449-8B3E-E4F4932D05B5" )
            ->setXprop(  Vcalendar::X_WR_TIMEZONE, $tz );
        $calendar->VtimezonePopulate( $tz );
        
        
        //-------------------------
        //Obtiene fechas de periodo
        $stmt = $pdo->prepare('Select * from fs_periodo(:periodo, NULL, NULL, true)');
        $stmt->bindParam(":periodo", $_SESSION["periodo_id"]);
        if(!$stmt->execute()){
            //print_r($stmt->errorInfo());
            $errorDesc = "Ocurrió un error al cargar los datos del periodo";
        }else{
            $periodo_rs = $stmt->fetch();
        }
        $stmt->closeCursor();
        
        $fecha = $periodo_rs["Periodo_fecha_inicial"];
        $next_day = date('Y-m-d', strtotime($fecha.' + 1 day '));
        //Crea evento iCal
        $calendar->newVevent()
                ->setSequence( 0 )
                ->setSummary("Inicio de cursos")
                ->setDtstart($fecha, [ Vcalendar::VALUE => Vcalendar::DATE ])
                ->setDtend( $next_day, [ Vcalendar::VALUE => Vcalendar::DATE ]);
        
        
        $fecha = $periodo_rs["Periodo_fecha_final"];
        $next_day = date('Y-m-d', strtotime($fecha.' + 1 day '));
        //Crea evento iCal
        $calendar->newVevent()
                ->setSequence( 0 )
                ->setSummary("Fin de cursos")
                ->setDtstart($fecha, [ Vcalendar::VALUE => Vcalendar::DATE ])
                ->setDtend( $next_day, [ Vcalendar::VALUE => Vcalendar::DATE ]);

        
        $stmt = $pdo->prepare('Select * from fs_fechaimportante(:periodo, 2)');//extras
        $stmt->bindParam(":periodo", $_SESSION["periodo_id"]);
        if(!$stmt->execute()){
            $errorDesc = "Ocurrió un error al cargar las fechas del periodo";
        }else{
            $fecha_rs = $stmt->fetch();
            if(is_array($fecha_rs) && count($fecha_rs) > 0){
                
                $fecha = $fecha_rs["FechaImportante_inicial"];
                $next_day = date('Y-m-d', strtotime($fecha.' + 1 day '));
                //Crea evento iCal
                $calendar->newVevent()
                        ->setSequence( 0 )
                        ->setSummary("Exámenes Extraordinarios")
                        ->setDtstart($fecha, [ Vcalendar::VALUE => Vcalendar::DATE ])
                        ->setDtend( $next_day, [ Vcalendar::VALUE => Vcalendar::DATE ])
                        ->setRrule( 
                            [
                                Vcalendar::FREQ  => Vcalendar::WEEKLY,
                                Vcalendar::BYDAY => getDiasArray("1,2,3,4,5", false),
                                Vcalendar::UNTIL  => new DateTime($fecha_rs["FechaImportante_final"] ),
                            ]
                        );
            }
        }
        $stmt->closeCursor();
        $stmt = null;
        //-------------------------
        
        
        //Recorre eventos
        foreach($eventos_rs as $evento){
            /*,$evento["CalendarioCategoria_id"], $evento["CalendarioCategoria_desc"],
             * $evento["CalendarioCategoria_color"], $evento["Periodo_id"] ,,
             * , ,);
             */
            $id_db = $evento["CalendarioEvento_id"];
            $fecha = fechaGuion($evento["CalendarioEvento_fecha"]);
            
            //Crea evento iCal
            $icalEvent = $calendar->newVevent()
                    ->setSequence( 0 )
                    ->setSummary($evento["CalendarioEvento_titulo"]);
            
            
            if(trim($evento["CalendarioEvento_desc"]) != ""){
                $icalEvent->setDescription(trim($evento["CalendarioEvento_desc"]));
            }
            
            if($evento["CalendarioEvento_todo_dia"]){//sin hora
                $next_day = date('Y-m-d', strtotime($fecha.' + 1 day '));
                $icalEvent->setDtstart($fecha, [ Vcalendar::VALUE => Vcalendar::DATE ])
                    ->setDtend( $next_day, [ Vcalendar::VALUE => Vcalendar::DATE ]);
            }else{//con horas
                $icalEvent->setDtstart( new DateTime( $fecha.' '.$evento["CalendarioEvento_hora_inicial"], new DateTimezone( $tz )))
                    ->setDtend(  new DateTime( $fecha.' '.$evento["CalendarioEvento_hora_final"], new DateTimezone( $tz )));
            }
            
            //-- Calcular posibles fechas e insertar fechas en objeto --
            
            switch($evento["CalendarioRepeticion_id"]){
                case 1: //diario
                    $icalEvent->setRrule( 
                        [
                            Vcalendar::FREQ  => Vcalendar::DAILY,
                            Vcalendar::UNTIL  => new DateTime($evento["CalendarioReglas_fecha_final"] ),//no incluyente
                        ]
                    );
                break;
                case 2: //semanal
                    $icalEvent->setRrule( 
                        [
                            Vcalendar::FREQ  => Vcalendar::WEEKLY,
                            Vcalendar::BYDAY => getDiasArray($evento["CalendarioReglas_dias_str"], false),
                            /*Vcalendar::BYDAY => [
                                [ -1, Vcalendar::DAY => Vcalendar::WE ], // last WE
                                [  3, Vcalendar::DAY => Vcalendar::TH ], // third TH
                                [  5, Vcalendar::DAY => Vcalendar::FR ], // fifth FR
                                [     Vcalendar::DAY => Vcalendar::MO ]  // every MO
                            ],*/
                            Vcalendar::UNTIL  => new DateTime($evento["CalendarioReglas_fecha_final"] ),//no incluyente
                        ]
                    );
                break;
                case 3://mensual
                    $icalEvent->setRrule( 
                        [
                            Vcalendar::FREQ  => Vcalendar::MONTHLY,
                            Vcalendar::BYDAY => getDiasArray($evento["CalendarioReglas_dias_str"], true, $evento["CalendarioReglas_semana"]),
                            Vcalendar::UNTIL  => new DateTime($evento["CalendarioReglas_fecha_final"] ),//no incluyente
                        ]
                    );
                break;
            }

            //Obtiene eventos modificados (fechas que cambiaron)
            $stmt = $pdo->prepare('Select * from fs_calendarioeventoeditado(:id)');
            $stmt->bindParam(":id", $id_db);

            if(!$stmt->execute()){
                $t = $stmt->errorInfo();
                echo "Ocurrió un error al obtener las fechas editadas.".$t[2];
                exit();
                $error = true;
                break;
            }
            if(!$error){
                //--Modifica fechas
                $eventosEditados_rs = $stmt->fetchAll();
                $stmt->closeCursor();

                foreach($eventosEditados_rs as $modif){
                    $eventoEdit = $calendar->newVevent()
                        ->setUid( $icalEvent->getUid())
                        ->setSequence( 1 )
                        ->setSummary( $icalEvent->getSummary() )
                        ->setDescription($icalEvent->getDescription());
                        
                        
                    if($evento["CalendarioEvento_todo_dia"]){//sin hora
                        $next_day = date('Y-m-d', strtotime($modif["CalendarioEventoEditado_fecha_nueva"].' + 1 day '));
                        $eventoEdit->setDtstart($modif["CalendarioEventoEditado_fecha_nueva"], [ Vcalendar::VALUE => Vcalendar::DATE ])
                            ->setDtend( $next_day, [ Vcalendar::VALUE => Vcalendar::DATE ])
                            ->setRecurrenceid( $modif["CalendarioEventoEditado_fecha_origen"], [ Vcalendar::VALUE => Vcalendar::DATE ] );//obtiene fecha que se cambia;
                    }else{//con horas
                        $eventoEdit->setDtstart(
                                new DateTime(fechaICal($modif["CalendarioEventoEditado_fecha_nueva"], $modif["CalendarioEventoEditado_hora_inicial"]), new DateTimezone( $tz ))
                            )
                                ->setDtend(
                                new DateTime(fechaICal($modif["CalendarioEventoEditado_fecha_nueva"], $modif["CalendarioEventoEditado_hora_final"]), new DateTimezone( $tz ))
                            )
                                ->setRecurrenceid( fechaICal($modif["CalendarioEventoEditado_fecha_origen"], $evento["CalendarioEvento_hora_inicial"],$tz) );//obtiene fecha que se cambia;
                    }
                }

                //--Quitar fechas de excepción
                if($evento["CalendarioEvento_excepcion_str"] != ""){
                    foreach(explode(",", $evento["CalendarioEvento_excepcion_str"]) as $ex){
                        $exArr = explode(" ", $ex);
                        if($evento["CalendarioEvento_todo_dia"]){//sin hora
                            $icalEvent->setExdate( fechaICal($exArr[0]), [ Vcalendar::VALUE => Vcalendar::DATE ] );
                        }else{
                            $icalEvent->setExdate( $ex, new DateTimezone( $tz ) );
                        }

                    }
                }
            }
        }//foreach
        unset($eventos_rs);
    }//not error
    if(!$error){
        $calendar->returnCalendar("calendarioIng.ics");
        //echo $calendar->vtimezonePopulate()->createCalendar();
    }
}