#!/usr/bin/env perl
use strict;
use warnings;
use diagnostics;
use feature qw(:all);
use WWW::Curl::Easy;
use Net::MQTT::Simple;
use JSON::Parse qw(:all);
use Amazon::Dash::Button;
my ($response_body, $info, $postfields, $space_status, $new_space_status);
my ($status, $site, $user, $pass, $mac, $curl, $json, $dev, $timeout);
my ($mqtt, $topic, $message, $mqttuser, $mqttpass, $mqttIP, $mqttonly);
$status = "https://spaceapi.c3l.lu/status.json"; # SpaceAPI direct link to status json file
$site = "https://spaceapi.c3l.lu/open"; # SpaceAPI direct link to change the state
$user = "ledashbutton"; # SpaceAPI user
$pass = "sohNgei3raiche2choo5"; # SpaceAPI pass
$mqttIP = "192.168.1.189"; # MQTT Server IP
$mqttuser = "dashbutton"; # MQTT User
$mqttpass = "oosahN0a"; # MQTT Pass
$user = ""; # SpaceAPI user
$pass = ""; # SpaceAPI pass
$mqttIP = "127.0.0.1"; # MQTT Server IP
$mqttuser = ""; # MQTT User
$mqttpass = ""; # MQTT Pass
$mqttonly = "True"; # MQTT Only modus active = not changing Space Status by myself
$mac = '78:e1:03:78:4a:0a'; # MAC of Dash button.
$mac = 'de:ad:be:ef:0a:0a'; # MAC of Dash button.
$timeout = 60; # Timeout in seconds.
$ENV{'MQTT_SIMPLE_ALLOW_INSECURE_LOGIN'} = 1; # Needed for the MQTT Login
$mqtt = Net::MQTT::Simple->new($mqttIP);
$mqtt->last_will("availability/dashbutton", "offline", 1);
$mqtt->last_will("availability/dashbutton", "offline", 1); # YOu may need to change the Topic
$mqtt->login($mqttuser, $mqttpass);
$mqtt->retain("availability/dashbutton", "online");
say "[+] Connection to MQTT server established";
say "[+] Scanning network traffic";
Amazon::Dash::Button->new( from => { # The author of the module says that you
mac => $mac, # can omit a "dev" option to use another
onClick => \&spaceapi, # network interface but actually it never
name => q{SpaceAPI}, # gets used in the code. See the provided
timeout => $timeout # patch to define a different interface.
} )->listen; # Patch changes default to eth0.
sub spaceapi {
say "[+] Button has been pushed";
$mqtt->publish("space/status/trigger" => 1);
say "[+] MQTT message sent";
if ($mqttonly eq "False") {
$curl = WWW::Curl::Easy->new;
Status change: