regel.sh

#!/bin/bash
#set -e

#####
#
# File: regel.sh
#
# Copyright 2018 Kevin Wieland, David Meder-Marouelli
#
#  This file is part of openWB.
#
#     openWB is free software: you can redistribute it and/or modify
#     it under the terms of the GNU General Public License as published by
#     the Free Software Foundation, either version 3 of the License, or
#     (at your option) any later version.
#
#     openWB is distributed in the hope that it will be useful,
#     but WITHOUT ANY WARRANTY; without even the implied warranty of
#     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#     GNU General Public License for more details.
#
#     You should have received a copy of the GNU General Public License
#     along with openWB.  If not, see <https://www.gnu.org/licenses/>.
#
#####

set -o pipefail
cd /var/www/html/openWB/
#config file einlesen
. /var/www/html/openWB/loadconfig.sh
source minundpv.sh
source nurpv.sh
source auslademodus.sh
source sofortlademodus.sh
source goecheck.sh
source loadvars.sh
source graphing.sh
source nachtladen.sh
source zielladen.sh
source evsedintest.sh
source hook.sh
source u1p3p.sh
source nrgkickcheck.sh
source rfidtag.sh
source leds.sh
source slavemode.sh
date=$(date)
re='^-?[0-9]+$'

#doppelte Ausfuehrungsgeschwindigkeit
if [[ $dspeed == "1" ]]; then
	if [ -e ramdisk/5sec ]; then
		sleep 5 && ./regel.sh >> /var/log/openWB.log 2>&1 &
		rm ramdisk/5sec
	else
		echo 0 > ramdisk/5sec
	fi
fi
if [[ $dspeed == "2" ]]; then

	if [ -e ramdisk/5sec ]; then
		rm ramdisk/5sec
		exit 0
	else
		echo 0 > ramdisk/5sec
	fi
fi
updateinprogress=$(<ramdisk/updateinprogress)
if (( updateinprogress == "1" )); then
	echo "Update in progress"
	exit 0
fi

# process autolock
./processautolock.sh &

#ladelog ausfuehren
./ladelog.sh &
graphtimer=$(<ramdisk/graphtimer)
if (( graphtimer < 4 )); then
	graphtimer=$((graphtimer+1))
	echo $graphtimer > ramdisk/graphtimer
else
	graphtimer=0
	echo $graphtimer > ramdisk/graphtimer
fi
#######################################

if (( displayaktiv == 1 )); then
	execdisplay=$(<ramdisk/execdisplay)
	if (( execdisplay == 1 )); then
	        export DISPLAY=:0 && xset s $displaysleep && xset dpms $displaysleep $displaysleep $displaysleep
	        echo 0 > ramdisk/execdisplay
	fi
fi


#######################################
# check rfid
#moved in loadvars


#goe mobility check
goecheck
# nrgkick mobility check
nrgkickcheck
#load charging vars
if (( debug == 1)); then
	startloadvars=$(date +%s)
fi
loadvars
if (( debug == 1)); then
	endloadvars=$(date +%s)
	timeloadvars=$((endloadvars-startloadvars))
	echo "Zeit zum abfragen aller Werte $timeloadvars Sekunden"
fi
if (( u1p3paktiv == 1 )); then
	blockall=$(<ramdisk/blockall)
	if (( blockall == 1 )); then
		if [[ $debug == "1" ]]; then
			echo "Phasen Umschaltung noch aktiv... beende"
		fi
		exit 0
	fi
fi
if (( lp1enabled == 0)); then
	if (( ladeleistunglp1 > 100 )) || (( llalt > 0 )); then
		runs/set-current.sh 0 m
	fi
fi
if (( lp2enabled == 0)); then
	if (( ladeleistunglp2 > 100 )) || (( llalts1 > 0 )); then
		runs/set-current.sh 0 s1
	fi
