SunOS & oaf-slay ...

[Michael Meeks <michael ximian com>]

Hi Louise,

	I fixed oaf-slay for SunOS using your killev fix, it's probably
better to use oaf-slay than killev for now, we should probably catch other
platforms later:

	Thanks,

		Michael.

Index: ChangeLog
===================================================================
RCS file: /cvs/gnome/oaf/ChangeLog,v
retrieving revision 1.126.2.24
diff -u -r1.126.2.24 ChangeLog
--- ChangeLog	2001/02/02 03:50:30	1.126.2.24
+++ ChangeLog	2001/02/03 21:32:40
@@ -1,3 +1,7 @@
+2001-02-03  Michael Meeks  <michael helixcode com>
+
+	* test/oaf-slay.tmpl: cope with SunOS elegantly.
+
 2001-02-01  Maciej Stachowiak  <mjs eazel com>
 
 	reviewed by: Robey Pointer  <robey eazel com>
Index: test/oaf-slay.tmpl
===================================================================
RCS file: /cvs/gnome/oaf/test/oaf-slay.tmpl,v
retrieving revision 1.2.4.1
diff -u -r1.2.4.1 oaf-slay.tmpl
--- test/oaf-slay.tmpl	2000/12/28 19:06:15	1.2.4.1
+++ test/oaf-slay.tmpl	2001/02/03 21:32:40
@@ -1,8 +1,6 @@
 #!/usr/bin/perl
 
 $oaf_dir="@oafdir@";
-$killall='killall';
-$kill_params=' -q -9 ';
 
 print "Warning, this program may arbitrarily terminate all manner of
vital apps\n use with extreme caution...\n";
 
@@ -10,6 +8,19 @@
 opendir (DIR, $oaf_dir) || die "can't opendir oaf_dir: $!";
 @files = readdir (DIR);
 closedir DIR;
+
+$sysname=`uname -s`;
+chomp ($sysname);
+
+if ($sysname eq "SunOS") {
+    $killall="pkill";
+    $kill_params=' -9 ';
+} else {
+    $killall="killall";
+    $kill_params=' -q -9 ';
+}
+
+# print "Killall :'", $killall, "' params '", $kill_params, "'\n";
 
 while ($fname = shift (@files)) {
 	open (FILE, $fname);


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