From aa2d6ca3727f86a33dca1ce7f90c13c57e9183ff Mon Sep 17 00:00:00 2001 From: Daouda Lo Date: Mon, 30 Aug 2004 08:59:25 +0000 Subject: - avoid duplication --- perl-install/standalone/net_applet | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index f723fee64..07b18f7ef 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -17,8 +17,7 @@ my ($menu, $timeout); my $onstartupfile = "$ENV{HOME}/.net_applet"; add_icon_path("/usr/share/libDrakX/pixmaps/"); # Allow multiple instances, but only one per user: -my @pids = `ps -u $ENV{USER}` =~ /net_applet/; -@pids > 1 and die "net_applet already running\n"; +is_running('net_applet') > 1 and die "net_applet already running\n"; my $prog_name = "/usr/bin/net_applet"; my $current_md5 = md5file($prog_name); @@ -54,8 +53,7 @@ gtkadd(my $icon = Gtk2::TrayIcon->new("Net_Applet"), ); $eventbox->signal_connect(button_press_event => sub { if ($_[1]->button == 1) { - my @nm_pid = `ps -u $ENV{USER}` =~ /net_monitor/; - @nm_pid > 1 or netMonitor() + is running('net_monitor') > 1 or netMonitor() } $_[1]->button == 3 && $menu and $menu->popup(undef, undef, undef, undef, $_[1]->button, $_[1]->time); }); @@ -72,6 +70,10 @@ Gtk2->main; ugtk2::exit(0); +sub is_running { + my @pid = `ps -u $ENV{USER}` =~ /\Q$_[0]/; + @pid +} sub shouldStart() { my %p = getVarsFromSh($onstartupfile); my $ret = $p{AUTOSTART} eq 'FALSE' ? 0 : 1; -- cgit v1.2.1