-
GAMEPOD.hu
Okos Otthon összefoglaló
Új hozzászólás Aktív témák
-
cpt rodgi
tag
válasz mogyesz #4145 üzenetére
Na megoldva.. en tok hulye vagyok hozza.. epp. h dereng, de a lenyeg h ez a script megy, (nekem.. a masik valamiert nem indul...(portok minden ugyanugy allitottam) ime:
#!/usr/bin/perl
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# version 2 as published by the Free Software Foundation.
# Author: epierre
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 >;
my $trendsurl = "http://192.168.0.24:8080/json.htm?type=devices&filter=all&used=true&order=Name";
my %IP=(39=>'192.168.0.23',
40=>'192.168.0.22',
10=>'192.168.0.25');
my $json = get( $trendsurl );
die "Could not get $trendsurl!" unless defined $json;
# Decode the entire JSON
my $decoded = JSON->new->utf8(0)->decode( $json );
my @results = @{ $decoded->{'result'} };
my @tab;
foreach my $f ( @results ) {
if ($f->{"SwitchType"}) {
$tab[$f->{"idx"}]=$f->{"Status"};
}
}
foreach my $k (keys %IP) {
my $ip=$IP{$k};
my $res=system("sudo ping $ip -w 3 2>&1 > /dev/null");
print "-->".$k." ".$res." ".$tab[$k]."\n";
if (($res==0)&&($tab[$k] eq 'Off')) {
print "$k is On\n";
`curl -s "http://192.168.0.24:8080/json.htm?type=command¶m=switchlight&idx=$k&switchcmd=On"`;
} elsif (($res!=0)&&($tab[$k] eq 'On')) {
print "$k is Off\n";
`curl -s "http://192.168.0.24:8080/json.htm?type=command¶m=switchlight&idx=$k&switchcmd=Off"`;
} else {
print "do nothing: $k is ".$tab[$k]."\n";
}
}megy, oromkodes van, koszi
[ Szerkesztve ]
Új hozzászólás Aktív témák
- Autós topik látogatók beszélgetős, offolós topikja
- Yettel topik
- Battlefield 2042
- NVIDIA GeForce RTX 3080 / 3090 / Ti (GA102)
- Autós topik
- AMD K6-III, és minden ami RETRO - Oldschool tuning
- Eredeti játékok OFF topik
- Fejhallgató erősítő és DAC topik
- D1Rect: Nagy "hülyétkapokazapróktól" topik
- Linux - haladóknak
- További aktív témák...