summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorDaouda Lo <daouda@mandriva.com>2003-01-06 20:33:56 +0000
committerDaouda Lo <daouda@mandriva.com>2003-01-06 20:33:56 +0000
commit2c5cf855dfc78482ce540ec7c21250d34ad5d81e (patch)
treeb54ebcdbc961494d59b36fb0c024d8e06b20a4fe /perl-install
parent3655b735fc39f2bd1f690be33a2c3190f4214f2a (diff)
downloaddrakx-2c5cf855dfc78482ce540ec7c21250d34ad5d81e.tar
drakx-2c5cf855dfc78482ce540ec7c21250d34ad5d81e.tar.gz
drakx-2c5cf855dfc78482ce540ec7c21250d34ad5d81e.tar.bz2
drakx-2c5cf855dfc78482ce540ec7c21250d34ad5d81e.tar.xz
drakx-2c5cf855dfc78482ce540ec7c21250d34ad5d81e.zip
- function on_request_help to display online help.
- use it as callback to help button or help menu.
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone.pm12
1 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/standalone.pm b/perl-install/standalone.pm
index 4fd5e42be..7ca765a50 100644
--- a/perl-install/standalone.pm
+++ b/perl-install/standalone.pm
@@ -144,6 +144,17 @@ Copyright (C) 1999-2002 MandrakeSoft by <install\@mandrakesoft.com>
", $::license, "\n";
}
+sub on_request_help {
+ my ($link) = shift;
+ my $browser;
+ if (!($browser = $ENV{BROWSER})) {
+ foreach (qw(mozilla konqueror galeon)) { -x "/usr/bin/$_" or next; $browser = $_;last};
+ }
+ standalone::explanations("Connection to help system at $link");
+ my $ret = system("$browser $link &");
+ $ret;
+}
+
################################################################################
package pkgs_interactive;
@@ -229,6 +240,7 @@ sub remove_nodeps {
$o->{in}->resume;
$ret;
}
+
################################################################################