diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-10-01 04:16:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-10-01 04:16:43 +0000 |
| commit | 586914e78665319f80e55b7dc3844922b6737f04 (patch) | |
| tree | 75901fcbc4fcd99f21fcdc41e03302de19907306 /perl-install | |
| parent | 4c71a924bcf7550b6ddb792d35dbe60961659500 (diff) | |
| download | drakx-backup-do-not-use-586914e78665319f80e55b7dc3844922b6737f04.tar drakx-backup-do-not-use-586914e78665319f80e55b7dc3844922b6737f04.tar.gz drakx-backup-do-not-use-586914e78665319f80e55b7dc3844922b6737f04.tar.bz2 drakx-backup-do-not-use-586914e78665319f80e55b7dc3844922b6737f04.tar.xz drakx-backup-do-not-use-586914e78665319f80e55b7dc3844922b6737f04.zip | |
add --wizard option in order to directly run the wizard
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}; |