Christophe Nowicki » xPL

xPL Perl update script for Pachube

cscm — Fri, 27 Nov 2009 22:29:45 +0000

I’ve wrote a small update script for Pachube based on xPL-Perl.
This module is based on Beanz’s Net::Pachube module.
I use this script, for my pachube feed.

Setup

The setup is very simple on Debian GNU/Linux, at first you need the Net::Pachube module :
$ wget http://search.cpan.org/CPAN/authors/id/B/BE/BEANZ/Net-Pachube-0.01.tar.gz $ tar xzf Net-Pachube-0.01.tar.gz $ cd Net-Pachube-0.01 $ perl Makefile.PL $ make ... # make install
Note: the dh-make-perl method does not work, with this package ;-(

Then you can grab, my xpl-pachube script :

$ svn co http://svn.csquad.org/xpl-pachube/ .. # chmod +x xpl-pachube/xpl-pachube # mv xpl-pachube/xpl-pachube /usr/local/bin

Run

You can start the xpl-pachube script in verbose this way :
$ xpl-pachube -key 52b37888404598851de -verbose -feed_id 1934 class=sensor device=cc128.01189.0.1

You need to change the -key and -feed_id arguments.

That’s all folks!

xPL Automatic Speech Recognition with Julius

cscm — Fri, 23 Oct 2009 14:26:26 +0000

I’ve wrote a very small Perl module for interfacing my home automation Speech Recognition Engine based on Julius with the xPL Network.

The goal of this xpl-perl module, is to broadcast recognised speech.

I’ve described the ASR xPL schema on the project forum : ASR.BASIC Schema proposal

You need a working Julius installation running in monitor mode (listening on the network) and an xpl-perl setup.

Here is an sample command output :
$ julius -input file -C julian.jconf ... Stat: server-client: socket ready as server /////////////////////////////// /// Module mode ready /// waiting client at 10500 ///////////////////////////////
In others windows, you must run xpl-asr-julius and xpl-logger.
When you speak or send a wav file to Julius, the reconised text is broadcasted on the network :
### read waveform input enter filename-> test.wav Stat: adin_file: input speechfile: test.wav STAT: 180003 samples (3.75 sec.) STAT: ### speech analysis (waveform -> MFCC) STAT: 00 _default: 17 generated, 17 pushed, 6 nodes popped in 1123
xpl-logger output :
10.0.0.242:53922 [xpl-trig/asr.basic: bnz-julius.nux -> * - éteindre lumière chambre ]

Installation

The setup is very simple on Debian GNU/Linux. Just fallow thoses instructions :
$ wget http://www.csquad.org/wp-content/contrib/xpl-asr-julius/xPL-ASR-Julius-0.01.tar.gz $ tar xzf xPL-ASR-Julius-0.01.tar.gz $ dh-make-perl xPL-ASR-Julius-0.01 $ cd xPL-ASR-Julius-0.01 $ dpkg-buildpackage -b # dpkg -i ../libxpl-asr-julius-perl*.deb

That’s all !

Modules Plugwise dans un reseau xPL

cscm — Sat, 03 Oct 2009 16:23:02 +0000

L’objectif de cet article est d’expliquer l’utilisation des modules Plugwise dans un réseau xPL sous Debian GNU/Linux à l’aide du projet xpl-perl.

Présentation de Plugwise

Les modules plugwise sont des prises électriques qui permettent de :

Mesurer la consommation électrique d’un appareil ;
Éteindre / Allumer un appareil électrique à distance.

Ces prises communiquent entre elles à l’aide d’un réseau ZigBee de type Mesh.

Les spécifications du produit sont :

Voltage: 100-240 V~
Fréquence: 50 / 60 Hz
Puissance maximale: 3680 Watt
Courant maximal: 16 A

Elles sont produites par une société Hollandaise et uniquement disponibles dans leur Webshop. (passer la commande en hollandais n’est pas évident )

Chaque prise coûte environ 35 euros et le kit de démarrage le moins cher est à 150 euros.

Les prises électriques sont de type F, il vous faut donc un adaptateur pour les appareils nécessitant une prise de terre.

J’utilise ces prises dans mon installation domotique, car elles présentent un avantage par rapport aux solutions classiques basées sur le CPL (x10, PLC-BUS, etc… ).

En effet, il est possible d’utiliser ce type de prise sur un onduleur et comme une bonne partie de mon installation est ondulée c’est la seule solution.

Installation du “stick” usb

Voici la procédure pour installer, le stick usb.
Insérerez le module dans le port usb de la machine, il doit apparaître et être reconnu comme un adaptateur série :
$ lsusb ... Bus 006 Device 003: ID 0403:6001 Future Technology Devices International, Ltd FT232 USB-Serial (UART) IC ... $ dmesg ... [431159.173232] usb 6-2: FTDI USB Serial Device converter now attached to ttyUSB0 [431159.179407] usb 6-2: New USB device found, idVendor=0403, idProduct=6001 [431159.179459] usb 6-2: New USB device strings: Mfr=1, Product=2, SerialNumber=3 [431159.180301] usb 6-2: Product: FT232R USB UART [431159.180301] usb 6-2: Manufacturer: FTDI [431159.180301] usb 6-2: SerialNumber: A8009iKr $ ls -l /dev/ttyUSB* crw-rw---- 1 root dialout 188, 0 2009-09-22 13:03 /dev/ttyUSB0

Configuration du module xpl-plugwise

Dépendances

Pour faire fonctionner le module vous avez besoin du module perl Digest::CRC :
# apt-get install libdigest-crc-perl

Installation du module

Le module xPL pour Plugwise se trouve directement sur le serveur du projet xpl-perl :
# cd /usr/src # wget http://www.xpl-perl.org.uk/download/xPL-Plugwise-0.01.tar.gz # tar xzf xPL-Plugwise-0.01.tar.gz # dh-make-perl xPL-Plugwise-0.01 # cd xPL-Plugwise-0.01/ # sed -i 's/\$(MAKE) test/#/' debian/rules # dpkg-buildpackage -b # dpkg -i ../libxpl-plugwise-perl_0.01-1_all.deb

Lancement

Pour lancer le module, il faut lui préciser l’emplacement du stick USB à l’aide de la ligne de commande :
# xpl-plugwise --verbose --plugwise-verbose --plugwise-tty /dev/ttyUSB0 Listening on 192.168.42.78:34281 Sending on 192.168.42.255

Utilisation

Pour allumer une prise, il suffit d’envoyer l’ordre suivant :
$ xpl-sender -m xpl-cmnd -c plugwise.basic command=on device=3FD8F6
Pour éteindre :
$ xpl-sender -m xpl-cmnd -c plugwise.basic command=off device=3FD8F6
Pour obtenir la consommation de l’appareil sur la prise :
$ xpl-sender -m xpl-cmnd -c plugwise.basic command=powerinfo device=3FD8F6
Le module répond à l’aide d’un trigger, donc voici la sortie :
$ xpl-logger -body class=plugwise 192.168.42.2:48051 [xpl-cmnd/plugwise.basic: bnz-sender.tux -> * - powerinfo 3FD8F6] plugwise.basic { command=powerinfo device=3FD8F6 } 192.168.42.2:48051 [xpl-trig/plugwise.basic: bnz-plugwise.milk -> * - powerinfo 3FD8F6] plugwise.basic { command=powerinfo device=3FD8F6 pulse1sec=0005 pulse8sec=0006 unknown=000000A4 }
L’information se trouve dans les deux variables pulse1sec et pulse8sec.

Conclusion

Pour l’instant, l’utilisation de ces prises sous Debian GNU/Linux se limite aux ordres on/off. Il est encore nécessaire d’utiliser le logiciel fourni par le fabriquant pour la configuration du réseau.

Archivage des messages xPL dans une base de données

cscm — Sat, 26 Sep 2009 10:44:03 +0000

Voici la procédure pour archiver les messages de votre réseau xPL dans une base de données MySQL.

L’objectif

Beanz, l’auteur du projet xpl-perl a supprimé la fonctionnalité du projet dans la version 0.08.

Cette fonctionnalité répond à un besoin très spécifique.
Archiver TOUS les messages dans une base de données MySQL demande beaucoup de ressources.
Sur mon petit réseau domotique, j’ai déjà plus de 25 messages par minute.

Ce qui produit une base de données importante avec 100 000 entrées par semaine, soit 500 000 par mois, 6 000 000 par an.

Et la taille de la base de données fait dans les 50 Mo par semaine, soit 250Mo par mois, 3Go par an.

Donc pour stocker ces données vous devez en avoir vraiment besoin. C’est mon cas, car :

Je veux conserver la consommation électrique exact de chaque appareil ;
Utiliser des optimisations à l’aide d’un réseau de neurones.

Installation

Vous devez disposer d’un réseau xPL fonctionnel et d’une installation de xpl-perl.

Programme

Nous allons récupèrer le code des modules directement dans le svn.

# cd /usr/share/perl5/xPL # wget http://www.xpl-perl.org.uk/export/892/xpl-perl/branches/r0.08/lib/xPL/SQL.pm # sed -i -e 's#/etc/xpl-perl/db.config#/etc/xplperl/db.config#' SQL.pm # cd /usr/bin # wget http://www.xpl-perl.org.uk/export/892/xpl-perl/branches/r0.08/bin/xpl-sql-logger # chmod +x xpl-sql-logger # apt-get install libclass-dbi-loader-perl libdatetime-perl # cd /etc/xplperl # cat < db.config dsn=dbi:mysql:xpl:localhost user=xpl password=secret EOF #

Base de données

Une fois que vous avez installé le programme, il est nécessaire de configurer la base de données.

Pour cela vous devez créer un utilisateur xpl et une base de données xpl sur votre serveur MySQL.
Ensuite vous créer les tables de la base de données à l’aide des requêtes SQL suivantes :
CREATE TABLE body ( id int NOT NULL auto_increment, body varchar(1500) default NULL, PRIMARY KEY (id), KEY body_idx (body(1000)) ); CREATE TABLE elt ( id int NOT NULL auto_increment, name varchar(16) default NULL, value varchar(128) default NULL, PRIMARY KEY (id), KEY name_idx (name) ); CREATE TABLE msg ( id int NOT NULL auto_increment, time int default NULL, usec int default NULL, type char(8) default NULL, source varchar(34) default NULL, target varchar(34) default NULL, class varchar(15) default NULL, incomplete int default NULL, body int default NULL, PRIMARY KEY (id), KEY class_idx (class), KEY time_idx (time,usec), KEY type_idx (type), KEY body_idx (body) ); CREATE TABLE msgelt ( id int NOT NULL auto_increment, msg int NOT NULL, elt int NOT NULL, PRIMARY KEY (id), KEY msg_idx (msg), KEY elt_idx (elt) );

Lancement et recette

Vous pouvez ensuite lancer le programme en ligne de commande :
$ xpl-sql-logger
Vous pouvez ensuite vérifier que cela fonctionne dans la base de données :
mysql> SELECT * FROM `msg` ORDER BY id DESC LIMIT 3; +---------+------------+--------+----------+----------------+--------+--------------+------------+ | id | time | usec | type | source | target | class | incomplete | +---------+------------+--------+----------+----------------+--------+--------------+------------+ | 7711941 | 1253948224 | 252455 | xpl-trig | bnz-ccost.milk | * | sensor.basic | 0 | | 7711931 | 1253948224 | 211170 | xpl-trig | bnz-ccost.milk | * | sensor.basic | 0 | | 7711921 | 1253948224 | 130241 | xpl-trig | bnz-ccost.milk | * | sensor.basic | 0 | +---------+------------+--------+----------+----------------+--------+--------------+------------+ 3 rows in set (0.00 sec)

Lancement automatique

Vous pouvez lancer automatiquement le programme à l’aide de daemontools en plaçant le programme dans le répertoire /etc/services de la manière suivante :
# cd /etc/xplperl/service # cp -r xpl-hub xpl-sql-logger # cd xpl-sql-logger # cat < run #!/bin/sh exec 2>&1 exec setuidgid xplperl envdir ./env softlimit -d300000 /usr/bin/xpl-sql-logger EOF # cd /etc/service # ln -s /etc/xplperl/service/xpl-sql-logger/ # ps auxww | grep xpl-sql-logger root 3306 0.0 0.0 1620 332 ? S Sep22 0:00 supervise xpl-sql-logger xplperl 23943 1.3 0.6 16944 12952 ? S 08:20 0:37 /usr/bin/perl -w /usr/bin/xpl-sql-logger

Surveillance de l’archivage

Le système fonctionne très bien. Par contre, j’ai rencontré quelques problèmes au bout d’une ou deux semaines le programme arrête d’archiver les données dans la base, il faut donc le relancer.
La solution la plus simple et de relancer le script à l’aide d’un cron et monit

.
Voici mon crontab :
*/1 * * * * echo "SELECT NOW() - FROM_UNIXTIME(time) FROM msg ORDER BY id DESC LIMIT 1;" | mysql -hlocalhost -uxpl -psecret -s xpl > /tmp/xpl-sql-logger

Voici ma configuration pour monit dans le fichier /etc/monit.d/xpl-sql-logger :
check file xpl-sql-logger with path /tmp/xpl-sql-logger if match "^[0-9]{1,2}" then stop stop program = "/usr/bin/killall -r xpl-sql-logger"

Exploitation des données

Pour exploiter les données, je suis en train d’écrire des gadgets pour Portaneo (P.O.S.H) à afin de pouvoir afficher les données sous forme de graphiques

xPL Text-to-Speech module

cscm — Tue, 11 Aug 2009 16:17:18 +0000

I’ve wote an Text-to-Speech module for xPL Perl based on eSpeak and the Speech::eSpeak Perl module.

The xPL TTS.BAISC schema is very basic, but suffisent for my text-to-speech needs.

Setup on Debian GNU/Linux

You should install the fallowing packages with apt :
# apt-get install libespeak-dev dh-make-perl espeak-data devscripts

And build the Perl module :
# cd /usr/src # wget http://search.cpan.org/CPAN/authors/id/H/HG/HGNENG/Speech-eSpeak-0.3.tar.gz # tar xzf Speech-eSpeak-0.3.tar.gz # dh-make-perl Speech-eSpeak-0.3 # cd Speech-eSpeak-0.3 # debuild # dpkg -i dpkg -i ../libspeech-espeak-perl*

Get my source code :
# wget http://www.csquad.org/wp-content/contrib/eSpeak.pm -O /usr/share/perl5/xPL/Dock/eSpeak.pm # wget http://www.csquad.org/wp-content/contrib/xpl-tts -O /usr/bin/xpl-tts # chmod +x /usr/bin/xpl-tts

Usage exemples

Launch the xpl-tts program :
$ xpl-tts -espeak-verbose -espeak-voice-language en -espeak-voice-gender 2 -espeak-voice-age 42
Then, send an xpl command on the network :
$ xpl-sender -m xpl-cmnd -c tts.basic speech="xPL rocks everything"

You should hear the synthesized voice.

And Voila

Bugs and evolutions

I will submit this module to the xpl-perl project and try to implement MBROLA project support. Because I’ve got a more humain voices.

Configuration du module Current Cost CC128 et intégration dans un réseau domotique xPL

cscm — Thu, 07 May 2009 20:51:47 +0000

Le Current Cost CC128 est un système de suivi de la consommation électrique.
Il est composé de deux modules : une pince ampère-métrique sans fils et un module de réception de données.
L’objectif du produit est de suivre la consommation de votre installation électrique.

En effet, la première étape pour faire des économies d’énergie est de connaitre sa consommation.
C’est pour cela, que j’ai cherché une solution simple pour monitorer mon installation de manière informatisée.

Les compteurs d’électricité EDF récents disposent d’une sortie téléinfo : cette sortie permet de récupèrer la consommation sur un PC via le port série ou USB à l’aide d’un montage électronique comme celui-ci.

Malheureusement, mon compteur est trop vieux et ne dispose pas d’une sortie téléinfo.
J’ai donc cherché une solution alternative que j’ai trouvée grâce au forum Toute la domotique.

Il est possible de se procurer le module et le câble de données USB via la boutique eBay du constructeur : Current Cost Ltd.

L’objectif de ce billet est de configurer le module CC128 sur une distribution Debian GNU/Linux, version “Lenny” dans un réseau domotique xPL à l’aide du projet xpl-perl.

Installation matériel

L’installation matériel est assez simple, il suffit de brancher le module via le câble USB pour le voir à l’aide de la commande lsusb :
$ lsusb Bus 001 Device 008: ID 067b:2303 Prolific Technology, Inc. PL2303 Serial Port
Le module est visible sous forme de port série via /dev/ttyUSB :
$ dmesg pl2303 1-2.1.1.1.2:1.0: pl2303 converter detected usb 1-2.1.1.1.2: pl2303 converter now attached to ttyUSB0 usbcore: registered new driver pl2303 drivers/usb/serial/pl2303.c: Prolific PL2303 USB to serial adaptor driver

Installation de xPL-Perl

Pour faire fonctionner le module CC128, j’utilise la version SVN du projet, XPL-Perl.
Voici la procédure d’installation, il faut commencer par installer les paquets suivants via apt :
# apt-get install subversion libmodule-pluggable-perl libyaml-perl make fakeroot dh-make-perl dpkg-dev debhelper libtimedate-perl gcc libyaml-syck-perl
Télécharger le code source de la version svn :
# cd /usr/src # svn co http://www.xpl-perl.org.uk/svn/xpl-perl/trunk xpl-perl # cd xpl-perl # dpkg-buildpackage -b ... # cd .. # dpkg -i libxpl-perl*.deb

Les différents modules xpl sont lancés sous forme de daemon, pour simplifier leur gestion le plus simple est d’installer daemontools sur la machine :
# apt-get install daemontools daemontools-run
Vous pouvez configurer le hub xpl et le module xpl-rrd grâce au script : xpl-perl-setup
# xpl-perl-setup Using /usr/bin as directory for xpl-perl scripts


Setting up xpl-hub service
Setting up xpl-rrd service
Setting up xpl-rrd crontab

/etc/cron.d/xpl-rrd created
heyu not install not setting up xpl-x10
DateTime::Event::Sunrise not available, not configuring xpl-dawndusk
1-wire filesystem, /ow, not available, not configuring xpl-owfs

set XPL_OWFS environment variable to mount point if it is not /ow
XPL_RFXCOM_RX_TTY not defined, not configuring xpl-rfxcom-rx
XPL_RFXCOM_TX_TTY not defined, not configuring xpl-rfxcom-tx
XPL_VIOM_TTY not defined, not configuring xpl-viom
XPL_W800_TTY not defined, not configuring xpl-w800

hddtemp daemon not running, not configuring xpl-hddtemp

Vous pouvez vérifier le bon fonctionnement du module en ligne de commande :
# xpl-currentcost -v /dev/ttyUSB0 Listening on 192.168.42.4:2135 Sending on 192.168.42.255 xpl-trig/sensor.basic: bnz-ccost.tof -> * - cc128.00077.0.1[current]=1095 xpl-trig/sensor.basic: bnz-ccost.tof -> * - cc128.00077.0[current]=1095 xpl-trig/sensor.basic: bnz-ccost.tof -> * - cc128.00077.0[temp]=23.1
La cela fonctionne, le module diffuse la valeur de la consommation sur le réseau xPL.
Nous allons ensuite configurer deamontools pour lancer le script au boot sous forme de service.
# cd /etc/xplperl/service/ # cp -r xpl-hub/ xpl-currentcost # chown -R xplperllog: /etc/xplperl/service/xpl-currentcost/log/main/ # adduser xplperl dialout Adding user `xplperl' to group `dialout' ... Adding user xplperl to group dialout Done. # sed -i 's#xpl-hub -v#xpl-currentcost -v /dev/ttyUSB0#' /etc/xplperl/service/xpl-currentcost/run # sed -i 's#xplperl#root#' /etc/xplperl/service/xpl-currentcost/run # sed -i 's#-d300000#-d9000000#' /etc/xplperl/service/xpl-currentcost/run # update-service --add /etc/xplperl/service/xpl-currentcost/ Service xpl-currentcost added.

Et voila, normalement vous devriez voir des messages ur le réseau xPL à l’aide de xp-logger :
xpl-logger 192.168.42.2:52393 [xpl-stat/hbeat.app: bnz-listener.tux -> *] 192.168.42.2:52393 [xpl-trig/sensor.basic: bnz-ccost.tof -> * - cc128.00077.0.1[current]=1085] 192.168.42.2:52393 [xpl-trig/sensor.basic: bnz-ccost.tof -> * - cc128.00077.0[current]=1085] 192.168.42.2:52393 [xpl-trig/sensor.basic: bnz-ccost.tof -> * - cc128.00077.0[temp]=23.3]

Conclusion

Voila, grâce au module xpl-currentcost, les informations sur la consommation éléctrique sont diffusées sur le réseau xPL. Ma prochaine étape sera d’achiver les données dans une base de données et de dessiner des graphiques.