diff options
Diffstat (limited to 'perl-install')
| -rwxr-xr-x | perl-install/standalone/drakups | 9 |
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}; |