Subversion Repositories wimsdev

Rev

Rev 15488 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15488 Rev 18120
Line 7... Line 7...
7 
for file in .teacher-cls .supervisor-supercls .supervisor-portal .teacher-supercls .teacher-portal; do \
 7 
for file in .teacher-cls .supervisor-supercls .supervisor-portal .teacher-supercls .teacher-portal; do \
8 
cat $$file | cut -d"," -f3 | sort | uniq | awk 'END{print NR }'; \
 8 
cat $$file | cut -d"," -f3 | sort | uniq | awk 'END{print NR }'; \
9 
done;
 9 
done;
10 
  output=!lines2items $output
 10 
  output=!lines2items $output
11 
  cnt_list=1,$output
 11 
  cnt_list=1,$output
- 
 
 12 
  dev=!recordcnt wimshome/log/.developers
- 
 
 13 
  cnt_list=$cnt_list,$dev
12 
  !exit
 14 
  !exit
13 
!endif
 15 
!endif
14 
 
 16 
 
15 
!if $step=1
 17 
!if $step=1
16 
  sendmail_dest=!listintersect $sendmail_dest and $val_list
 18 
  sendmail_dest=!listintersect $sendmail_dest and $val_list
- 
 
 19 
  sendmail_dest1=!listcomplement 7 in $sendmail_dest
17 
  file=!item $sendmail_dest of ,.teacher-cls,.supervisor-supercls,.supervisor-portal,.teacher-supercls,.teacher-portal
 20 
  file=!item $sendmail_dest1 of ,.teacher-cls,.supervisor-supercls,.supervisor-portal,.teacher-supercls,.teacher-portal
18 
  file=!items2words $file
 - 
 
19 
  list=!sh cd $wims_home/log/classes;\
 21 
  list=!sh cd $wims_home/log/classes;\
20 
    cat $file | cut -d"," -f3 | sort | uniq
 22 
    cat $file | cut -d"," -f3 | sort | uniq
- 
 
 23 
  !!fichier devel
- 
 
 24 
  !if 7 isin $sendmail_dest
- 
 
 25 
    dev=!recordcnt wimshome/log/.developers
- 
 
 26 
    !for j=1 to $dev
- 
 
 27 
      !set tmp=!record $j of wimshome/log/.developers
- 
 
 28 
      !set tmp=!line 4 of $tmp
- 
 
 29 
      !set list=!append line $tmp to $list
- 
 
 30 
    !next
- 
 
 31 
    !reset tmp
- 
 
 32 
  !endif
- 
 
 33 
  !!end fichier devel
21 
  list=!lines2items $list
 34 
  list=!lines2items $list
22 
  save_list=!nonempty item $list
 35 
  save_list=!nonempty item $list
23 
  !if 1 isitemof $sendmail_dest
 36 
  !if 1 isitemof $sendmail_dest
24 
    save_list=!append item $wims_site_manager to $save_list
 37 
    save_list=!append item $wims_site_manager to $save_list
25 
  !endif
 38 
  !endif
- 
 
 39 
  save_list=!listuniq $save_list
26 
  save_subject=!char 1 to 100 of $sendmail_subject
 40 
  save_subject=!char 1 to 100 of $sendmail_subject
27 
  save_msg=!char 1 to 1000 of $sendmail_msg
 41 
  save_msg=!char 1 to 1000 of $sendmail_msg
28 
  !if $sendmail_subject=$empty or $sendmail_msg=$empty
 42 
  !if $sendmail_subject=$empty or $sendmail_msg=$empty
29 
    error=bad_mail
 43 
    error=bad_mail
30 
    step=$empty
 44 
    step=$empty