aboutsummaryrefslogtreecommitdiffstats
path: root/lib/AdminPanel/Module
diff options
context:
space:
mode:
authorMatteo Pasotti <matteo.pasotti@gmail.com>2014-11-24 23:39:50 +0100
committerMatteo Pasotti <matteo.pasotti@gmail.com>2014-11-24 23:39:50 +0100
commit3bd90f0c9f6d2c076ab6683194f6509aef16002a (patch)
treeccd7ec2abd7c17d2cb4d75e82e0a6c920dde3223 /lib/AdminPanel/Module
parent1350db65b6e1f1a12c02bd63dc3ba1b6e9a3e82e (diff)
downloadcolin-keep-3bd90f0c9f6d2c076ab6683194f6509aef16002a.tar
colin-keep-3bd90f0c9f6d2c076ab6683194f6509aef16002a.tar.gz
colin-keep-3bd90f0c9f6d2c076ab6683194f6509aef16002a.tar.bz2
colin-keep-3bd90f0c9f6d2c076ab6683194f6509aef16002a.tar.xz
colin-keep-3bd90f0c9f6d2c076ab6683194f6509aef16002a.zip
add ability to change the hostname (relies on dbus)
Diffstat (limited to 'lib/AdminPanel/Module')
-rw-r--r--lib/AdminPanel/Module/Hosts.pm83
1 files changed, 83 insertions, 0 deletions
diff --git a/lib/AdminPanel/Module/Hosts.pm b/lib/AdminPanel/Module/Hosts.pm
index 8c0a43e..c820540 100644
--- a/lib/AdminPanel/Module/Hosts.pm
+++ b/lib/AdminPanel/Module/Hosts.pm
@@ -114,6 +114,85 @@ sub start {
$self->_manageHostsDialog();
};
+#=============================================================
+
+=head2 _changeHostNameDialog
+
+=head3 INPUT
+
+ $self: this object
+
+ $headerString: a title for the dialog
+
+=head3 DESCRIPTION
+
+ This method display a dialog allowing the user
+ to change the hostname
+
+=cut
+
+#=============================================================
+sub _changeHostNameDialog {
+ my $self = shift;
+
+ my $headerString = shift();
+
+ my $hostIpString = "";
+ my $hostNameString = "";
+ my $hostAliasesString = "";
+
+ my $factory = yui::YUI::widgetFactory;
+ my $dlg = $factory->createPopupDialog();
+ my $layout = $factory->createVBox($dlg);
+
+ my $hbox_header = $factory->createHBox($layout);
+ my $vbox_content = $factory->createVBox($layout);
+ my $hbox_footer = $factory->createHBox($layout);
+
+ # header
+ my $labelDescription = $factory->createLabel($hbox_header,$headerString);
+
+ # content
+ my $firstHbox = $factory->createHBox($vbox_content);
+ my $secondHbox = $factory->createHBox($vbox_content);
+
+ my $labelHostName = $factory->createLabel($secondHbox,$self->loc->N("Hostname"));
+ $labelHostName->setWeight($yui::YD_HORIZ, 10);
+
+ my $textHostName = $factory->createInputField($secondHbox,"");
+ $textHostName->setWeight($yui::YD_HORIZ, 30);
+
+ $hostNameString = $self->cfgHosts->_getLocalHostName();
+
+ $textHostName->setValue($hostNameString);
+
+ # footer
+ my $cancelButton = $factory->createPushButton($factory->createLeft($hbox_footer),$self->loc->N("Cancel"));
+ my $okButton = $factory->createPushButton($factory->createRight($hbox_footer),$self->loc->N("OK"));
+
+ while(1){
+ my $event = $dlg->waitForEvent();
+ my $eventType = $event->eventType();
+
+ #event type checking
+ if ($eventType == $yui::YEvent::CancelEvent) {
+ last;
+ }
+ elsif ($eventType == $yui::YEvent::WidgetEvent) {
+ # widget selected
+ my $widget = $event->widget();
+ if ($widget == $cancelButton) {
+ last;
+ }
+ elsif($widget == $okButton) {
+ $self->cfgHosts->_setLocalHostName($textHostName->value());
+ last;
+ }
+ }
+ }
+
+ destroy $dlg;
+}
sub _manipulateHostDialog {
my $self = shift;
@@ -345,9 +424,11 @@ sub _manageHostsDialog {
my $addButton = $factory->createPushButton($factory->createHBox($vbox_commands),$self->loc->N("Add"));
my $edtButton = $factory->createPushButton($factory->createHBox($vbox_commands),$self->loc->N("Edit"));
my $remButton = $factory->createPushButton($factory->createHBox($vbox_commands),$self->loc->N("Remove"));
+ my $hnButton = $factory->createPushButton($factory->createHBox($vbox_commands),$self->loc->N("Hostname"));
$addButton->setWeight($yui::YD_HORIZ,1);
$edtButton->setWeight($yui::YD_HORIZ,1);
$remButton->setWeight($yui::YD_HORIZ,1);
+ $hnButton->setWeight($yui::YD_HORIZ,1);
my $hbox_foot = $factory->createHBox($layout);
my $vbox_foot_left = $factory->createVBox($factory->createLeft($hbox_foot));
@@ -394,6 +475,8 @@ sub _manageHostsDialog {
$self->cfgHosts->_writeHosts();
$self->setupTable();
}
+ }elsif ($widget == $hnButton) {
+ $self->_changeHostNameDialog("Change the HostName FQDN");
}elsif ($widget == $aboutButton) {
$self->sh_gui->AboutDialog({
name => $appTitle,