Subversion Repositories wimsdev

!read adm/class/classlang names.phtml
lim=250
!!!bound job within all,filter,login default all
job=!items2words $job

!set cnt=!recordcnt wimshome/log/classes/$wims_class/.userlist
!if login notwordof $job
  !reset loginlist
!endif
!if $cmd=resume
  !reset error
  !reset list_user1 list_user2 list_user3 list_user4 list_user5 list_user6 list_user7 list_user8 list_user9 list_user10
!endif

!readproc adm/vfilter/listvarfilter.proc
!if $varfilterclear!=$empty
   step=0
!else
  !reset step
!endif
!readproc adm/vfilter/varfilter proc

!if $cmd=reply and $step!=0
  !default job=all
  aim=photourl
  rac=wimshome/log/classes/$wims_class
  wims_superclass=!defof class_superclass in $rac/.def
  class_type=!defof class_type in $rac/.def
  class_typename=!defof class_typename in $rac/.def
  !default wims_superclass=$wims_class
  file=$rac/.userlist

  !if select iswordof $job and login iswordof $job
    loginlist_=!listuniq $loginlist,$select_user
  !else
    !if login iswordof $job
      loginlist_=$loginlist
    !else
      loginlist_=$select_user
    !endif
  !endif
  !if login notwordof $job and filter notwordof $job
    loginlist_=all
  !endif

  $(aim)_exists=0

  !reset list_user1 list_user2 list_user3 list_user4 list_user5 list_user6 list_user7 list_user8 list_user9 list_user10

  !for lu =1 to $cnt
    ll=$[ceil($lu/$lim)]
    TEST=
    us_=!record $lu of $file
    !distribute item $us_ into l_name_,f_name_,login
    !defread wimshome/log/classes/$wims_superclass/.users/$login
    !if $job!=filter
      !if $loginlist_=all or (login iswordof $job and $login isitemof $loginlist_)
        TEST=1
      !endif
    !else
      !read adm/vfilter/testfilter $login\
$varfilter_
      TEST=$var_filter_test
    !endif
    !if $TEST=1
      aim_=!defof user_$aim in wimshome/log/classes/$wims_superclass/.users/$login
      fim_=!filexists wimshome/sessions/$wims_session/getfile/photoboard/$login
      !if $aim_!= or $fim_=yes
        !if $fim_!=yes
          list_user$ll=!append line $login,$l_name_,$f_name_,$aim_ to $(list_user$ll)
        !else
          list_user$ll=!append line $login,$l_name_,$f_name_,yes to $(list_user$ll)
        !endif
        !set $(aim)_exists=1
      !else
        list_user$ll=!append line $login,$l_name_,$f_name_, to $(list_user$ll)
      !endif
    !endif
  !next lu
!endif