Subversion Repositories planix.SVN

#!/bin/rc
cd /mnt/keys/$1 > /dev/null >[2=1] && {
        stat=`{cat status}
        exp=`{cat expire}
        switch($exp){
        case never 0
                exp='never expires'
        case *
                exp=(expires on `{date $exp})
        }
        switch($stat){
        case expired
                echo user $1: plan 9 key has expired
        case *
                echo user $1: plan 9 key status is $stat and $exp
        }
        grep '^'$1'[    ]' /adm/keys.who | tail -1
}
cd /mnt/netkeys/$1 > /dev/null >[2=1] && {
        stat=`{cat status}
        exp=`{cat expire}
        switch($exp){
        case never 0
                exp='never expires'
        case *
                exp=(expires on `{date $exp})
        }
        switch($stat){
        case expired
                echo user $1: network key has expired
        case *
                echo user $1: network key status is $stat and $exp
                auth/printnetkey $1
        }
        grep '^'$1'[    ]' /adm/netkeys.who | tail -1
}