Myopenhab connection state

Apps & Services myopenHAB
12

I am not using the myopenhab.org cloud but the local cloud so it cold be that the following script needs to be adapted to work with the public cloud. At least I used /events?source=openhab to test it with the local cloud.


!/usr/bin/perl -w
use strict;
use WWW::Mechanize;
use WWW::Mechanize::FormFiller;
use URI::URL;

my $BASEURL     = 'https://myopenhab.org';
my $USER        = 'YourUserAccountHere';
my $PASSWORD    = 'YourPasswordHere';

my $LOGINURL    = $BASEURL . '/login';
my $ONLINEURL   = $BASEURL . '/events?source=openhab';

my $agent = WWW::Mechanize->new( autocheck => 1 );
my $formfiller = WWW::Mechanize::FormFiller->new();
$agent->env_proxy();

$agent->get( $LOGINURL );
$agent->form_number(1) if $agent->forms and scalar @{$agent->forms};
$formfiller->add_filler( 'username' => Fixed => $USER );
$formfiller->add_filler( 'password' => Fixed => $PASSWORD );
$formfiller->fill_form($agent->current_form);
$agent->submit();

$agent->get( $ONLINEURL );

my $status = $agent->content();
my @status = split ("\n", $status);
@status    = grep( /events\?source=openhab/, @status );
$status[0] =~ s#</a>.*##;
$status[0] =~ s#.*>##;

print( $status[0], "\n" );