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)

 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