Subversion Repositories wimsdev

!bound job2 within all,one,first default first

!for t in site,cat,zone,delay
  mu_$t=!defof mu_$t in wimshome/log/wims.conf
  !default mu_$t=!defof DF_mu_$t in wimshome/public_html/bases/sys/defaults.conf
!next t

!readproc mu/publishdownload.def

!if $job2=one
  !changeto mu/one.proc
!endif

!default musite=$mu_site
!default mucat=$mu_cat
!default muzone=$mu_zone
!default mudelay=$mu_delay

!if $muauto notwordof check update install
  muauto=
  !exit
!endif

mu_add=mu_site=$musite\
mu_cat=$mucat\
mu_zone=$muzone\
mu_delay=$mudelay\
mu_auto=$muauto\
w_wims_session=$wims_session\
mu_ref=$wims_ref_name
auto=$muauto
muauto=

!if $auto=check
  modupdate=!sh $wims_home/bin/modupdate
!else
  !appendfile wimshome/log/wimslogd.exec scripttest=yes\
wims_home=$wims_home\
w_wims_version=$wims_version\
w_mu_add="$mu_add"\
export scripttest wims_home w_wims_version w_mu_add\
$wims_home/bin/modupdate mail
!endif

check=!nonempty lines $modupdate
n=!linecnt $check
!reset mode,modif,new

!for i=1 to $n
  l=!line $i of $check
  !if updated iswordof $l
    mode=modif
  !endif
  !if added iswordof $l
    mode=new
  !endif
  t=!itemcnt $l
  !if / isin $l and $t=4 and $mode!=$empty
    $mode=!append line $l to $($mode)
  !endif
!next i

modif=!translate internal /~ to ,/ in $modif
new=!translate internal /~ to ,/ in $new
modifcnt=!linecnt $modif
newcnt=!linecnt $new