Subversion Repositories wimsdev

!if $stepcl=$empty

  listyear=!listfile -t $wims_home/backup/oldclasses

  !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