fi
if (( lp3enabled == 0)); then
	if (( ladeleistunglp3 > 100 )) || (( llalts2 > 0 )); then
		runs/set-current.sh 0 s2
	fi
fi
if (( lp4enabled == 0)); then
	if (( ladeleistunglp4 > 100 )) || (( llaltlp4 > 0 )); then
		runs/set-current.sh 0 lp4
	fi
fi
if (( lp5enabled == 0)); then
	if (( ladeleistunglp5 > 100 )) || (( llaltlp5 > 0 )); then
		runs/set-current.sh 0 lp5
	fi
fi
if (( lp6enabled == 0)); then
	if (( ladeleistunglp6 > 100 )) || (( llaltlp6 > 0 )); then
		runs/set-current.sh 0 lp6
	fi
fi
if (( lp7enabled == 0)); then
	if (( ladeleistunglp7 > 100 )) || (( llaltlp7 > 0 )); then
		runs/set-current.sh 0 lp7
	fi
fi
if (( lp8enabled == 0)); then
	if (( ladeleistunglp8 > 100 )) || (( llaltlp8 > 0 )); then
		runs/set-current.sh 0 lp8
	fi
fi
#EVSE DIN Modbus test
evsedintest

#u1p3p switch
u1p3pswitch
#hooks - externe geraete
hook
#Graphing
graphing

if (( cpunterbrechunglp1 == 1 )); then
	if (( plugstat == 1 )) && (( lp1enabled == 1 )); then
               if (( llalt > 5 )); then
                       if (( ladeleistung < 200 )); then
                               cpulp1waraktiv=$(<ramdisk/cpulp1waraktiv)
                               if (( cpulp1waraktiv == 0 )); then
					echo "CP Unterbrechung an LP1 durchgeführt"
					if [[ $evsecon == "simpleevsewifi" ]]; then
						curl --silent --connect-timeout $evsewifitimeoutlp1 -s http://$evsewifiiplp1/interruptCp > /dev/null
					elif [[ $evsecon == "ipevse" ]]; then
						python runs/cpuremote.py $evseiplp1 4
					else
                                       		sudo python runs/cpulp1.py
					fi
                               		echo 1 > ramdisk/cpulp1waraktiv
                               fi
                       else
                               echo 0 > ramdisk/cpulp1waraktiv
                       fi
               fi
       else
               echo 0 > ramdisk/cpulp1waraktiv
       fi
fi
if (( cpunterbrechunglp2 == 1 )); then
	if (( plugstatlp2 == 1 )) && (( lp2enabled == 1 )); then
               if (( llalts1 > 5 )); then
                       if (( ladeleistunglp2 < 200 )); then
                               cpulp2waraktiv=$(<ramdisk/cpulp2waraktiv)
                               if (( cpulp2waraktiv == 0 )); then
				       echo "CP Unterbrechung an LP2 durchgeführt"
					if [[ $evsecons1 == "simpleevsewifi" ]]; then
						curl --silent --connect-timeout $evsewifitimeoutlp2 -s http://$evsewifiiplp2/interruptCp > /dev/null
					elif [[ $evsecons1 == "ipevse" ]]; then
						python runs/cpuremote.py $evseiplp2 7

					else
                                       		sudo python runs/cpulp2.py
			       		fi
                                       echo 1 > ramdisk/cpulp2waraktiv
                               fi
                       else
                               echo 0 > ramdisk/cpulp2waraktiv
                       fi
               fi
       else
               echo 0 > ramdisk/cpulp2waraktiv
       fi
fi
if [[ $dspeed == "3" ]]; then

	if [ -e ramdisk/5sec ]; then
		regeltimer=$(<ramdisk/5sec)
		if (( regeltimer < 5 )); then
			regeltimer=$((regeltimer+1))
			echo $regeltimer > ramdisk/5sec
			exit 0
		else
			regeltimer=0
			echo $regeltimer > ramdisk/5sec
		fi
	else
		echo 0 > ramdisk/5sec
	fi
