Subversion Repositories wimsdev

Rev

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

Rev 12159 Rev 12161
Line 11... Line 11...
11
  Userdef=!replace wimshome/ by $wims_home/ in $userdef
11
  Userdef=!replace wimshome/ by $wims_home/ in $userdef
12
  test=!defof user_exists in $userdef
12
  test=!defof user_exists in $userdef
13
  !if $test=yes
13
  !if $test=yes
14
    erased=!replace internal .users/ by .users/. in $Userdef
14
    erased=!replace internal .users/ by .users/. in $Userdef
15
    !sh mv -f $Userdef $erased 2>/dev/null
15
    !sh mv -f $Userdef $erased 2>/dev/null
16
    !read adm/class/global_vars.def
16
    folder_list=!defof USER_DIR_LIST in wimshome/public_html/bases/sys/define.conf
17
    !for folder in $user_dir_list
17
    !for folder in $folder_list
18
      !sh for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu.*'`; do \
18
      !sh for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu.*'`; do \
19
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done\
19
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done\
20
       for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu'`; do \
20
       for a in `find $wims_home/log/classes/$delu_class/$folder -name '$uu'`; do \
21
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done
21
        aa=`echo $$a | sed -e "s/$uu/.$uu/"`; mv -f $$a $$aa; done
22
    !next
22
    !next