summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakups9
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/standalone/drakups b/perl-install/standalone/drakups
index a624f73a6..6ea7264c8 100755
--- a/perl-install/standalone/drakups
+++ b/perl-install/standalone/drakups
@@ -157,7 +157,8 @@ Please fill in its name, its driver and its port.", $model, $vendor);
$config->{$name}{driver} = $driver;
$config->{$name}{port} = $port;
- $models{ups}->append_set(1 => $name, 2 => $driver, 3 => $port);
+ # refresh the GUI when needed:
+ $models{ups}->append_set(1 => $name, 2 => $driver, 3 => $port) if $models{ups};
log::explanations(qq(Configuring "$name" UPS));
}
@@ -302,6 +303,12 @@ my @pages = (
$in = 'interactive'->vnew;
$ugtk2::wm_icon = "drakups";
+
+if (any { $_ eq '--wizard' } @ARGV) {
+ add_device_wizard($in, $struct);
+ $in->exit($@ ? 1 : 0);
+}
+
$w = ugtk2->new(N("DrakUPS"));
if (!$::isEmbedded) {
$::main_window = $w->{rwindow};