added getLocalHostName and setLocalHostName methods (rely on dbus hostnamed service)

1 files changed, 33 insertions, 0 deletions

diff --git a/lib/AdminPanel/Shared/Hosts.pm b/lib/AdminPanel/Shared/Hosts.pm
index 9eed5b6..fa22c25 100644
--- a/lib/AdminPanel/Shared/Hosts.pm
+++ b/lib/AdminPanel/Shared/Hosts.pm
@@ -22,6 +22,7 @@ package AdminPanel::Shared::Hosts;
 use Moose;
 use diagnostics;
 use Config::Hosts;
+use Net::DBus;
 use utf8;
 
 # costants by Config::Hosts
@@ -35,11 +36,23 @@ has 'configHosts' => (
 	builder => '_initialize'
 );
 
+has 'dbus' => (
+	is => 'ro',
+	isa => 'HashRef',
+	builder => '_initDBusServiceObject',
+);
+
 sub _initialize {
 	my $self = shift();
 	$self->configHosts(Config::Hosts->new());
 }
 
+sub _initDBusServiceObject {
+	my $self = shift();
+	my %dbus_so = ( 'servicePath' => 'org.freedesktop.hostname1', 'objectPath' => '/org/freedesktop/hostname1' );
+	return \%dbus_so;
+}
+
 =pod
 
 =head2 _getHosts
@@ -99,4 +112,24 @@ sub _writeHosts {
 	return $self->configHosts->write_hosts();
 }
 
+sub _getLocalHostName {
+	my $self = shift();
+	my %params = %{$self->dbus()};
+	my $bus = Net::DBus->system;
+	my $service = $bus->get_service($params{'servicePath'});
+	my $object = $service->get_object($params{'objectPath'});
+	my $properties = $object->GetAll($params{'servicePath'});
+	return $properties->{Hostname};
+}
+
+sub _setLocalHostName {
+	my $self = shift();
+	my $hostname = shift();
+	my %params = %{$self->dbus()};
+	my $bus = Net::DBus->system;
+	my $service = $bus->get_service($params{'servicePath'});
+	my $object = $service->get_object($params{'objectPath'});
+	$object->SetPrettyHostname($hostname, 1);
+}
+
 1;