summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-10-01 04:16:43 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-10-01 04:16:43 +0000
commit586914e78665319f80e55b7dc3844922b6737f04 (patch)
tree75901fcbc4fcd99f21fcdc41e03302de19907306 /perl-install
parent4c71a924bcf7550b6ddb792d35dbe60961659500 (diff)
downloaddrakx-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-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};