WebSVN – wimsdev – Diff – /trunk/wims/public_html/scripts/adm/class/mkuserlist

 # also constructs .userlist_external if needed
 uclass=$wims_read_parm
 !default uclass=$wims_class
+# What's the point of $wims_prefix ?
 !if user notwordof $wims_prefix
- wims_prefix=$wims_prefix user
+  wims_prefix=$wims_prefix user
 !endif
 :mkstart
 supclass=!defof class_superclass in wimshome/log/classes/$uclass/.def
 reset class_lvl
 !if $supclass!=$empty and $supclass!=$uclass
- supertype=!defof class_type in wimshome/log/classes/$supclass/.def
+  supertype=!defof class_type in wimshome/log/classes/$supclass/.def
- typename=!defof class_typename in wimshome/log/classes/$uclass/.def
+  typename=!defof class_typename in wimshome/log/classes/$uclass/.def
- !if $typename iswordof level program
+  !if $typename iswordof level program
-  !exit
+    !exit
- !endif
- !if $typename issametext course
-  class_parent=!defof class_parent in wimshome/log/classes/$uclass/.def
-  !if $class_parent!=$empty
-   i=!defof class_ocourses in wimshome/log/classes/$class_parent/.def
-   i=!makelist $wims_superclass/x for x in $i
-   !if $uclass isitemof $i
-    uclass=$class_parent
-    !goto mkstart
-   !endif
   !endif
-  clist=$uclass
+  !if $typename issametext course
- !else
+    class_parent=!defof class_parent in wimshome/log/classes/$uclass/.def
-  !if / isin $uclass
+    !if $class_parent!=$empty
-   class_lvl=!translate internal / to , in $uclass
+      i=!defof class_ocourses in wimshome/log/classes/$class_parent/.def
-   class_lvl=$(class_lvl[1])/$(class_lvl[2])
+      i=!makelist $wims_superclass/x for x in $i
-   !if $class_lvl=$uclass
+      !if $uclass isitemof $i
-    class_lvl=
+        uclass=$class_parent
-    clist=$supclass,$uclass
+        !goto mkstart
-   !else
+      !endif
-    clist=$supclass,$class_lvl,$uclass
-   !endif
+    !endif
+    clist=$uclass
   !else
+    !if / isin $uclass
+      class_lvl=!translate internal / to , in $uclass
+      class_lvl=$(class_lvl[1])/$(class_lvl[2])
+      !if $class_lvl=$uclass
+        class_lvl=
+        clist=$supclass,$uclass
+      !else
+        clist=$supclass,$class_lvl,$uclass
+      !endif
+    !else
-   clist=!listuniq $supclass,$uclass
+      clist=!listuniq $supclass,$uclass
+    !endif
   !endif
- !endif
 !else
- typename=class
+  typename=class
- clist=$uclass
+  clist=$uclass
- supclass=$uclass
+  supclass=$uclass
 !endif
 mul_userdir=wimshome/log/classes/$supclass/.users
 mul_userdir2=$wims_home/log/classes/$supclass/.users
 userlist_$start=!sh cd $mul_userdir2; ls 2>/dev/null | head -$pack_size
 userlist_$start=!words2items $(userlist_$start)
 userlist_lastcnt=!itemcnt $(userlist_$start)
-!while $userlist_lastcnt>($pack_size-1)
+!while $userlist_lastcnt>$[$pack_size-1]
   !advance start
-  userlist_$start=!sh cd $mul_userdir2; ls 2>/dev/null | tail -n +$(start)001 | head -$pack_size
+  userlist_$start=!sh cd $mul_userdir2; ls 2>/dev/null | tail -n +$[$start*$pack_size+1] | head -$pack_size
   userlist_$start=!words2items $(userlist_$start)
   userlist_lastcnt=!itemcnt $(userlist_$start)
 !endwhile
 ## On supprime une eventuelle liste temporaire "userlist*.raw" dans chaque classe
 ## just junk
 !for c in $clist
- !sh rm -f $wims_home/log/classes/$c/.userlist.raw 2>/dev/null\
+  !sh rm -f $wims_home/log/classes/$c/.userlist.raw 2>/dev/null\
- rm -f $wims_home/log/classes/$c/.userlist_external.raw 2>/dev/null
+  rm -f $wims_home/log/classes/$c/.userlist_external.raw 2>/dev/null
 !next
 ## On parcourt nos paquets de $pack_size users
 !for N=0 to $start
