From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on inbox.vuxu.org
X-Spam-Level: 
X-Spam-Status: No, score=0.0 required=5.0 tests=none autolearn=ham
	autolearn_force=no version=3.4.4
Received: (qmail 28984 invoked from network); 14 Aug 2023 08:50:15 -0000
Received: from 9front.inri.net (168.235.81.73)
  by inbox.vuxu.org with ESMTPUTF8; 14 Aug 2023 08:50:15 -0000
Received: from asquith.prosimetrum.com ([125.236.209.157]) by 9front; Mon Aug 14 04:49:03 -0400 2023
Message-ID: <6FFAA10E6F8E59B921318DC1C6F7959A@prosimetrum.com>
Date: Mon, 14 Aug 2023 20:50:48 +1200
From: umbraticus@prosimetrum.com
To: 9front@9front.org
MIME-Version: 1.0
Content-Type: text/plain; charset="US-ASCII"
Content-Transfer-Encoding: 7bit
List-ID: <9front.9front.org>
List-Help: <http://lists.9front.org>
X-Glyph: ➈
X-Bullshit: app WEB2.0 descriptor NoSQL manager 
Subject: [9front] lstk script
Reply-To: 9front@9front.org
Precedence: bulk

The lstk script recently committed is a handy tool.
I humbly submit the version which I have been using.
If there are multiple broken processes it prints them
in a sendable format instead of just picking most recent.

#!/bin/rc
rfork e
p = `{ps | awk '/Broken/{print $2 " "$7}'}
if(~ $#p 2){
	echo 'echo ''lstk()'' | acid' $p(1) '#' $p(2)
	echo 'lstk()' | acid $p(1)
	exit $status
}
fn list{
	while(! ~ $#* 0){
		echo 'echo ''lstk()'' | acid' $1 '#' $2
		shift; shift
	}
}
list $p