Subversion Repositories wimsdev

Rev

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

Rev 11222 Rev 12159
Line 1... Line 1...
1 
!if $getuser!=$empty
 1 
!if $getuser!=$empty
2 
!!FIXME does it work for a portal ?
 2 
  !!FIXME does it work for a portal ?
3 
!! move all files directory related to getuser
 3 
  !! move all files directory related to getuser
4 
 !sh cd $wims_home/$userdir; mv -f .$getuser $getuser 2>/dev/null\
 4 
  !sh cd $wims_home/$userdir; mv -f .$getuser $getuser 2>/dev/null
- 
 
 5 
  !read adm/class/global_vars.def
- 
 
 6 
  !for folder in $user_dir_list
5 
   cd $wims_home; for a in `find $sclassdir -name '.$getuser.*'`; do \
 7 
    !sh cd $wims_home; for a in `find $sclassdir/$folder -name '.$getuser.*'`; do \
6 
      aa=`echo $$a | sed -e "s/.$getuser/$getuser/"`; mv -f $$a $$aa; done\
 8 
          aa=`echo $$a | sed -e "s/.$getuser/$getuser/"`; mv -f $$a $$aa; done\
7 
     for a in `find $sclassdir -name '.$getuser'`; do \
 9 
        for a in `find $sclassdir/$folder -name '.$getuser'`; do \
8 
      aa=`echo $$a | sed -e "s/.$getuser/$getuser/"`; mv -f $$a $$aa; done
 10 
          aa=`echo $$a | sed -e "s/.$getuser/$getuser/"`; mv -f $$a $$aa; done
- 
 
 11 
  !next
- 
 
 12 
 
9 
 !read adm/class/mkuserlist
 13 
  !read adm/class/mkuserlist
10 
 !read adm/class/stat
 14 
  !read adm/class/stat
11 
 !defread wimshome/$userdir/$getuser
 15 
  !defread wimshome/$userdir/$getuser
12 
 job=userlist
 16 
  job=userlist
13 
 lastname=$user_lastname
 17 
  lastname=$user_lastname
14 
 firstname=$user_firstname
 18 
  firstname=$user_firstname
15 
 wims_module_log=recover $getuser
 19 
  wims_module_log=recover $getuser
16 
 wims_class_log=Recover user $getuser by $wims_realuser
 20 
  wims_class_log=Recover user $getuser by $wims_realuser
17 
 !restart module=adm/class/usermanage
 21 
  !restart module=adm/class/usermanage
18 
!endif
 22 
!endif
19 
 
 23 
 
20 
del=!sh cd $wims_home/$userdir; ls .[a-zA-Z0-9]* 2>/dev/null
 24 
del=!sh cd $wims_home/$userdir; ls .[a-zA-Z0-9]* 2>/dev/null
21 
del=!words2items $del
 25 
del=!words2items $del
22 
 
 26 
 
23 
deleted=
 27 
deleted=
24 
!for i in $del
 28 
!for i in $del
25 
 j=!translate / to , in $i
 29 
  j=!translate / to , in $i
26 
 j=!item -1 of $j
 30 
  j=!item -1 of $j
27 
 c=!char 1 of $j
 31 
  c=!char 1 of $j
28 
 !if $c=.
 32 
  !if $c=.
29 
  j=!char 2 to -1 of $j
 33 
    j=!char 2 to -1 of $j
30 
  deleted=!append item $j to $deleted
 34 
    deleted=!append item $j to $deleted
31 
 !endif
 35 
  !endif
32 
!next i
 36 
!next i
33 
delcnt=!itemcnt $deleted
 37 
delcnt=!itemcnt $deleted
34 
 
 -