Domótica en RaspberryPi (parte 2)

... con interfaz web

Llevo unos días un poco liado y no podido actualizar el blog, sorry. Hoy os voy a enseñar que no tengo ni idea de programación web, pero me he fabricado un engendro para controlar la domótica de mi casa, via web. Por favor, no me critiquéis mucho, ya os he dicho que no se programar webs.

En este ejemplo, la idea es ver un mapa de la casa con las bombillas a controlar, así que lo primero que necesitamos es un poco de paciencia y Sweet Home 3D, es software libre y muy sencillo de usar. Luego con un poco de Gimp + InkScape, le pintamos las bombillas. Mi resultado es:

Precioso, en mi caso he pintado también el termo. Si os fijais he pintado tambien un + y un - en aquellas bombillas que puedo regular la intensidad. Continuamos ahora en nuestro RaspberryPi:

apt-get install apache2 php5

Ahora lo que toca es hacer un mapa de imagen html (image map) para que al hacer clic en zonas determinadas de una imagen, te abra un enlace. Como no tengo muchos conocimientos, uso un editor web: Online Image Maps Creator. Le cargamos la imagen y sobre ella pintamos los rectángulos sobre las bombillas. Cuando lo tengamos le decimos que nos muestre el codigo y lo guardamos como index.html en /var/www/ del RaspberryPi.
Ahora toca un poco de código, la idea es tener un index.html con el siguiente aspecto:

Veamos por ejemplo:

eso es el código del rectángulo sobre la bombilla A2 en apagar. El href nos envía a un php: acciones.php con los parámetros:

acc=apagar y app=A2

Bien, ahora toca crear:

vim /var/www/acciones.php

El mio es así:

Básicamente ejecuta como root el script domo.pl y le añade los parámetros de acción y aparato. Asi que toca añadir al archivo:

/etc/sudoers

la linea:

www-data ALL=(ALL) NOPASSWD: /usr/bin/perl /var/www/domo.pl

para que cuando www-data ejecute como root el script, no pida clave. Y ahora el script en cuestión: /var/www/domo.pl

#!/usr/bin/perl -w

use Fcntl;
foreach $argnum (0 .. $#ARGV) {
        if ($ARGV[$argnum] eq "encender") {
                $accion = 0x62;
        }
        if ($ARGV[$argnum] eq "on") {
                $accion = 0x62;
        }
        if ($ARGV[$argnum] eq "apagar") {
                $accion = 0x63;
        }
        if ($ARGV[$argnum] eq "off") {
                $accion = 0x63;
        }
        if ($ARGV[$argnum] eq "mas") {
                $accion = 0x65;
        }
        if ($ARGV[$argnum] eq "menos") {
                $accion = 0x64;
        }
        if ($ARGV[$argnum] eq "bright") {
                $accion = 0x65;
        }
        if ($ARGV[$argnum] eq "dim") {
                $accion = 0x64;
        }
        if ($ARGV[$argnum] eq "A1") {
                $aparato = 0x66;
        }
        if ($ARGV[$argnum] eq "a1") {
                $aparato = 0x66;
        }
        if ($ARGV[$argnum] eq "A2") {
                $aparato = 0x6E;
        }
        if ($ARGV[$argnum] eq "aseo") {
                $aparato = 0x6E;
        }
        if ($ARGV[$argnum] eq "a2") {
                $aparato = 0x6E;
        }
        if ($ARGV[$argnum] eq "A3") {
                $aparato = 0x62;
        }
        if ($ARGV[$argnum] eq "comedor") {
                $aparato = 0x62;
        }
        if ($ARGV[$argnum] eq "A4") {
                $aparato = 0x6A;
        }
        if ($ARGV[$argnum] eq "salon") {
                $aparato = 0x6A;
        }
        if ($ARGV[$argnum] eq "a3") {
                $aparato = 0x62;
        }
        if ($ARGV[$argnum] eq "a4") {
                $aparato = 0x6A;
        }
        if ($ARGV[$argnum] eq "A5") {
                $aparato = 0x61;
        }
        if ($ARGV[$argnum] eq "A6") {
                $aparato = 0x69;
        }
        if ($ARGV[$argnum] eq "A7") {
                $aparato = 0x65;
        }
        if ($ARGV[$argnum] eq "A8") {
                $aparato = 0x6D;
        }
        if ($ARGV[$argnum] eq "A9") {
                $aparato = 0x67;
        }
        if ($ARGV[$argnum] eq "A10") {
                $aparato = 0x6F;
        }
        if ($ARGV[$argnum] eq "A11") {
                $aparato = 0x63;
        }
        if ($ARGV[$argnum] eq "A12") {
                $aparato = 0x6B;
        }
        if ($ARGV[$argnum] eq "A13") {
                $aparato = 0x60;
        }
        if ($ARGV[$argnum] eq "A14") {
                $aparato = 0x68;
        }
        if ($ARGV[$argnum] eq "A15") {
                $aparato = 0x64;
        }
        if ($ARGV[$argnum] eq "A16") {
                $aparato = 0x6C;
        }
}
#print "se va a $accion el cacharro $aparato\n";
sysopen( CM15A, "/dev/cm15a0", O_RDWR |O_NOCTTY | O_NONBLOCK ) || die "Cannot open device $!";
syswrite CM15A, pack( "CC", 4, $aparato ), 2;
sleep 1;
syswrite CM15A, pack( "CC", 6, $accion ), 2;
close( CM15A );

Básicamente lo hace es ir traduciendo a hexadecimal el código de aparato y función, la verdad no se de donde cogí la información :) Y ya está, reiniciamos sudo:

/etc/init.d/sudo reload

Nos conectamos a:

http://ip_raspberrypi

y ya podemos controlar las luces de casa. Que bonito esto del X10 ¿verdad?