#!/usr/bin/perl

use strict;
use warnings;
use Net::DBus;
use Net::DBus::Reactor;
use Net::DBus qw(:typing);

my $bus = Net::DBus->system;
my $hal = $bus->get_service("org.freedesktop.NetworkManager");

my $ssid = 'homewifi';
my @ssid = split('' , $ssid);
print Dumper \@ssid;
my $tssid = dbus_array(\@ssid);
my %s_wifi = ( 'ssid' => $tssid, 'security' => '802-11-wireless-security' );

my %s_con = ( 'type' => '802-11-wireless', 'uuid' => '7371bb78-c5f7-42a3-a9db-5b9566e8ca07', 'id' => 'My Wifi' );
my %s_wsec = ( 'key-mgmt' => 'wpa-eap' );
my %s_8021x = ('private-key-password' => '12345testing');
my %s_ip4 = ('method' => 'auto');
my %s_ip6 = ('method' => 'ignore');

my %con = ( connection => \%s_con, '802-11-wireless' => \%s_wifi, '802-11-wireless-security' => \%s_wsec,
	    '802-1x' => \%s_8021x, 'ipv4' => \%s_ip4, 'ipv6' => \%s_ip6 );

my $mset = $hal->get_object("/org/freedesktop/NetworkManager/Settings", "org.freedesktop.NetworkManager.Settings");

$mset->AddConnection(\%con);

exit(0);