rename ambiguous function name
authorcasta <casta@78f58264-58f8-0310-be4b-c7ad7e3b7018>
Mon, 22 Aug 2005 21:13:19 +0000 (21:13 +0000)
committercasta <casta@78f58264-58f8-0310-be4b-c7ad7e3b7018>
Mon, 22 Aug 2005 21:13:19 +0000 (21:13 +0000)
git-svn-id: svn+ssh://svn.xwing.info/home/svn/gtk-fuser/trunk@479 78f58264-58f8-0310-be4b-c7ad7e3b7018

gtk-fuser

index 34709adca0c63427078766a6abefca74c31f3acf..78d537f03512a82521cc14060e63614b83593e0e 100755 (executable)
--- a/gtk-fuser
+++ b/gtk-fuser
@@ -3,17 +3,17 @@
 
 # gtk-fuser, a perl-gtk2 frontend to fuser (from psmisc)
 # Copyright (C) 2005 Guillaume Castagnino
-# 
+#
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
 # the Free Software Foundation; either version 2 of the License, or
 # (at your option) any later version.
-# 
+#
 # This program is distributed in the hope that it will be useful,
 # but WITHOUT ANY WARRANTY; without even the implied warranty of
 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 # GNU General Public License for more details.
-# 
+#
 # You should have received a copy of the GNU General Public License
 # along with this program; if not, write to the Free Software
 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA
@@ -61,7 +61,7 @@ my $bSearch = Gtk2::Button->new ('(Re)Lancer la recherche');
 my $bBrowseFile = Gtk2::Button->new ('Fichier');
 my $bBrowseFolder = Gtk2::Button->new ('Répertoire');
 # Connect signal buttons
-$bKill->signal_connect ('clicked', \&kill);
+$bKill->signal_connect ('clicked', \&killPids);
 $bSearch->signal_connect ('clicked', \&search);
 $bBrowseFile->signal_connect ('clicked', \&selectFile);
 $bBrowseFolder->signal_connect ('clicked', \&selectFolder);
@@ -92,7 +92,7 @@ $pText->set_wrap_mode ('none');
 $pText->set_right_margin (20);
 
 # Layout
-my $vbox = Gtk2::VBox->new (0, 0);  
+my $vbox = Gtk2::VBox->new (0, 0);
 my $hbox = Gtk2::HBox->new (0, 4);
 
 $hbox->pack_start ($pathEntry, 1, 1, 0);
@@ -140,7 +140,7 @@ sub search
     emptyText ();
     # Invalid path or more than one path
     return -1 if not -e $searchText;
-   
+
     my $regexpText = quotemeta $searchText;
     my $fuser = `$fuserCommand -c $searchText 2>&1`;
     chomp $fuser;
@@ -160,13 +160,13 @@ sub search
         print "Opening /proc/$p/status\n" if $debug;
         if (not (open (PINFO, "/proc/$p/status")))
         {
-            print STDERR "Impossible d'ouvrir /proc/$p/status\n"; 
+            print STDERR "Impossible d'ouvrir /proc/$p/status\n";
             next;
         }
         while (<PINFO>)
         {
-               $process->{name} = $1 if m/^Name:\s*(\S+)\s*/;
-               $process->{uid} = $passwdMap->{$1} if m/^Uid:\s*(\S+)\s*/;
+            $process->{name} = $1 if m/^Name:\s*(\S+)\s*/;
+            $process->{uid} = $passwdMap->{$1} if m/^Uid:\s*(\S+)\s*/;
         }
         close PINFO;
         # Serching for other attrs
@@ -210,11 +210,11 @@ sub search
     return 0;
 }
 
-sub kill
+sub killPids
 {
     my $nbPids = keys %$processes;
     return -1 if $nbPids == 0;
-    
+
     deactivate ();
 
     # Box are you sure ?
@@ -223,7 +223,7 @@ sub kill
         activate ();
         return -1;
     }
-    
+
     my $steps = 3 * $nbPids;
     my $count = 1;
     for my $pid (keys %$processes)
@@ -302,7 +302,7 @@ sub emptyText
 sub confirmBox
 {
     my $nb = shift;
-    my $dialog = Gtk2::MessageDialog->new ($window,  
+    my $dialog = Gtk2::MessageDialog->new ($window,
                                        [qw/modal destroy-with-parent/],
                                        'question', 'ok-cancel',
                                        "Êtes-vous sur de vouloir tuer $nb processus ?");
@@ -318,14 +318,14 @@ sub infoBox
     my $dialog;
     if ($nb > 0)
     {
-        $dialog = Gtk2::MessageDialog->new ($window,  
+        $dialog = Gtk2::MessageDialog->new ($window,
                                        [qw/modal destroy-with-parent/],
                                        'info', 'ok',
                                        "$nb processus toujours en vie");
     }
     else
     {
-        $dialog = Gtk2::MessageDialog->new ($window,  
+        $dialog = Gtk2::MessageDialog->new ($window,
                                        [qw/modal destroy-with-parent/],
                                        'info', 'ok',
                                        "Opération réussie");