bonobo-activation-slay

[Michael Meeks <michael ximian com>]

A patch to make it actualy kill the server:

	May I commit ?

		Michael.

Index: bonobo-activation-slay
===================================================================
RCS file: /cvs/gnome/bonobo-activation/test/bonobo-activation-slay,v
retrieving revision 1.4
diff -u -r1.4 bonobo-activation-slay
--- bonobo-activation-slay	2001/05/31 09:21:19	1.4
+++ bonobo-activation-slay	2001/08/10 15:52:46
@@ -1,13 +1,13 @@
 #!/usr/bin/perl
 #
-# oaf-slay
+# bonobo-activation-slay
 #
-# Kills OAF processes
+# Kills running bonobo servers
 #
 # Return code of -1 (255) returned if usage error.
-# Return code of 1 indicates oaf processes were running
+# Return code of 1 indicates bonobo-activation processes were running
 #   when script was run.
-# Return code of 0 indicates no oaf processes were
+# Return code of 0 indicates no bonobo-activation processes were
 #   running when script was run.
 #
 use             Getopt::Std;
@@ -33,8 +33,8 @@
 #
 if ($usage_error == 1 || $opt_h) {
 	print "\n";
-	print "Usage : oaf-slay [-hls]\n";
-	print "\tKill OAF processes still running.\n";
+	print "Usage : bonobo-activation-slay [-hls]\n";
+	print "\tKill bonobo server processes still running.\n";
 	print "\t -h Print this help message.\n";
 	print "\t -l List processes running, but do not kill them.  Not
valid with -s\n";
 	print "\t -s Silent.  Kill processes quietly\n";
@@ -47,12 +47,12 @@
 $uid = getuid();
 $ps_cmd = "/bin/ps -U $uid -opid,args";

-# get OAF files
+# get server files
 #
 @path = split(':', $ENV{'PATH'});

 foreach $dir (@path) {
-	if (-f "$dir/oafd") {
+	if (-f "$dir/bonobo-activation-server") {
 		$ins_dir  = `/usr/bin/dirname $dir`;
 		chomp $ins_dir;
 		$oaf_dir  = $ins_dir . "/share/oaf";
@@ -108,9 +108,9 @@
 					chomp($line);
 					$line =~s/\.\///;

-					# oafd needs to be last.
+					# bonobo-activation-server needs
to be last.
 					#
-					if ($line ne "oafd") {
+					if ($line ne
"bonobo-activation-server") {
 						push @file_process, $line;
 					}
 				} #end while(<FILE>)
@@ -119,9 +119,9 @@
 		}
 	}

-	# Add oafd so that it is last.
+	# Add bonobo-activation-server so that it is last.
 	#
- 	push @file_process, "oafd";
+ 	push @file_process, "bonobo-activation-server";

 	foreach $filep (@file_process) {



-- 
 mmeeks gnu org  <><, Pseudo Engineer, itinerant idiot