Страницы

воскресенье, 3 августа 2014 г.

Управление EG-PMS-LAN из перлячки

Как-то на хабре писали пост про умные розетку EG-PMS-LAN. Мне они понравились и я купил себе домой и стал юзать. Эти розетки сами подключаются к серверу EnerGenie, откуда ими можно было управлять. Так же у них есть свой web-interface, и оттуда то же можно выполнять управление ими.
Все бы хорошо, но однажды после скачков напряжения, вебморда зависла и пропала связь с розетками. Розетки были доступны только через 5000 порт, для которого есть свой SDK. Покурив SDK я написал на перлячке модуль, который позволил мне управлять розетками без вебморды, что оказалось даже удобнее.
    use Device::Gembird;

    my $foo = Device::Gembird->new( host => '192.168.1.67', secret => '1' );
    $foo->socket1(SOCK_OFF);
    $foo->socket2(SOCK_ON);
    my $state = $foo->socket3();
    my $new_state = $foo->socket4(SOCK_ON);
    ...