fi

if (( ledsakt == 1 )); then
	ledsteuerung
fi
#Prüft ob der RSE (Rundsteuerempfängerkontakt) geschlossen ist, wenn ja wird die Ladung pausiert.
if (( rseenabled == 1 )); then
	rsestatus=$(<ramdisk/rsestatus)
	rseaktiv=$(<ramdisk/rseaktiv)
	if (( rsestatus == 1 )); then
		echo "RSE Kontakt aktiv, pausiere Ladung" > ramdisk/lastregelungaktiv
		if (( rseaktiv == 0 )); then
			echo "$date RSE Kontakt aktiviert, ändere Lademodus auf Stop" >> ramdisk/ladestatus.log
			echo $lademodus > ramdisk/rseoldlademodus
			echo 3 > ramdisk/lademodus
			mosquitto_pub -r -t openWB/global/ChargeMode -m "3"
			echo 1 > ramdisk/rseaktiv
		fi
	else
		if (( rseaktiv == 1 )); then
			echo "$date RSE Kontakt deaktiviert, setze auf alten Lademodus zurück" >> ramdisk/ladestatus.log
			rselademodus=$(<ramdisk/rseoldlademodus)
			echo $rselademodus > ramdisk/lademodus
			mosquitto_pub -r -t openWB/global/ChargeMode -m "$rselademodus"
			echo 0 > ramdisk/rseaktiv
		fi
	fi
fi

#evse modbus check
evsemodbustimer=$(<ramdisk/evsemodbustimer)
if (( evsemodbustimer < 30 )); then
	evsemodbustimer=$((evsemodbustimer+1))
	echo $evsemodbustimer > ramdisk/evsemodbustimer
else
	evsemodbustimer=0
	echo $evsemodbustimer > ramdisk/evsemodbustimer
	evsemodbuscheck
fi

# Slave Mode, openWB als Ladepunkt nutzen

if (( slavemode == 1 )); then
	openwbisslave
fi
#Lademodus 3 == Aus

if (( lademodus == 3 )); then
	auslademodus
fi

#loadsharing check
if [[ $loadsharinglp12 == "1" ]]; then
	if (( loadsharingalp12 == 16 )); then
		agrenze=8
		aagrenze=16
		if (( current > 16 )); then
			current=16
		fi
	else
		agrenze=16
		aagrenze=32
	fi
	tcurrent=$(( llalt + llalts1 ))
	if (( tcurrent > aagrenze )); then
		#detect charging cars
		if (( lla1 > 1 )); then
			lp1c=1
			if (( lla2 > 1 )); then
				lp1c=2
			fi
		else
			lp1c=0
		fi
		if (( llas11 > 1 )); then
			lp2c=1
			if (( llas12 > 1 )); then
				lp2c=2
			fi
		else
			lp2c=0
		fi
		chargingphases=$(( lp1c + lp2c ))
		if (( chargingphases > 2 )); then
			runs/set-current.sh "$agrenze" all
			echo "$date Alle Ladepunkte, Loadsharing LP1-LP2 aktiv. Setze Ladestromstärke auf $agrenze" >> ramdisk/ladestatus.log
			exit 0
		fi
	fi
fi


#########################################
#Regelautomatiken

if (( zielladenaktivlp1 == 1 )); then
	ziellademodus
fi
####################
# Nachtladung bzw. Ladung bis SOC x% nachts von x bis x Uhr

prenachtlademodus

########################
# Sofort Laden
if (( lademodus == 0 )); then
	sofortlademodus
fi

#######################
#Ladestromstarke berechnen
anzahlphasen=$(</var/www/html/openWB/ramdisk/anzahlphasen)
if (( anzahlphasen > 9 )); then
	anzahlphasen=1
