Subversion Repositories wimsdev

# RestoreClassBackup job

# Restore a backup of the class with id=`qclass` saved at year `data1`.

!read jobs/listclassbackups.proc

!if $qclass = *

  error=You must specify one class ID to restore.

  !exit

!endif

!! backup_year is mandatory

!if $backup_year = $empty

  error=wrong or empty backup year in data1 ($backup_year)

  !exit

!endif

!if $cnt <= 0

  error=No backup available for class $qclass on year $backup_year.

  !exit

!endif

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

test=!sh cd $wims_home\

cp backup/oldclasses/$backup_year/$qclass.tgz log/classes/\

cd $wims_home/log/classes/\

if [ ! `ls -d $qclass | wc -c` -eq 0 ] ; then echo "already existing class id $qclass; nothing was done." ; exit ; fi ;\

tar xzf $qclass.tgz\

perl -np -i -e "s:class_expiration=.*:class_expiration=$date:g" $qclass/.def\

rm $qclass.tgz\

cd $wims_home; mkdir -p backuprestore/$backup_year; mv backup/oldclasses/$backup_year/$qclass.tgz backuprestore/$backup_year

!if $test!=$empty

  error=$test

  !reset test

  !sh cd $wims_home/log/classes/ ; rm -f $qclass.tgz

!endif