| Subject: | $aha->list() problem |
| Date: | Sun, 06 Apr 2014 17:43:09 +0200 |
| To: | bug-AHA [...] rt.cpan.org |
| From: | Marcus <marcus.info [...] riseup.net> |
Hello,
I have a problem to get the switches from the Fritz Box.
I wanted to connect to my Fritzbox and read out the switch information
#########################
#!/usr/bin/perl
use AHA;
use feature qw(say);
$aha = new AHA("fritz.box","s!cr!t")
# everything looks ok; I see the connection in the fritzbox syslog !!
# Get all switches as array ref of AHA::Switch objects
my $switches = $aha->list(); # nothing happens; seems that the
script hangs!!!
# For all switches found
for my $switch (@$switches) {
say "Name: ",$switch->name();
say "State: ",$switch->is_on();
say "Present: ",$switch->is_present();
say "Energy: ",$switch->energy();
say "Power: ",$switch->power();
}
###############
System information:
perl version: perl 5, version 14, subversion 2 (v5.14.2)
os system: Linux mobile 3.11.0-15-generic #25-Ubuntu SMP Thu Jan 30
17:25:07 UTC 2014 i686 i686 i686 GNU/Linux
AHA version: 'AHA' version '0.54'
FritzBox: 7490
Fritz!OS: 06.05
I hope you can help me with this problem
Best regards
Marcus