fi
llphasentest=3
echo "$date Alte Anzahl genutzter Phasen= $anzahlphasen" >> ramdisk/nurpv.log
#Anzahl genutzter Phasen ermitteln, wenn ladestrom kleiner 3 (nicht vorhanden) nutze den letzten bekannten wert
if (( llalt > 3 )); then
	anzahlphasen=0
	if [ $lla1 -ge $llphasentest ]; then
		anzahlphasen=$((anzahlphasen + 1 ))
	fi
	if [ $lla2 -ge $llphasentest ]; then
  	anzahlphasen=$((anzahlphasen + 1 ))
	fi
	if [ $lla3 -ge $llphasentest ]; then
		anzahlphasen=$((anzahlphasen + 1 ))
	fi
	echo $anzahlphasen > /var/www/html/openWB/ramdisk/anzahlphasen
	echo $anzahlphasen > /var/www/html/openWB/ramdisk/lp1anzahlphasen
	echo "$date LP1 Anzahl Phasen während Ladung= $anzahlphasen" >> ramdisk/nurpv.log

else
	if (( plugstat == 1 )) && (( lp1enabled == 1 )); then
		if [ ! -f /var/www/html/openWB/ramdisk/anzahlphasen ]; then
			echo 1 > /var/www/html/openWB/ramdisk/anzahlphasen
		fi
		if (( u1p3paktiv == 1 )); then
			anzahlphasen=$(cat /var/www/html/openWB/ramdisk/u1p3pstat)
		else
			if [ ! -f /var/www/html/openWB/ramdisk/lp1anzahlphasen ]; then
				anzahlphasen=$(cat /var/www/html/openWB/ramdisk/lp1anzahlphasen)
			else
				anzahlphasen=$(cat /var/www/html/openWB/ramdisk/anzahlphasen)
			fi
		fi
	else
		anzahlphasen=0
	fi
	echo "$date LP1 Anzahl Phasen während keiner Ladung= $anzahlphasen" >> ramdisk/nurpv.log

fi
if (( lastmanagement == 1 )); then
	if (( llas11 > 3 )); then
		if [ "$llas11" -ge $llphasentest ]; then
			anzahlphasen=$((anzahlphasen + 1 ))
			lp2anzahlphasen=1
		fi
		if [ "$llas12" -ge $llphasentest ]; then
	  		anzahlphasen=$((anzahlphasen + 1 ))
			lp2anzahlphasen=$((lp2anzahlphasen + 1 ))

		fi
		if [ "$llas13" -ge $llphasentest ]; then
			anzahlphasen=$((anzahlphasen + 1 ))
			lp2anzahlphasen=$((lp2anzahlphasen + 1 ))
		fi

		echo $anzahlphasen > /var/www/html/openWB/ramdisk/anzahlphasen
		echo $lp2anzahlphasen > /var/www/html/openWB/ramdisk/lp2anzahlphasen
		echo "$date LP2 Anzahl Phasen während Ladung= $lp2anzahlphasen" >> ramdisk/nurpv.log

	else
		if (( plugstatlp2 == 1 )) && (( lp2enabled == 1 )); then
			if [ ! -f /var/www/html/openWB/ramdisk/anzahlphasen ]; then
				echo 1 > /var/www/html/openWB/ramdisk/anzahlphasen
			fi
			if (( u1p3plp2aktiv == 1 )); then
				lp2anzahlphasen=$(cat /var/www/html/openWB/ramdisk/u1p3pstat)
				anzahlphasen=$((lp2anzahlphasen + anzahlphasen))
			else
				if [ ! -f /var/www/html/openWB/ramdisk/lp2anzahlphasen ]; then
					echo 1 > /var/www/html/openWB/ramdisk/lp2anzahlphasen
					anzahlphasen=$((anzahlphasen + 1 ))
				else
					lp2anzahlphasen=$(cat /var/www/html/openWB/ramdisk/lp2anzahlphasen)
					anzahlphasen=$((lp2anzahlphasen + anzahlphasen))

				fi

			fi
		fi
		echo "$date LP2 Anzahl Phasen während keiner Ladung= $lp2anzahlphasen" >> ramdisk/nurpv.log

	fi
