DataMuseum.dk

top - download

    Length: 4644 (0x1224)
    Types: TextFile
    Notes: @(#)Form.params 13.4 (RC International) 91/11/29
    Names: »Form.params«

└─⟦50656ff4a⟧ Bits:30010538 TX 3.1 Coldstart
    └─⟦bbf173f5c⟧ »0004« 
        └─⟦this⟧ »./usr/sadm/sysadm/add-ons/sysadm/backup_service/dump/reel_params/Form.params« 

TextFile

# Ident: @(#)Form.params	13.4 (RC International) 91/11/29
form="Supplementary parameters for reel tape"
help=OPEN TEXT $INTFBASE/Text.itemhelp reel:$LININFO
lifetime=longterm
`regex -v "$NOTIFY" n yes '.*' no | set -l notify;
regex -v "$REWIND" r yes '.*' no | set -l rewind;
regex -v "$UPDATE" u yes '.*' no | set -l update;
regex -v "$VERIFY" v yes '.*' no | set -l verify`

done=`set -l DEVNODE=$F1;
      regex -v "$F2" yes n '.*' '' | set -l NOTIFY;
      regex -v "$F3" yes r '.*' '' | set -l REWIND ;
      regex -v "$F4" yes u '.*' '' | set -l UPDATE ;
      regex -v "$F5" yes v '.*' '' | set -l VERIFY ;
      set -l BLKSIZE=$F6;
      set -l DEN=$F7;
      set -l LEN=$F8;
      set -l TYPE="s";
      `close

begrow=any
begcol=any

# Table field - F1
name=Tape device node:
lininfo=F1
nrow=1
ncol=2

frow=1
fcol=28
rows=1
columns=25

value=$DEVNODE
rmenu=OPEN MENU $DUMP_DIR/dump/Menu.mt
fieldmsg="Select the device node for the wanted tape"
choicemsg="Select the device node from the menu"
invalidmsg="Only tape device nodes are valid"
valid=`shell " file $F1 " | regex magnetic true '.*' false`

# Table field - F2
name=Operator notify:

lininfo=F2
nrow=2
ncol=2

frow=2
fcol=28
rows=1
columns=3

value=$notify
rmenu= { yes no }
menuonly
`regex -v "$NOTIFY" n "Enter 'no' for no operator notify." '.*' "Enter 'yes' for operator notify." | set -l fms2`
fieldmsg=$fms2 
valid=`
       if [ $F2 = "yes" ] ;
       then
         set -l fms2="Enter 'no' for no operator notify.";
         echo true;
       elif [ $F2 = "no" ];
       then
         set -l fms2="Enter 'yes' for operator notify.";
         echo true;
       else
         echo false;
       fi;
     `
invalidmsg"$F2 is not valid"

# Table field - F3
name=Rewind tape:

lininfo=F3
nrow=3
ncol=2

frow=3
fcol=28
rows=1
columns=3

value=$rewind
rmenu= { yes no }
menuonly
`regex -v $REWIND" r "Enter 'no' for no rewind when the backup is complete." '.*' "Enter 'yes' to rewind the tape when the backup is complete." | set -l fms3`
fieldmsg=$fms3 
valid=`
       if [ $F3 = "yes" ] ;
       then
         set -l fms3="Enter 'no' for no rewind when the backup is complete.";
         echo true;
       elif [ $F3 = "no" ];
       then
         set -l fms3="Enter 'yes' to rewind the tape when the backup is complete.";
         echo true;
       else
         echo false;
       fi;
     `
invalidmsg"$F3 is not valid"

# Table field - F4
name=Save date and level:

lininfo=F4
nrow=4
ncol=2

frow=4
fcol=28
rows=1
columns=3

value=$update
rmenu= { yes no }
menuonly
`regex -v "$UPDATE" u "Enter 'no' for no save of the Level and the Date." '.*' "Enter 'yes' to save the Level and the Date." | set -l fms4`
fieldmsg=$fms4 
valid=`
       if [ $F4 = "yes" ] ;
       then
         set -l fms4="Enter 'no' for no save of the Level and the Date.";
         echo true;
       elif [ $F4 = "no" ];
       then
         set -l fms4="Enter 'yes' to save the Level and the Date.";
         echo true;
       else
         echo false;
       fi;
     `
invalidmsg"$F4 is not valid"

# Table field - F5
name=Verify tape after backup:

lininfo=F5
nrow=5
ncol=2

frow=5
fcol=28
rows=1
columns=3

value=$verify
rmenu= { yes no }
menuonly
`regex -v "$VERIFY" v "Enter 'no' for no verify when the backup is complete." '.*' "Enter 'yes' to verify the tape when the backup is complete." | set -l fms5`
fieldmsg=$fms5 
valid=`
       if [ $F5 = "yes" ] ;
       then
         set -l fms5="Enter 'no' for no verify when the backup is complete.";
         echo true;
       elif [ $F5 = "no" ];
       then
         set -l fms5="Enter 'yes' to verify the tape when the backup is complete.";
         echo true;
       else
         echo false;
       fi;
     `
invalidmsg"$F5 is not valid"

# Table field - F6
name=Tape block size:
lininfo=F6
nrow=6
ncol=2

frow=6
fcol=28
rows=1
columns=4

value=$BLKSIZE
rmenu= {}
fieldmsg="Enter the tape block size as an integer in the range 1 to 64 kb"
choicemsg="Enter an integer in the range 1 to 64 kb"
invalidmsg="$F6 is not in the range 1 to 64 kb"
valid=`[ "$F6" -le 64 -a "$F6" -ge 1 ]`

# Table field - F7
name=Tape density:

lininfo=F7
nrow=7
ncol=2

frow=7
fcol=28
rows=1
columns=4

value=$DEN
rmenu= { 1600 6250 }
menuonly
fieldmsg="Enter the tape density as 1600 BPI or 6250 BPI"
choicemsg="Enter 1600 or 6250"
invalidmsg="$F7 is not equal to 1600 or equal to 6250"

# Table field - F8
name=Tape length:

lininfo=F8
nrow=8
ncol=2

frow=8
fcol=28
rows=1
columns=4

value=$LEN 
rmenu= {}
fieldmsg="Enter the tape length in feet" 
choicemsg="Enter an positiv integer as the tape length." 
valid=`[ "$F8" -gt 0 ]`
invalidmsg="$F8 is not positiv."