Return to update CVS log

Up to [Research Unix] / researchv10dc / cmd / post

Annotation of researchv10dc/cmd/post/update, revision 1.1

1.1     ! root        1: new= fmt= nl='
        !             2: '
        !             3: get() {
        !             4:        attr=$1; shift
        !             5:        eval echo -n '"$*: [$'$attr'] "'; read val
        !             6:        [ -n "$val" ] && new=$new$nl$attr=$val
        !             7: }
        !             8: ask() {
        !             9:        echo -n "$*? [yes] "; read yesno
        !            10:        case $yesno in [^yY]*) return 1;; esac
        !            11: }
        !            12: pid='no default'
        !            13: get pid "Enter your SSN (PAN for Bell Labs)"
        !            14: eval $new
        !            15: [ -z "$pid" -o "$pid" = "-" ] && exit
        !            16: pq "pid=$pid" || {
        !            17:        echo The directory does not have a record for you.
        !            18:        exit
        !            19: }
        !            20: ask Is this your name || exit
        !            21: ask Is the data correct && exit
        !            22: for attr in pid pn org loc room tel ema
        !            23: do fmt=$fmt$nl$attr=\"%$attr\"
        !            24: done
        !            25: eval `pq -o "$fmt" "pid=$pid"`
        !            26: new=pid=$pid${nl}pn=$pn
        !            27: get org  New organization
        !            28: get loc  New location
        !            29: get room New room
        !            30: get tel  New telephone
        !            31: get ema  New electronic mail address
        !            32: echo "$new" | /bin/mail `pq -o %ema update.post`
        !            33: echo Please allow 2-4 weeks for update.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.