Subversion Repositories wimsdev

check_list=!item 2 to -1 of $name_dest
nbcheck_list=!itemcnt $check_list
val_list=!values v for v=1 to $nbcheck_list

!if $step=$empty
  output=!sh cd $wims_home/log/classes; \
for file in .teacher-cls .supervisor-supercls .supervisor-portal .teacher-supercls .teacher-portal; do \
cat $$file | cut -d"," -f3 | sort | uniq | awk 'END{print NR }'; \
done;
  output=!lines2items $output
  cnt_list=1,$output
  dev=!recordcnt wimshome/log/.developers
  cnt_list=$cnt_list,$dev
  !exit
!endif

!if $step=1
  sendmail_dest=!listintersect $sendmail_dest and $val_list
  sendmail_dest1=!listcomplement 7 in $sendmail_dest
  file=!item $sendmail_dest1 of ,.teacher-cls,.supervisor-supercls,.supervisor-portal,.teacher-supercls,.teacher-portal
  list=!sh cd $wims_home/log/classes;\
    cat $file | cut -d"," -f3 | sort | uniq
  !!fichier devel
  !if 7 isin $sendmail_dest
    dev=!recordcnt wimshome/log/.developers
    !for j=1 to $dev
      !set tmp=!record $j of wimshome/log/.developers
      !set tmp=!line 4 of $tmp
      !set list=!append line $tmp to $list
    !next
    !reset tmp
  !endif
  !!end fichier devel
  list=!lines2items $list
  save_list=!nonempty item $list
  !if 1 isitemof $sendmail_dest
    save_list=!append item $wims_site_manager to $save_list
  !endif
  save_list=!listuniq $save_list
  save_subject=!char 1 to 100 of $sendmail_subject
  save_msg=!char 1 to 1000 of $sendmail_msg
  !if $sendmail_subject=$empty or $sendmail_msg=$empty
    error=bad_mail
    step=$empty
  !endif
  !if $save_list=$empty
    error=bad_list
    step=$empty
  !endif
  !exit
!endif

!if $step=2
  !for us in $save_list

!! the blank line is compulsory
    !mailto $us\
$wims_site_manager\
[WIMS $wims_servername] $save_subject\
$save_msg\


  !next us
!endif