Index

Ceci est une ancienne révision du document !

Objectif

1. Interfacer Calaos avec des sondes et périphériques Mqtt
2. Scripts a faire en 30 minutes

Ce projet est (aujourd'hui) decoupé en 2 morceaux :

1. un Script Mqtt vers Calaos
2. un Script Mqtt vers Calaos

A faire evoluer

1. Mettre _toutes_ les configurations dans un fichier tiers (le port 4456 aussi)
2. Utiliser un publisher mqtt propre au langage, de meme pour nc et expect

Outils utilisées

1. nc et expect : pour communiquer avec le port 4456 de Calaos
2. perl

#!/usr/bin/perl
 
my $mqtts="MQTTSRV";
my $calaos="CALAOSSRV";
my $login="MOIMOI";
my $pwd="SECRET";
my $prefmqtt="calaos/";
 
my $prefcalaos='expect -c \'spawn -noecho nc '.$calaos.' 4456;send "login '.$login.' '.$pwd.'\n";expect -re {login '.$login.' ok\r\n};send "';
my $postcalaos='\n";\'';
 
$cmdlisten="/usr/bin/mosquitto_sub -h $mqtts -t '$prefmqtt#' -v";
open LISMQ,$cmdlisten." |";
 
sleep(5);
 
print "Mqtt 2 Calaos Listening $mqtts $prefmqtt#\n";
 
while(<LISMQ>) {
        chomp();
        s/^$prefmqtt//g;
        ($cmd,$id,$act,$params)=split(/[\/ ]/,$_,4);
        $cmdcalaos=$prefcalaos.$cmd.' '.$id.' '.$act.' '.$params.$postcalaos;
        open CALAOS,$cmdcalaos." |";
        while(<CALAOS>) {}
        close(CALAOS);
        }
 
print "Mqtt 2 Calaos listener dead\n";

STATUT DOCUMENT
Titre du document : Mqtt2Calaos
Date de Création : 16-03-2022 01:03
Date de dernière édition : 16-03-2022 01:03
Statut du document : VALIDE
Validation par : Antoine Delaporte
le : 16-03-2022 06:03