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