<?php
# -*- coding: iso-8859-15 -*-
# author    : "javier pérez santos para orangepiweb.es"
# credits   : "javier pérez santos, orangepiweb.es"
# copyright : "Copyright 2020, orangepiweb.es"
#
#   ___                             ____  ___        __   _
#  / _ \ _ __ __ _ _ __   __ _  ___|  _ \(_) \      / /__| |__   ___  ___
# | | | | '__/ _` | '_ \ / _` |/ _ \ |_) | |\ \ /\ / / _ \ '_ \ / _ \/ __|
# | |_| | | | (_| | | | | (_| |  __/  __/| | \ V  V /  __/ |_) |  __/\__ \
#  \___/|_|  \__,_|_| |_|\__, |\___|_|   |_|  \_/\_/ \___|_.__(_)___||___/
#                        |___/
#
# Control de gpio vía email

//Manual de imap: https://www.php.net/manual/es/ref.imap.php
define("CONFIGCORREO","{imap.xxxxx.es:993/imap/ssl}INBOX");
define("USUARIOMAIL","xxxxx@xxxxxxxx.xxxx");
define("PASSMAIL","xxxxxxxxxxxxx");

$mbox   = imap_open(CONFIGCORREO, USUARIOMAIL, PASSMAIL);
$result = imap_search($mbox, 'UNSEEN');
$accion = "--";
$pin    = "--";

if($result != false){
    //Recorre todos los correos sin leer, obteniendo el identificador de cada uno
    foreach ($result as $uid){
        $overview = imap_fetch_overview($mbox,$uid);
        $asunto   = imap_utf8($overview[0]->subject);

        //Obtener Pin
        $body = imap_fetchbody($mbox, $uid,'1');
        if (preg_match('/^([a-zA-Z0-9]{76} )+[a-zA-Z0-9]{76}$/', $body)) {
            $body = base64_decode($body);
        }
        $pin = $body;

        if ($asunto == "PinON"){
            //lanzar abrir PIN
            $accion = "Abrir Pin";
            abrirPin($accion,$pin);
        } elseif ($asunto == "PinOFF") {
            //lanzar cerrar PIN
            $accion = "Cerrar Pin";
            cerrarPin($accion,$pin);
        }
    }
    imap_close($mbox);
}

function abrirPin($accion,$pin){
    escribirRegistro($accion, $pin);
    //Ejecutar script para abrir pin
    shell_exec("gpio write '{$pin}' 1");

}
function cerrarPin($accion,$pin){
    escribirRegistro($accion, $pin);
    //Ejecutar script para cerrar pin
    shell_exec("gpio write '{$pin}' 0");
}

//Si queremos llevar un registro de las acciones
function escribirRegistro($accion, $pin){
    $file = fopen("registro.txt", "a");
    fwrite($file,date("d")."-".date("m")."-".date("Y")." ".date("H").":".date("i")." Acción: ".$accion." : ".$pin);
    fclose($file);
}
?>