use strict;
use warnings;
use File::Copy;
use File::stat;
use Proc::Daemon;
use Proc::ProcessTable;
use Errno qw(:POSIX);
use List::Util qw[min max];
use Net::Netmask;
use Config::IniFiles;
use IO::Interface::Simple;
use JSON;
use utf8;

# Proc::Daemon::Init;

my $habriconfig  = "/opt/habridge/data/habridge.config";

sub correctHiBridgeIP();


sub correctHiBridgeIP()
{
    if ( -e $habriconfig )
    {
        my %addresses = map
        {
            ($_ => [map { Net::Interface::inet_ntoa($_) } $_->address]);
        } Net::Interface->interfaces;


        print "testtesttest";

        foreach (%addresses)
        {
            print "Test: $_\n";
        }