DataMuseum.dk

top - download

    Length: 3848 (0xf08)
    Types: TextFile
    Notes: @(#)Form.abs_time 13.3 (RC International) 91/12/03
    Names: »Form.abs_time«

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

TextFile

# Ident: @(#)Form.abs_time	13.3 (RC International) 91/12/03
form="Set absolut backup time"
lifetime=longterm
`set -l ATDATE = "" `

help=OPEN TEXT $INTFBASE/Text.itemhelp at:add:abs:$LININFO 

close=`
      if [ $ATDATE != "" ];
      then
       /bin/rm at_job;
       echo $atp > at_job;
       /usr/bin/at $ATDATE < at_job >/tmp/$VPID.at_error 2>/tmp/$VPID.at_error;
       if [ "$RET" = "1" ];
       then
         cat /tmp/$VPID.at_error | set -l at_error;
         message -t "$ATDATE is a wrong date, cause:  \"$at_error\"";
       else
         message -t "The job is inserted to be executed at $ATDATE";
       fi;
       /bin/rm -f /tmp/$VPID.at_error;
       /bin/rm at_job;
     fi`
done=`set -l ATDATE=$F1:$F2\ $F3\ $F4; echo close;`
begrow=any
begcol=any

# Table field - F1
name=Hour:
lininfo=F1
nrow=1
ncol=2

frow=1
fcol=15
rows=1
columns=2

value=`date | /usr/bin/nawk '{print $4}' - | /usr/bin/nawk -F: '{print ($1 + 1) % 24}' -`
choicemsg="Enter an integer belonging to (0,1,2,3,..23)"
fieldmsg="Enter the hour for the start time"
valid=` [ $F1 -ge 0 -a $F1 -le 23 ]`
invalidmsg="$F1 is not a valid hour"

# Table field - F2
name=Minute:
lininfo=F2
nrow=2
ncol=2

frow=2
fcol=15
rows=1
columns=2

value=00
fieldmsg="Enter the minute for the start time"
valid=` [ $F2 -ge 0 -a $F2 -le 59 ]`
choicemsg="Enter a value belonging to (0,1,2,3,..59)"
invalidmsg="$F2 is not a valid minute"
# Table field - F3
name=Month:
lininfo=F3
nrow=3
ncol=2

frow=3
fcol=15
rows=1
columns=3

value=`date | /usr/bin/nawk '{print $2}' -`
rmenu= {Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec }
menuonly
choicemsg="Enter the month name"
fieldmsg="Enter the month for start time"
invalidmsg="$F3 is not a valid name of a month, the choice key display the valid names."

# Table field - F4
name=Date:
lininfo=F4
nrow=4
ncol=2

frow=4
fcol=15
rows=1
columns=2

value=`date | awk '{print $3}' -`
rmenu= {01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 }
menuonly
choicemsg="Enter an integer belonging to (1,2,3,..31) with respect to the month choosen."
fieldmsg="Enter the date for start time"
invalidmsg="$F4 is not a valid date or the date and the month do not match.$c1,$c2,$c3"
valid=`
date | awk '{print $5}' - | set -l curr_year;
date | awk '{print $2}' - | set -l curr_month;
regex -v "$F3" Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6 Jul 7 Aug 8 Sep 9 Oct 10 Nov 11 Dec 12 | set -l p_month_no;
regex -v "$curr_month" Jan 1 Feb 2 Mar 3 Apr 4 May 5 Jun 6 Jul 7 Aug 8 Sep 9 Oct 10 Nov 11 Dec 12 | set -l c_month_no;
set -l c1=$curr_year;
if [ $c_month_no -gt $p_mount_no ];
then
  fmlexpr $curr_year + 1 | set -l curr_year;
fi;
set -l c2=$curr_year;
fmlexpr $curr_year % 4 | set -l curr_year;
set -l c3=$curr_year;
if [ $F4 -le 28 ];
then
  set -l result="TRUE";
elif [ $F3 = "Jan" -o $F3 = "Mar" -o $F3 = "May" -o $F3 = "Jul" -o $F3 = "Aug" -o $F3 = "Oct" -o $F3 = "Dec" ] ;
then
  set -l result="TRUE";
elif [ $F3 = "Apr" -o $F3 = "Jun" -o $F3 = "Sep" -o $F3 = "Nov" ] ;
then
  if [ $F4 = 31 ];
  then
    set -l result="FALSE";
  else
    set -l result="TRUE";
  fi;
elif [ $F4 -le 29 -a $curr_year = 0 ] ;
then
  set -l result="TRUE";
else
  set -l result="FALSE";
fi;
echo "$result";
`
# Table field - F5
name="----------------------------------"
inactive=true
nrow=5
ncol=0
frow=5
fcol=1
rows=1
columns=0
# Table field - F6
name=Move the cursor to the field you
nrow=6
ncol=1
frow=6
fcol=30
rows=1
columns=0
# Table field - F7
name=want to change, and change it, or
nrow=7
ncol=1
frow=7
fcol=30
rows=1
columns=0
# Table field - F8
name=enter SAVE to insert the backup
nrow=8
ncol=1
frow=8
fcol=30
rows=1
columns=0
# Table field - F9
name=job in the queue for for later
nrow=9
ncol=1
frow=9
fcol=30
rows=1
columns=0
# Table field - F10
name=performed jobs.
nrow=10
ncol=1
frow=10
fcol=30
rows=1
columns=0