Subversion Repositories wimsdev

forumtest=!defof mb_readpolicy in wimshome/log/classes/$wims_class/forum/.def

!if $wims_user!=supervisor and $forumtest!=alluser

  msgcnt=0

  !exit

!endif

!if $wims_user=supervisor and ($wims_realuser=$empty or $wims_realuser=supervisor or $wims_realuser=SUPERVISOR)

  deffile=wimshome/log/classes/$wims_class/supervisor

!else

  !if $wims_realuser!=$empty

    deffile=wimshome/log/classes/$wims_class/.users/$wims_realuser

  !else

    deffile=wimshome/log/classes/$wims_class/.users/$wims_user

  !endif

!endif

newlim=10

user_lastmsg=!getdef user_lastmsg in $deffile

!default user_lastmsg=0

msgs=!record 0 of wimshome/log/classes/$wims_class/forum/.newlist

msgcnt=!linecnt $msgs

#msgcnt=0

!if $user_lastmsg=0

  !if $msgcnt>$newlim

    newmsgcnt=> $newlim

  !else

    newmsgcnt=$msgcnt

  !endif

  !exit

!endif

user_lastmonth=!char 1 to 6 of $user_lastmsg

!for n=$msgcnt to 1 step -1

  l_=!line $n of $msgs

  !distribute words $l_ into w_,t_

  !if $w_<$user_lastmonth

    !break

  !endif

  L_=!record $t_ of wimshome/log/classes/$wims_class/forum/$w_/.msglist

  !distribute items $L_ into m_,d_,h_

  h_=!char 1,2,4,5,7,8 of $h_

  !if $user_lastmsg<=$w_$d_$h_

    !if $newmsgcnt>$newlim

      newmsgcnt=> $newlim

      !exit

    !else

      !advance newmsgcnt

    !endif

  !endif

!next n