From 2c5cf855dfc78482ce540ec7c21250d34ad5d81e Mon Sep 17 00:00:00 2001
From: Daouda Lo <daouda@mandriva.com>
Date: Mon, 6 Jan 2003 20:33:56 +0000
Subject: - function on_request_help to display online help. - use it as
 callback to help button or help menu.

---
 perl-install/standalone.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'perl-install/standalone.pm')

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;
 }
+
 ################################################################################
 
 
-- 
cgit v1.2.1