Subversion Repositories wimsdev

!if $getuser!=$empty

  !!FIXME does it work for a portal ?

  !! move all files directory related to getuser

  !sh cd $wims_home/$userdir; mv -f .$getuser $getuser 2>/dev/null

  folder_list=!defof USER_DIR_LIST in wimshome/public_html/bases/sys/define.conf

  !for folder in $folder_list

    !sh cd $wims_home; for a in `find $sclassdir/$folder -name '.$getuser.*'`; do \

          aa=`echo $$a | sed -e "s/.$getuser/$getuser/"`; mv -f $$a $$aa; done\

        for a in `find $sclassdir/$folder -name '.$getuser'`; do \

          aa=`echo $$a | sed -e "s/.$getuser/$getuser/"`; mv -f $$a $$aa; done

  !next

  !read adm/class/mkuserlist

  !read adm/class/stat

  !defread wimshome/$userdir/$getuser

  job=userlist

  lastname=$user_lastname

  firstname=$user_firstname

  wims_module_log=recover $getuser

  wims_class_log=Recover user $getuser by $wims_realuser

  !restart module=adm/class/usermanage

!endif

del=!sh cd $wims_home/$userdir; ls .[a-zA-Z0-9]* 2>/dev/null

del=!words2items $del

deleted=

!for i in $del

  j=!translate / to , in $i

  j=!item -1 of $j

  c=!char 1 of $j

  !if $c=.

    j=!char 2 to -1 of $j

    deleted=!append item $j to $deleted

  !endif

!next i

delcnt=!itemcnt $deleted