Rev 4495 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
2847 | guerimand | 1 | #! /bin/sh |
2 | |||
3 | cd `dirname $0`; |
||
4 | main=`pwd`; |
||
5 | rm -f .IND1 .IND2 .IND4 .IND2a .IND4a 2>/dev/null |
||
6 | clist=`ls -d [0-9]* 2>/dev/null` |
||
7 | for cls in $clist; do |
||
2970 | guerimand | 8 | if [ $cls -gt 9999 ]; then |
2847 | guerimand | 9 | supv=`awk -F'=' '$1=="!set class_supervisor" {print $2; exit}' $cls/.def` |
10 | type=`awk -F'=' '$1=="!set class_type" {print $2; exit}' $cls/.def` |
||
11 | email=`awk -F'=' '$1=="!set class_email" {print $2; exit}' $cls/.def` |
||
12 | [ -z "$type" ] && type=0 |
||
4460 | bpr | 13 | if [ $type = 0 ]; then |
2847 | guerimand | 14 | echo ":$cls,$supv,$email" >>.IND1 |
15 | else |
||
4460 | bpr | 16 | if [ $type = 2 ]; then |
2847 | guerimand | 17 | echo ":$cls,$supv,$email" >>.IND2 |
18 | cd $cls/.users/; |
||
4491 | bpr | 19 | lt=`grep -l "user_supervisable=yes" *`; |
2847 | guerimand | 20 | for t in $lt; do |
21 | lname=`awk -F'=' '$1=="!set user_lastname" {print $2; exit}' ./$t` |
||
22 | fname=`awk -F'=' '$1=="!set user_firstname" {print $2; exit}' ./$t` |
||
23 | email=`awk -F'=' '$1=="!set user_email" {print $2; exit}' ./$t` |
||
8438 | bpr | 24 | if [ -n "$email" ]; then |
2847 | guerimand | 25 | echo "$cls,$supv,$email" >> $main/.IND2a |
26 | fi |
||
27 | done |
||
28 | cd $main |
||
29 | else |
||
30 | echo ":$cls,$supv,$email" >>.IND4 |
||
31 | cd $cls/.users/; |
||
4491 | bpr | 32 | lt=`grep -l "user_supervisable=yes" *`; |
2847 | guerimand | 33 | for t in $lt; do |
34 | lname=`awk -F'=' '$1=="!set user_lastname" {print $2; exit}' ./$t` |
||
35 | fname=`awk -F'=' '$1=="!set user_firstname" {print $2; exit}' ./$t` |
||
36 | email=`awk -F'=' '$1=="!set user_email" {print $2; exit}' ./$t` |
||
8438 | bpr | 37 | if [ -n "$email" ]; then |
2847 | guerimand | 38 | echo "$cls,$supv,$email" >> $main/.IND4a |
39 | fi |
||
40 | done |
||
41 | cd $main |
||
42 | fi; |
||
43 | fi; |
||
2970 | guerimand | 44 | fi; |
3196 | guerimand | 45 | done; |
46 | touch .IND1 .IND2 .IND4 .IND2a .IND4a; |
||
2850 | guerimand | 47 | env LC_COLLATE=POSIX LANG=POSIX LC_CTYPE=fr_FR.UTF-8 sort -t ',' -f -k 2 <.IND1 >.teacher-cls 2>/dev/null |
2847 | guerimand | 48 | env LC_COLLATE=POSIX LANG=POSIX LC_CTYPE=fr_FR.UTF-8 sort -t ',' -f -k 2 <.IND2 >.supervisor-supercls 2>/dev/null |
49 | env LC_COLLATE=POSIX LANG=POSIX LC_CTYPE=fr_FR.UTF-8 sort -t ',' -f -k 2 <.IND4 >.supervisor-portal 2>/dev/null |
||
2850 | guerimand | 50 | env LC_COLLATE=POSIX LANG=POSIX LC_CTYPE=fr_FR.UTF-8 sort -t ',' -f -k 2 <.IND2a >.teacher-supercls 2>/dev/null |
51 | env LC_COLLATE=POSIX LANG=POSIX LC_CTYPE=fr_FR.UTF-8 sort -t ',' -f -k 2 <.IND4a >.teacher-portal 2>/dev/null |
||
2847 | guerimand | 52 | rm -f .IND1 .IND2 .IND4 .IND2a .IND4a 2>/dev/null |