From d8e5cca02a16734d4308a275353a1a11d3412041 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 13 Oct 2008 22:32:07 +0000
Subject: (fork_exec,get_banner) move them into share module (needed for next
 commits)

---
 mdkonline.pm | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'mdkonline.pm')

diff --git a/mdkonline.pm b/mdkonline.pm
index 1053f034..dcae7795 100644
--- a/mdkonline.pm
+++ b/mdkonline.pm
@@ -28,6 +28,9 @@ use strict;
 use lib qw(/usr/lib/libDrakX);
 use common;
 
+our @ISA = qw(Exporter);
+our @EXPORT = qw(fork_exec get_banner);
+
 use log;
 
 my $release_file = find { -f $_ } '/etc/mandriva-release', '/etc/mandrakelinux-release', '/etc/mandrake-release', '/etc/redhat-release';
@@ -56,6 +59,19 @@ sub clean_confdir() {
     system "/bin/rm", "-f", "$confdir/*log.bz2", "$confdir/*log.bz2.uue", "$confdir/*.dif $confdir/rpm_qa_installed_before", "$confdir/rpm_qa_installed_after";
 }
 
+
+sub fork_exec {
+    run_program::raw({ detach => 1 }, @_);
+}
+
+sub get_banner() {
+    Gtk2::Banner->new(
+        (find { -e $_ } 
+           qw(/usr/share/mcc/themes/default/rpmdrake-mdk.png /usr/share/icons/large/mdkonline.png)),
+        N("Distribution Upgrade")
+    );
+}
+
 sub is_running {
     my ($name) = @_;
     my $found;
-- 
cgit v1.2.1