Forum Domoticz en français

Code : Tout sélectionner

Could not get http://192.168.1.6:8080/json.htm?type=devices&filter=all&used=true&order=Name! at ./ping_by_ip.pl line 21.

Code : Tout sélectionner

die "Could not get $domo_cmd!" unless defined $json;

Code : Tout sélectionner

#!/usr/bin/perl
   use v5.14;
   use LWP::Simple;                # From CPAN
   use JSON qw( decode_json );     # From CPAN
   use Data::Dumper;               # Perl core module
   use strict;                     # Good practice
   use warnings;                   # Good practice
   use utf8;
   use feature     qw< unicode_strings >;
   # Configuration section, please update to your values
   my $domoticz = "192.168.1.6:8080";  # ip and port of your Domoticz server 
   my $domo_cmd = "http://$domoticz/json.htm?type=devices&filter=all&used=true&order=Name";

           # Array of (device idx, IP)
                     my %IP=(872=>'192.168.1.12',	# Ip 1
                             873=>'192.168.1.8',	# Ip 2
                             681=>'192.168.5.24');      # Ip 3
   my $debug=0;
   # Get the JSON url
   my $json = get( $domo_cmd );
   die "Could not get $domo_cmd!" unless defined $json;
   # Decode the entire JSON
   my $decoded = JSON->new->utf8(0)->decode( $json );
   my @results = @{ $decoded->{'result'} };
   #Put JSON switch and status in a Table
   my @tab;
   foreach my $f ( @results ) {
     if ($f->{"SwitchType"}) {
           $tab[$f->{"idx"}]=$f->{"Status"};
     }
   }
   # Now we go all over the IP to check if they are alive
   foreach my $k (keys %IP) {
           my $ip=$IP{$k};
           my $res=system("sudo ping $ip -w 3 2>&1 > /dev/null");
   #print $k." ".$res."\n";
           if (($res==0)&&($tab[$k] eq 'Off')) {
                   #If device answered to ping and device status is Off, turn it On in Domoticz
                   if ($debug) {print "$k is On\n"};
                  `curl -s "http://$domoticz/json.htm?type=command&param=switchlight&idx=$k&switchcmd=On"`;
           } elsif (($res!=0)&&($tab[$k] eq 'On')) {
                   #If device did NOT answer to ping and device status is On, turn it Off in Domoticz
                   if ($debug) {print "$k is Off\n"};
                  `curl -s "http://$domoticz/json.htm?type=command&param=switchlight&idx=$k&switchcmd=Off"`;
           } else {
                   if ($debug) {print "do nothing: $k is ".$tab[$k]."\n";}

        }
}

Code : Tout sélectionner

commandArray = {}

ping_success=os.execute('ping -c1 192.168.1.1') -- l'adresse ip de ton téléphone ou autre
if ping_success then
     if ( otherdevices['xx'] == 'Off') then -- xx c'est le nom du switch virtuel que tu as créé
                  print(" ping connect success ")
                 commandArray['xx']='On'
    end

else
      if (otherdevices['xx'] == 'On') then
                print(" ping connect fail ")           
               commandArray['xx']='Off'
      end
end
return commandArray

Code : Tout sélectionner

 ~/domoticz/scripts $ ./ping_by_ip.pl

Code : Tout sélectionner

Could not get domo_cmd! at ./ping_by_ip.pl line 21.

Code : Tout sélectionner

die "Could not get domo_cmd!" unless defined $json;

Code : Tout sélectionner

 sudo apt-get install libjson-perl libdatetime-perl libwww-perl 

Code : Tout sélectionner

pi@domoticz ~ $ sudo apt-get install libjson-perl libdatetime-perl libwww-perl
Lecture des listes de paquets... Fait
Construction de l'arbre des dépendances
Lecture des informations d'état... Fait
libdatetime-perl est déjà la plus récente version disponible.
libjson-perl est déjà la plus récente version disponible.
libwww-perl est déjà la plus récente version disponible.
Le paquet suivant a été installé automatiquement et n'est plus nécessaire :
  libgail-3-0
Veuillez utiliser « apt-get autoremove » pour le supprimer.
0 mis à jour, 0 nouvellement installés, 0 à enlever et 0 non mis à jour.