DataMuseum.dk

Presents historical artifacts from the history of:

Regnecentalen RC-900

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Regnecentalen RC-900

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - metrics - download

⟦6c4ebda70⟧ TextFile

    Length: 1339 (0x53b)
    Types: TextFile
    Notes: UNIX file
    Names: »aid.protect«

Derivation

└─⟦6279acb2c⟧ Bits:30004169/disk8.imd Uniplex II+ V.6 release 1.0 (dansk)
└─⟦6279acb2c⟧ UNIX Filesystem
    └─⟦this⟧ »up/new/usr/UAP/cmds/aid.protect« 

TextFile


: '
aid.protect - UFILL frontend for protect screens

V.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T.......T....H..

Usage:  aid.protect -against file
   or:  aid.protect -record  file
   or:  aid.protect -V

-against  option is UFILL frontend, and loads "protect" UFILL screen with
          appropriate reply field initialisation
-record   is same as -against, except that file is a pathname within CFile
'


MODE="$1"
FILE="$2"
case "$MODE" in
  -[Vv]) exec echo "$0: Vs. V6.00"
         ;;
-record) case "$FILE" in
          $Ucentfile/*) ;;
                     *) FILE="$Ucentfile/$FILE";;
         esac
         ;;
-against) ;;
      *) exec echo"$0: unexpected invocation!!";;
esac

echo "Unders▶9b◀ger aktuelle rettigheder for opgaven \"$FILE\" ..."

: "ucfile returns pattern of 1's and 2's if all OK"
MODES=`ucfile -l $FILE 2>&1`
case "$MODES" in
  [12]' '*) ;;
         *) echo "Du har ikke ret til at ▶91◀ndre rettigheder p▶86◀ opgaven \"$FILE\"."
            exit 1
            ;;
esac

exec ufill protect $FILE $MODES

MODS
----
21/May/87   Altered sed logic to prevent / in filename causing
            "command garbled" error
04/Jun/87   Replaced LS/SED logic with UCFILE. Added -record support
15/Mar/88   Translated, Regnecentralen /AGJ