- SEE ALSO
Power::Outlet - Control and query network attached power outlets
power-outlet iBoot ON host mylamp power-outlet iBoot OFF host mylamp power-outlet iBootBar ON host mybar outlet 1 power-outlet iBootBar OFF host mybar outlet 1 power-outlet WeMo ON host mywemo power-outlet WeMo OFF host mywemo
Perl Object API
my $outlet=Power::Outlet->new( #sane defaults from manufactures spec type => "iBoot", host => "mylamp", ); print $outlet->query, "\n"; print $outlet->on, "\n"; print $outlet->off, "\n";
Power::Outlet is a package for controlling and querying network attached power outlets. Individual hardware drivers in this name space must provide a common object interface for the controlling and querying of an outlet. Common methods that every network attached power outlet must know are on, off, query, switch and cycle. Optional methods might be implemented in some drivers like amps and volts.
The current scope of these packages is network attached power outlets. I have started with iBoot and iBootBar since I have test hardware. Hardware configuration is beyond the scope of this group of packages as most power outlets have functional web based or command line configuration tools.
I hope to integrate with services like IFTTT (ifttt.com). I would appreciate community support to help develop drivers for USB controlled power strips and serial devices like the X10 family.
Integration with Home Assistant https://home-assistant.io/ should be as easy as configuring a Command Line Switch.
switch: - platform: command_line switches: ibootbar_1: command_on: /usr/bin/power-outlet iBootBar ON host mybar.local outlet 1 command_off: /usr/bin/power-outlet iBootBar OFF host mybar.local outlet 1 command_state: /usr/bin/power-outlet iBootBar QUERY host mybar.local outlet 1 | /bin/grep -q ON friendly_name: My iBootBar Outlet 1
The Perl one liner
perl -MPower::Outlet -e 'print Power::Outlet->new(type=>"iBoot", host=>shift)->switch, "\n"' lamp
The included command line script
power-outlet iBoot ON host lamp
my $outlet = Power::Outlet->new(type=>"iBoot", host=>"mylamp"); my $outlet = Power::Outlet->new(type=>"iBootBar", host=>"mybar", outlet=>1); my $outlet = Power::Outlet->new(type=>"WeMo", host=>"mywemo");
Please log on RT and send an email to the author.
DavisNetworks.com supports all Perl applications including this package.
Michael R. Davis CPAN ID: MRDVT DavisNetworks.com
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the LICENSE file included with this module.