diff options
| author | Daouda Lo <daouda@mandriva.com> | 2003-01-06 20:33:56 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2003-01-06 20:33:56 +0000 |
| commit | 2c5cf855dfc78482ce540ec7c21250d34ad5d81e (patch) | |
| tree | b54ebcdbc961494d59b36fb0c024d8e06b20a4fe /perl-install | |
| parent | 3655b735fc39f2bd1f690be33a2c3190f4214f2a (diff) | |
| download | drakx-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.pm | 12 |
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; } + ################################################################################ |