- !for u in $(userlist_$N)
+  !for u in $(userlist_$N)
-  !reset user_firstname, user_lastname, user_supervisable,\
+    !reset user_firstname, user_lastname, user_supervisable,\
-	user_class, user_participate, user_exists, user_external_auth
+      user_class, user_participate, user_exists, user_external_auth
-  !readdef $mul_userdir/$u
+    !readdef $mul_userdir/$u
-!!TODO  better to make a special list for user_supervisable who participates
+    !!TODO  better to make a special list for user_supervisable who participates
-!!(suppress to add supervisor who are registered as participant to appear in userlist)
+    !!(suppress to add supervisor who are registered as participant to appear in userlist)
-  !if $user_exists=yes and $user_supervisable!=yes
+    !if $user_exists=yes and $user_supervisable!=yes
-   userline=:$user_lastname,$user_firstname,$u
+      userline=:$user_lastname,$user_firstname,$u
-   !reset userline_external
+      !reset userline_external
-   !if $user_external_auth!=$empty
+      !if $user_external_auth!=$empty
-     userline_external=$user_external_auth:$u
+        userline_external=$user_external_auth:$u
-   !endif
+      !endif
-   !if $typename=course
+      !if $typename=course
-    !readdef wimshome/log/classes/$uclass/.users/$u
+        !readdef wimshome/log/classes/$uclass/.users/$u
-    !if $user_class!=$empty
+        !if $user_class!=$empty
-     !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
+          !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline,$user_class
+          !if $userline_external!=$empty
+            !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
+          !endif
+        !endif
+      !else
+        !if $supclass=$uclass or $uclass isitemof $user_participate
+          !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline
-     !if $userline_external!=$empty
+          !if $userline_external!=$empty
-       !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
+            !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
+          !endif
+        !endif
+        ### do it for the $supclass ? could be done many times if not in a group ?
+        !if $supclass!=$uclass
+          !appendfile wimshome/log/classes/$supclass/.userlist.raw $userline
+          !if $userline_external!=$empty
+            !appendfile wimshome/log/classes/$supclass/.userlist_external.raw $userline_external
+          !endif
+          !if $class_lvl!=$empty and $class_lvl/ isin $user_participate
+            ## do it for the intermediaire class ? could be done many times
+            !appendfile wimshome/log/classes/$class_lvl/.userlist.raw $userline
+            !if $userline_external!=$empty
+              !appendfile wimshome/log/classes/$class_lvl/.userlist_external.raw $userline_external
+            !endif
+          !endif
+        !endif
-     !endif
+      !endif
     !endif
-   !else
-    !if $supclass=$uclass or $uclass isitemof $user_participate
-     !appendfile wimshome/log/classes/$uclass/.userlist.raw $userline
-     !if $userline_external!=$empty
-       !appendfile wimshome/log/classes/$uclass/.userlist_external.raw $userline_external
-     !endif
-   !endif
-### do it for the $supclass ? could be done many times
-    !if $supclass!=$uclass
-     !appendfile wimshome/log/classes/$supclass/.userlist.raw $userline
-     !if $userline_external!=$empty
-       !appendfile wimshome/log/classes/$supclass/.userlist_external.raw $userline_external
-     !endif
-     !if $class_lvl!=$empty and $class_lvl/ isin $user_participate
-##     do it for the intermediaire class ? could be done many times
-      !appendfile wimshome/log/classes/$class_lvl/.userlist.raw $userline
-       !if $userline_external!=$empty
-        !appendfile wimshome/log/classes/$class_lvl/.userlist_external.raw $userline_external
-       !endif
-     !endif
-    !endif
-   !endif
-  !endif
- !next u
+  !next u
 !next N
 basedir=$wims_home/log/classes
 basedir2=wimshome/log/classes
 !for c in $clist
-  !sh sort -f $basedir/$c/.userlist.raw >$basedir/$c/.userlist 2>/dev/null\
+  !sh sort -f $basedir/$c/.userlist.raw >$basedir/$c/.userlist 2>/dev/null
+  # \
-   rm -f $basedir/$c/.userlist.raw 2>/dev/null\
+  # rm -f $basedir/$c/.userlist.raw 2>/dev/null\
-   sort -f $basedir/$c/.userlist_external.raw > $basedir/$c/.userlist_external 2>/dev/null\
+  # sort -f $basedir/$c/.userlist_external.raw > $basedir/$c/.userlist_external 2>/dev/null\
-   rm -f $basedir/$c/.userlist_external.raw 2>/dev/null
+  # rm -f $basedir/$c/.userlist_external.raw 2>/dev/null
 !next
 ## Now the files .userlist and .userlist_external are created in the classes of $clist,
 ## so in the sup classes of $uclass. Do we need to do that (it is done many times for
 ## the portal ...
   !set nextuser=!rows2lines $nextuser
   !set nextuser=!replace internal , by : in $nextuser
   !writefile $basedir2/$c/.usernextlist.raw $nextuser
   !writefile $basedir2/$c/.userprevlist.raw $prevuser
   !sh mv $basedir/$c/.usernextlist.raw $basedir/$c/.usernextlist\
-   mv $basedir/$c/.userprevlist.raw $basedir/$c/.userprevlist
+    mv $basedir/$c/.userprevlist.raw $basedir/$c/.userprevlist
 !next c
 !exit
 !read adm/class/stat

Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/adm/class/mkuserlist – Rev 11038 → 11060