Subversion Repositories wimsdev

oldcrontab=!sh crontab -l 2>/dev/null
checkline=# Online-installed crontab
server_base=!replace internal /public_html*** by $ in $httpd_PWD***
backuper=$server_base/bin/backup
accounter=$server_base/log/account.sh

!if $oldcrontab!=$empty and $checkline notin $oldcrontab
  error=manual
  !exit
!endif

tt=!char 1 of $server_base
!if $tt!=/
 error=bad_base
 !exit
!endif

:readcron
oldcrontab=!nonempty lines $oldcrontab
n=!linecnt $oldcrontab
oldsave=
oldaccount=no
oldbackup_h=-1
oldbackup_m=
!for i=1 to $n
  l=!line $i of $oldcrontab
  l=!trim $l
  c=!char 1 of $l
  !if $c!=#
    !distribute words $l into w1,w2,w3,w4,w5,w6,w7
    !if $w3=* and $w4=* and $w5=* and $w6 iswordof \
       $backuper $accounter
      !if $w6=$backuper
        oldbackup_h=$[$w2]
        oldbackup_m=$[$w1]
      !endif
      !if $w6=$accounter
        oldaccount=yes
      !endif
    !else
      !if bin/backup notin $l and log/account.sh notin $l
        oldsave=!append line $l to $oldsave
      !endif
    !endif
  !endif
!next i


!if $job2=second and $abandon=$empty
  !bound crontab_backup_h between integer -1 and 23 default -1
  !bound crontab_backup_m between integer 0 and 59 default $[randint(59)]
  !bound crontab_account among yes,no default no
  newcron=$checkline
  !if $crontab_backup_h>=0
    newcron=$newcron\
\
# Daily backup\
$crontab_backup_m $crontab_backup_h * * * $backuper >/dev/null
  !endif
  !if $crontab_account=yes
    newcron=$newcron\
\
# Activity accounting\
16 0 * * * $accounter >/dev/null
  !endif
  newcron=$newcron\
\
# Saved from old (manual?) crontab\
$oldsave
 !sh cat >../tmp/crontab <<@\
$newcron\
@\
crontab ../tmp/crontab
  job2=
  oldcrontab=!sh crontab -l 2>/dev/null
  !goto readcron
!endif