fi
if (( lastmanagements2 == 1 )); then
	if (( llas21 > 3 )); then
		if [ "$llas21" -ge $llphasentest ]; then
			anzahlphasen=$((anzahlphasen + 1 ))
		fi
		if [ "$llas22" -ge $llphasentest ]; then
	  	anzahlphasen=$((anzahlphasen + 1 ))
		fi
		if [ "$llas23" -ge $llphasentest ]; then
			anzahlphasen=$((anzahlphasen + 1 ))
		fi
		echo $anzahlphasen > /var/www/html/openWB/ramdisk/anzahlphasen
	fi
fi
if [ $anzahlphasen -eq 0 ]; then
	anzahlphasen=1
fi
if [ "$anzahlphasen" -ge "24" ]; then
	anzahlphasen=1
	echo $anzahlphasen > /var/www/html/openWB/ramdisk/anzahlphasen
fi
echo "$date Gesamt Anzahl Phasen= $anzahlphasen" >> ramdisk/nurpv.log

########################
# Berechnung für PV Regelung
if [[ $nurpv70dynact == "1" ]]; then
	nurpv70status=$(<ramdisk/nurpv70dynstatus)
	if [[ $nurpv70status == "1" ]]; then
		uberschuss=$((uberschuss - nurpv70dynw))
		# Schwelle zum Beginn der Ladung
		mindestuberschuss=0
		# Schwelle zum Beenden der Ladung
		abschaltuberschuss=-1500
		#abschaltuberschuss=$((minimalapv * 230 * anzahlphasen))
 		if [[ $debug == "1" ]]; then
			echo "PV 70% aktiv! derzeit genutzter Überschuss $uberschuss"
		fi
		echo "$date 70% Grenze aktiv. Alter Überschuss: $((uberschuss + nurpv70dynw)), Neuer verfügbarer Uberschuss: $uberschuss" >> ramdisk/nurpv.log
	fi
fi

mindestuberschussphasen=$((mindestuberschuss * anzahlphasen))
wattkombiniert=$((ladeleistung + uberschuss))
#PV Regelmodus
if [[ $pvbezugeinspeisung == "0" ]]; then
	pvregelungm="0"
        schaltschwelle=$(echo "(230*$anzahlphasen)" | bc)
fi
if [[ $pvbezugeinspeisung == "1" ]]; then
	pvregelungm=$(echo "(230*$anzahlphasen*-1)" | bc)
	schaltschwelle="0"
fi
if [[ $pvbezugeinspeisung == "2" ]]; then
	pvregelungm=$offsetpv
	schaltschwelle=$((schaltschwelle + offsetpv))
fi
echo "$date Schaltschwelle: $schaltschwelle, zum runterregeln: $pvregelungm" >> ramdisk/nurpv.log
# Debug Ausgaben
if [[ $debug == "1" ]]; then
	echo anzahlphasen "$anzahlphasen"
fi
if [[ $debug == "2" ]]; then
	echo "$date"
	echo "uberschuss" $uberschuss "wattbezug" $wattbezug "ladestatus" $ladestatus "llsoll" $llalt "pvwatt" $pvwatt "mindestuberschussphasen" $mindestuberschussphasen "wattkombiniert" $wattkombiniert "schaltschwelle" $schaltschwelle
fi
########################
#Min Ladung + PV Uberschussregelung lademodus 1
if (( lademodus == 1 )); then
	minundpvlademodus
fi
########################
#NUR PV Uberschussregelung lademodus 2
# wenn evse aus und $mindestuberschuss vorhanden, starte evse mit 6A Ladestromstaerke (1320 - 3960 Watt je nach Anzahl Phasen)
if (( lademodus == 2 )); then
	nurpvlademodus
fi



#Lademodus 4 == SemiAus

if (( lademodus == 4 )); then
	semiauslademodus
fi