# Projet Domos, Entraidelec 2010. Licence GNU GPL v3.
# Procédure d'extinction de tous les relais
BEGIN {
if (URLserveur    == "")  URLserveur = "192.168.1.21"	# l adresse brut du serveur web comme 192.168.1.20
URLstatus  = ("http://" URLserveur "/status.xml")	
print "Règle Tous Eteins version 2\n"
  if (ProxyPort ==  0)  ProxyPort = 80
  HttpService = "/inet/tcp/0/" URLserveur "/" ProxyPort
  ORS = RS = "\r\n\r\n"
  print "GET " URLstatus " HTTP/1.0" |& HttpService
  while ((HttpService |& getline) > 0)
 	{
# Boucle de vérification des valeurs des relais, si la cible est trouvée alors action
	for (i = 0; i < 8; i++) {
		entree = "<led" i ">" 1
		commande   = ("http://" URLserveur "/preset.htm?" i "=0")	
		navigateur = ("/usr/bin/elinks " commande)
		if ($0 ~ entree ) print ("lancement de relai" i) | navigateur
		}
   
#    printf "%s", $0
 	}
  close(HttpService)
  close(navigateur)  

system ("sleep 2") 
print "ok"

}