#!/usr/athena/bin/perl

$argl = join(' ',@ARGV);

die "\nHey, I need arguments!  Give me some!\n\nqy stopping" if ($argl eq "");

$pargen = "(echo \"c\";echo \"a\";echo \"qy $argl\";echo \"d\")";

open(MOIRA, "$pargen | mrtest |");

@ACT = ("inactive","active");
@PUB = ("private", "public");
@HID = ("visible", "hidden");
@MAIL= ("nomail",  "mail");
@GRP = ("nogroup", "group");

$pat="([01]), ([01]), ([01]), ([01]), ([01])";

while(<MOIRA>) {
    s/ *moira: *//g;
    s/ $pat/ $ACT[$1], $PUB[$2], $HID[$3], $MAIL[$4], $GRP[$5]/g;
    print;
}