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