Re: bonobo-activation-slay

[Maciej Stachowiak <mjs noisehavoc org>]

On 10Aug2001 11:53AM (-0400), Michael Meeks wrote:
> 
> A patch to make it actualy kill the server:
> 
> 	May I commit ?

Please do.
 
> 		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
>