diff options
| author | Daouda Lo <daouda@mandriva.com> | 2005-03-01 12:41:55 +0000 |
|---|---|---|
| committer | Daouda Lo <daouda@mandriva.com> | 2005-03-01 12:41:55 +0000 |
| commit | c2a709ca28f5d3bb13b60e3bc0c070ef43750a03 (patch) | |
| tree | 6a5534a80ab7e524fe3cdff107f1d166cc74cc4b /perl-install/standalone/drakhelp | |
| parent | 882223c3a6a276071b5ce727146716bf6075e649 (diff) | |
| download | drakx-backup-do-not-use-c2a709ca28f5d3bb13b60e3bc0c070ef43750a03.tar drakx-backup-do-not-use-c2a709ca28f5d3bb13b60e3bc0c070ef43750a03.tar.gz drakx-backup-do-not-use-c2a709ca28f5d3bb13b60e3bc0c070ef43750a03.tar.bz2 drakx-backup-do-not-use-c2a709ca28f5d3bb13b60e3bc0c070ef43750a03.tar.xz drakx-backup-do-not-use-c2a709ca28f5d3bb13b60e3bc0c070ef43750a03.zip | |
- use any::launch_browser_with_wm
Diffstat (limited to 'perl-install/standalone/drakhelp')
| -rw-r--r-- | perl-install/standalone/drakhelp | 12 |
1 files changed, 1 insertions, 11 deletions
diff --git a/perl-install/standalone/drakhelp b/perl-install/standalone/drakhelp index d76ce8939..97291dde2 100644 --- a/perl-install/standalone/drakhelp +++ b/perl-install/standalone/drakhelp @@ -35,14 +35,4 @@ my ($instpath, $ancpath, $package) = ctxhelp::path2help($opt, $idlabel); -e $instpath or system("/usr/sbin/drakhelp_inst $package"); -e $instpath or $in->ask_warn(N("Mandrakelinux Help Center"), N("%s cannot be displayed \n. No Help entry of this type\n", $instpath)); -my $wm = any::running_window_manager(); -my %launchhelp = ( - 'kwin' => sub { system("webclient-kde " . $ancpath . "&") }, - 'gnome-session' => sub { system("yelp ghelp://" . $ancpath . "&") }, - 'other' => sub { my $browser = $ENV{BROWSER} || find { -x "/usr/bin/$_" } qw(mozilla konqueror epiphany galeon) or $in->ask_warn('drakhelp', N("No browser is installed on your system, Please install one if you want to browse the help system")); - log::explanations("Loading help system : $ancpath"); - system("$browser " . $ancpath . "&") - } - ); -member($wm, 'kwin', 'gnome-session') or $wm = 'other'; --e $instpath and eval { $launchhelp{$wm}->() }; +-e $instpath and any::launch_browser_with_wm($ancpath); |