1219b2ee8SDavid du Colombier#!/bin/rc 2219b2ee8SDavid du Colombier 3219b2ee8SDavid du Colombierid=`{cat /mnt/acme/new/ctl} 4219b2ee8SDavid du Colombierid=$id(1) 5*7dd7cddfSDavid du Colombiercmd = $* 6*7dd7cddfSDavid du Colombierif(~ $#cmd 0) cmd = cat 7*7dd7cddfSDavid du Colombier 8*7dd7cddfSDavid du Colombierecho 'name '^`{pwd}^/-^`{basename $cmd(1)} > /mnt/acme/$id/ctl 9*7dd7cddfSDavid du Colombier$cmd > /mnt/acme/$id/body 10219b2ee8SDavid du Colombierecho clean > /mnt/acme/$id/ctl 11