Subversion Repositories wimsdev

limit_class=300
!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
    cnt_=!sh cd $wims_home/backup/oldclasses/$j; find . -maxdepth 1 -type f | wc -l | awk '{print $1}'
    !if $cnt_ < $limit_class
      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)
      listclass$j=!sort numeric items $(listclass$j)
      cnt_=!itemcnt $(listclass$j)
    !else
      listclass$j=toomuch
    !endif
    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
    !if $class=$empty
      !if $clrestore1=$empty
        error=noclass
        !exit
      !else
        class=$clrestore1
        class=!text select 1234567890 in $class
        !if $class=$empty
          error=noclass
          !exit
        !endif
      !endif
    !endif
    test=!sh cd $wims_home/backup/oldclasses/$year; ls $class.tgz
    !if $test!=$class.tgz
      error=classnotexists
      !exit
    !endif
    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 backuprestore; mv backup/oldclasses/$year/$class.tgz backuprestore
    !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