diff options
Diffstat (limited to 'mdkonline.pm')
-rw-r--r-- | mdkonline.pm | 16 |
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; |