xref: /plan9/acme/bin/Spam (revision 4246b6162acdbb658503b8bdc98024362bfbf0fe)
1*4246b616SDavid du Colombier#!/bin/rc
2*4246b616SDavid du Colombier
3*4246b616SDavid du Colombierif(! ~ $#* 0){
4*4246b616SDavid du Colombier	echo usage: Spam >[1=2]
5*4246b616SDavid du Colombier	exit usage
6*4246b616SDavid du Colombier}
7*4246b616SDavid du Colombier
8*4246b616SDavid du Colombierif(! ~ `{pwd} /mail/fs/*/[0-9]* || ! test -f raw || ! test -f unixheader){
9*4246b616SDavid du Colombier	echo must run in mail directory >[1=2]
10*4246b616SDavid du Colombier	exit 'bad dir'
11*4246b616SDavid du Colombier}
12*4246b616SDavid du Colombier
13*4246b616SDavid du Colombiercat unixheader raw | upas/spam
14