my $clacks;
if(defined($clacksconfig->{clackssocket}) && $clacksconfig->{clackssocket} ne '') {
    $clacks = Net::Clacks::Client->newSocket($clacksconfig->{clackssocket}, $clacksconfig->{clacksuser}, $clacksconfig->{clackspassword}, 'DSKY');
} else {
    $clacks = Net::Clacks::Client->new($clacksconfig->{clackshost}, $clacksconfig->{clacksport}, $clacksconfig->{clacksuser}, $clacksconfig->{clackspassword}, 'DSKY');
}
$clacks->set('OBS::Alive', 1);
$clacks->listen('OBS::SelectScene');
$clacks->listen('OBS::Streaming');
$clacks->listen('OBS::Recording');
$clacks->listen('OBS::MuteVoice');
$clacks->doNetwork();
my $nextping = 0;
my $authmsgid = '';

my $lastobspacket = time;
my $sendobsversionrequest = 0;

my %scenes = (
    1   => '1 ... Starting soon...',
    2   => '2 ... shortbreak',
    3   => '3 ... Streamending',
    4   => '4 ... Desktop',
    5   => '5 ... Technical Difficulties',
    6   => '6 ... Camera',
);