Subversion Repositories wimsdev

mlist=.newlist

!bound l_order within 1,2 default 1

!if $mlist>0

  tot=!recordcnt $forumdir/$mlist/.msglist

  !if $tot>0

    lyear=!char 1 to 4 of $mlist

    lmon=!char 5,6 of $mlist

    !goto end

  !endif

!endif

mlist=.newlist

mnew=!record 0 of $forumdir/.newlist

tot=!linecnt $mnew

:end

threadlist=

!for p_ = 1 to $tot

  !if $mlist=.newlist

    !set l_=!line $p_ of $mnew

    !distribute word $l_ into a_,b_

    !set l_=!record $b_ of $forumdir/$a_/.msglist

  !else

    !set l_=!record $p_ of $forumdir/$mlist/.msglist

  !endif

  test_=!item 5 of $l_

  test_=!replace internal O by , in $test_

  !if $(test_[1])=$empty

    c_=!item 4 of $l_

    threadlist= !append item $(test_[2]) to $threadlist

  !endif

!next

tot_t=!itemcnt $threadlist