Domoticz

Code: Select all

pi@raspberrypi:~$  perl /home/pi/domoticz/scripts/melcloud.pl report 
pi@raspberrypi:~$  perl /home/pi/domoticz/scripts/melcloud1.pl report
Can't locate config.pl in @INC (@INC contains: /etc/perl /usr/local/lib/arm-linux-gnueabihf/perl/5.20.2 /usr/local/share/perl/5.20.2 /usr/lib/arm-linux-gnueabihf/perl5/5.20 /usr/share/perl5 /usr/lib/arm-linux-gnueabihf/perl/5.20 /usr/share/perl/5.20 /usr/local/lib/site_perl .) at /home/pi/domoticz/scripts/melcloud1.pl line 49.

Code: Select all

pi@Domorasp:~/domoticz/scripts$ ./melcloud.pl /report
'"' expected, at character offset 4 (before "Success: false, Erro...") at ./melcloud.pl line 271.

Code: Select all

pi@Domorasp:~/domoticz/scripts$ ./melcloud.pl /check
############################
# Check configuration:     #
############################
Connection to domoticz [OK]
Configuration MEL Cloud [DOMOTICZ]
Connection to MEL Cloud [OK]

Code: Select all

setMELDeviceFan($devicesInfos{$name}{'idx_fan'},$infosAirCon);

Code: Select all

$devicesInfos{"Heater"}{"idx_fan"} = "109";

Code: Select all

setDomDeviceStatus

Code: Select all

setMELDevicePower

Code: Select all

Use of uninitialized value $result in concatenation (.) or string at ./melcloud.pl line 541.

Code: Select all

debug("receive from domoticz: ".$result);

Code: Select all

my $result = domSendJSON("type=command&param=udevice&idx=$idDomDevice&nvalue=0&svalue=$deviceInfos->{'RoomTemperature'}") if /(?:status\"\ :)+(.*?),/s;

Code: Select all

receive from domoticz: 

Code: Select all

domoticz/scripts/perl $ perl melcloud.pl report
Use of uninitialized value $result in print at melcloud.pl line 538.
Use of uninitialized value $result in concatenation (.) or string at melcloud.pl line 539.
Use of uninitialized value $idx in concatenation (.) or string at melcloud.pl line 175.

Code: Select all

173      my ($idx) = @_;
174      my $result;
175      my $url = "http://$domIP:$domPORT/json.htm?type=devices&rid=".$idx;

Code: Select all

537      my $result = domSendJSON("type=command&param=udevice&idx=$idDomDevice&nvalue=0&svalue=$deviceInfos->{'RoomTemperature'}") if /(?:status\"\ :)+(.*?),/s;
538      debug("receive from domoticz: ".$result);
l539      return $result;

Code: Select all

#!/bin/bash
#
# Name : pac_mistubishi.sh
# Description : Envoi des commandes pour le contrôle de la pompe a chaleur
# Author : bagnico
##############################################################################################
# Usage
##############################################################################################
# 
# bash pac_mitubishi.sh $name $power $mode $temp $fanspeed $vanehorizontal $vanevertical 
#
# name = Nom utilise sur melcloud
# power = ON/OFF
# mode = 1=warm 2=dry 3=cool 7=vent 8=auto
# temp = temperature de consigne
# fanspeed = 0=auto / 1-5
# vanehorizontal = 0=auto / 1-5 / 12=move
# vanevertical = 0=auto / 1-5 / 7=move
#
#
##############################################################################################

name=$1
power=$2
mode=$3
temp=$4
fanspeed=$5
vaneh=$6
vanev=$7

if [[ "$power" = "OFF" && ! -z $name ]] ; then
	info=$(perl /home/pi/domoticz/scripts/perso/pac_melcloud.pl power off $name)
	echo "$info"
	cmd=`echo "$*"|sed 's/ /%20/g'`
	curl "http://127.0.0.1:8080/json.htm?type=command&param=addlogmessage&message=PAC%20$cmd"
	exit
fi

if [[ -z $name || -z $power || -z $mode || -z $temp || -z $fanspeed || -z $vaneh || -z $vanev ]] || [[ $power != "ON" && $power != "OFF" ]] ; then
	echo $power
	echo "ERROR !"
	echo "Usage : pac_mitubishi.sh name power mode temp fanspeed vanehorizontal vanevertical"
	cmd=`echo "$*"|sed 's/ /%20/g'`
	curl "http://127.0.0.1:8080/json.htm?type=command&param=addlogmessage&message=PAC%20ERROR%20PARAMETRE%20MANQUANT%20$cmd"
	exit
fi

if [ $mode = "1" ] ; then
	modeclim="warm"
elif [ $mode = "2" ] ; then
	modeclim="dry"
elif [ $mode = "3" ] ; then
	modeclim="cool"
elif [ $mode = "7" ] ; then
	modeclim = "vent"
elif [ $mode = "8" ] ; then
	modeclim="auto"
fi


if [ "$power" = "ON" ] ; then
	info=$(perl /home/pi/domoticz/scripts/perso/pac_melcloud.pl power on $name)
	echo "$info"

	if echo $info | grep -q '"OperationMode":'$mode ; then
		echo "MODE IDENTIQUE : $mode"
	else
		perl /home/pi/domoticz/scripts/perso/pac_melcloud.pl mode $modeclim $name
		echo "MODE $mode OK"
	fi

	if echo $info | grep -q '"SetTemperature":'$temp ; then
		echo "TEMPERATURE DEMANDEE IDENTIQUE : $temp"
	else
		perl /home/pi/domoticz/scripts/perso/pac_melcloud.pl temp $temp $name
		echo "TEMPERATURE DEMANDEE $temp OK"
	fi

	if echo $info | grep -q '"SetFanSpeed":'$fanspeed ; then
		echo "VITESSE VENTILATEUR DEMANDEE IDENTIQUE : $fanspeed"
	else
		perl /home/pi/domoticz/scripts/perso/pac_melcloud.pl fan $fanspeed $name
		echo "VITESSE VENTILATEUR DEMANDEE $fanspeed OK"
	fi

	if echo $info | grep -q '"VaneHorizontal":'$vaneh ; then
		echo "POSITION VANEHORIZONTAL DEMANDEE IDENTIQUE : $vaneh"
	else
		perl /home/pi/domoticz/scripts/perso/pac_melcloud.pl vanehorizontal $vaneh $name
		echo "POSITION VANEHORIZONTAL $vaneh OK"
	fi

	if echo $info | grep -q '"VaneVertical":'$vanev ; then
		echo "POSITION VANEHORIZONTAL DEMANDEE IDENTIQUE : $vanev"
	else
		perl /home/pi/domoticz/scripts/perso/pac_melcloud.pl vanevertical $vanev $name
		echo "POSITION VANEVERTICAL $vanev OK"
	fi

	cmd=`echo "$*"|sed 's/ /%20/g'`
	curl "http://127.0.0.1:8080/json.htm?type=command&param=addlogmessage&message=PAC%20$cmd"

else
	echo "ERROR !"
	echo "Usage : pac_mitubishi.sh name power mode temp fanspeed vanehorizontal vanevertical"
	cmd=`echo "$*"|sed 's/ /%20/g'`
	curl "http://127.0.0.1:8080/json.htm?type=command&param=addlogmessage&message=PAC%20ERROR%20$cmd"
fi