summaryrefslogtreecommitdiffstats
path: root/mdkonline.pm
diff options
context:
space:
mode:
Diffstat (limited to 'mdkonline.pm')
-rw-r--r--mdkonline.pm16
1 files changed, 16 insertions, 0 deletions
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;