Subversion Repositories wimsdev

!if $stepcl=$empty
  listyear=!listfile -t $wims_home/backup/oldclasses
  listyear=!lines2items $listyear
  listyear=!words2items $listyear
  !if $listyear=$empty
    error=noyear
    !exit
  !endif
  !set cnt=0
  !for j in $listyear
    listclass$j=!listfile -t $wims_home/backup/oldclasses/$j/*.tgz
    listclass$j=!replace internal .tgz by in $(listclass$j)
    listclass$j=!replace internal $wims_home/backup/oldclasses/$j/ by in $(listclass$j)
    listclass$j=!words2items $(listclass$j)
    cnt_=!itemcnt $(listclass$j)
    cnt=$[$cnt_+$cnt]
  !next
!else
  !if $clrestore=$empty
    error=noclass
    !reset stepcl test
    !exit
  !endif
  !if $stepcl=1
    date=!char 1 to 8 of $wims_now
    month=!char 5 to 6 of $date
    !if $month=12
      date=$[$date+10000 - 1100]
    !else
      date=$[$date+100]
    !endif
    class=!replace internal _ by , in $clrestore
    !distribute item $class into year,class
    class=!nospace $class
    test=!sh cd $wims_home\
    cp backup/oldclasses/$year/$class.tgz log/classes/\
    cd $wims_home/log/classes/\
    if [ ! `ls -d $class | wc -c` -eq 0 ] ; then echo "class already existing; nothing is done" ; exit ; fi ;\
    tar xzf $class.tgz\
    perl -np -i -e "s:class_expiration=.*:class_expiration=$date:g" $class/.def\
    rm $class.tgz\
    cd $wims_home; mkdir -p backup2; mv backup/oldclasses/$year/$class.tgz backup2
    !if $test!=$empty
      error=$test
      !reset test stepcl
      !sh cd $wims_home/log/classes/ ; rm -f $class.tgz
      !exit
    !else
      !increase stepcl
    !endif
  !endif
!endif