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