wm: infra

ref: 8df8bdb45c315795a3a52f3fda0d8396a9eaac1a
dir: /newuser/

#!/bin/rc

run_newuser=t

fn usage {
		echo 'usage: newuser [-n] [-d dept] [-e email] [-i postid] sponsormail user pass' >[1=2]
		exit 'usage'
}

while (~ $1 -*) {
	switch ($1) {
    case -[dier]
        x=$1 $2
        shift
    case -n
        run_newuser=f
	case -*
	   usage
	}
	shift
}

if (~ $#* 3) {
    s=$1
    u=$2
    p=$3
    if(test -w /srv/cwfs.cmd){
        echo newsuer $1 >> /srv/cwfs.cmd
        chusr $x -s $s -p $p $u
        if(~ $run_newuser t)
            auth/as $u /sys/lib/newuser
    }
    if not
    {
        echo 'no cwfs.cmd or access to it'>[2=1]
        exit 'no cwfs.cmd or access to it'
    }

}
if not
    usage