Rev 15998 | Rev 17809 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
#! /bin/sh
# Home directory of wims.
cd `dirname $0`/..
WIMS_HOME=`pwd`
today=`date '+%Y%m%d'`
weekday=`date '+%w'`
thisyear=`date '+%Y'`
site_hostname=`awk -F'=' '$1=="site_hostname" {print $2; exit}' $WIMS_HOME/log/wims.conf`
if [ -z $site_hostname ]; then
site_hostname=`hostname`
fi
# Forum management
cd log/forums
./.build-index
cd $WIMS_HOME
if [ "$site_accounting" = "yes" ]; then bin/account.sh; fi
sleep 10
cd $WIMS_HOME
# TeX pictures and fonts since 90 days: atime can no longer be used.
find public_html/w/instex -name '*.gif' -mtime +90 -exec rm '{}' ';' 2>/dev/null
find public_html/w/instex -type d -empty -exec rm '{}' 2>/dev/null \;
find public_html/w/texgif -name '*.font' -mtime +90 -exec rm '{}' ';' 2>/dev/null
# Clean tmp directory
find tmp -maxdepth 1 -type f -mtime +2 -exec rm '{}' ';' 2>/dev/null
find tmp/forall -mindepth 1 -mtime +2 -exec rm '{}' ';' 2>/dev/null
mkdir -p tmp/forall
chmod a+rwx tmp/forall
# clean tmp/whoconnect
rm -rf tmp/whoconnect 2>/dev/null
mkdir -p tmp/whoconnect
# Any classes which will expire in one month ?
cd $WIMS_HOME/log/classes
for cls in [0-9]*
do
exp=`awk -F'=' '$1=="!set class_expiration" {print $2; exit}' $cls/.def`
# exp is the expiration date minus one month (-100 if the month is different
# from january , -8900 else)
exp1=`expr "$exp" : "....\(.*\).."`;
if [ "$exp1" -eq "01" ]; then exp=`expr $exp - 8900`; else exp=`expr $exp - 100`; fi
if [ "$exp" -eq "$today" ]; then
email=`awk -F'=' '$1=="!set class_email" {print $2; exit}' $cls/.def`
inst=`awk -F'=' '$1=="!set class_institution" {print $2; exit}' $cls/.def`
desc=`awk -F'=' '$1=="!set class_description" {print $2; exit}' $cls/.def`
mail $w_mail_opt -s "WIMS virtual class will expire in 30 days" "$email" <<@
You have created a virtual class
$inst, $desc
(code $cls) on the site $site_hostname. This class will be closed in
one month because it will reach its expiration date.
You should download a archive file of your class and
upload its content or part of it into another class.
To get an archive file of the contents of this class, follow this link :
--- WIMS (WWW Interactive Multipurpose Server)
http://$site_hostname/wims/wims.cgi?module=adm/class/classes&+type=authsupervisor&+class=$cls
@
echo "$today housekeep class-advertising $cls: $email" >>$WIMS_HOME/log/mail.log
fi
done
# Any expired classes?
cd $WIMS_HOME/log/classes
for cls in [0-9]*
do
exp=`awk -F'=' '$1=="!set class_expiration" {print $2; exit}' $cls/.def`
if [ -z "$exp" ] || [ "$exp" -lt "$today" ]; then
email=`awk -F'=' '$1=="!set class_email" {print $2; exit}' $cls/.def`
inst=`awk -F'=' '$1=="!set class_institution" {print $2; exit}' $cls/.def`
desc=`awk -F'=' '$1=="!set class_description" {print $2; exit}' $cls/.def`
mail $w_mail_opt -s "WIMS virtual class expired" "$email" <<@
You have created a virtual class
$inst, $desc
(code $cls) on the site $site_hostname. This class is now closed,
because it has reached its expiration date.
The complete registry of this class (user list and activity history)
is stored in an archive file, which can be sent to you upon request
to the webmaster of this site.
--- WIMS (WWW Interactive Multipurpose Server)
http://$site_hostname/
@
echo "$today housekeep class-expire $cls: $email" >>$WIMS_HOME/log/mail.log
rm -R $cls/.parmreg >/dev/null 2>&1
if [ -d $WIMS_HOME/log/ccaccount/$cls ]; then
tar -cf $cls/account.tar -C $WIMS_HOME/log ccaccount/$cls 2>/dev/null
rm -R $WIMS_HOME/log/ccaccount/$cls 2>/dev/null
fi
mkdir -p $WIMS_HOME/backup/oldclasses/$thisyear
tar -czf $WIMS_HOME/backup/oldclasses/$thisyear/$cls.tgz $cls
rm -R $cls >/dev/null 2>&1
# clean resource sharing links
find . -maxdepth 2 -type l -lname '*/$cls/*' -exec rm '{}' \;
fi
done
# Clean up remaining classes.
## the number of exams is the number of sessions exams.
examlog_lim2=`awk -F'=' '$1=="examlog_limit" {print $2; exit}' $WIMS_HOME/log/wims.conf`
if [ -z $examlog_lim2 ]; then
examlog_lim2=`awk -F'=' '$1=="DF_examlog_limit" {print $2; exit}' $WIMS_HOME/public_html/bases/sys/defaults.conf`
fi
examlog_lim2=$(expr $examlog_lim2 + 1)
cd $WIMS_HOME/log/classes
find . -path '*/.parmreg/*' -type f -exec rm -f '{}' \;
for l in `find . -name examlog -type d`; do
for d in $l/*; do
list=`ls -dt $d/* | tail -n +$examlog_lim2`
if [ -n "$list" ]; then rm -Rf $list; fi
done
done
# is the class number limit or the user number limit reached ?
# do it each 01 of month !
today1=`date +%d`
if [ "$today1" -eq "01" ]; then
cd $WIMS_HOME/log/classes
site_manager=`awk -F'=' '$1=="site_manager" {print $2; exit}' $WIMS_HOME/log/wims.conf`
user_limit=`awk -F'=' '$1=="user_limit" {print $2; exit}' $WIMS_HOME/log/wims.conf`
if [ -z $user_limit ]; then
user_limit=`awk -F'=' '$1=="DF_user_limit" {print $2; exit}' $WIMS_HOME/public_html/bases/sys/defaults.conf`
fi
class_limit=`awk -F'=' '$1=="class_limit" {print $2; exit}' $WIMS_HOME/log//wims.conf`
if [ -z $class_limit ]; then
class_limit=`awk -F'=' '$1=="DF_class_limit" {print $2; exit}' $WIMS_HOME/public_html/bases/sys/defaults.conf`
fi
nclass=`cat .index | wc -l`
cl=`awk -F, 'NF>2 {print substr($1,2) "/.userlist"}' .index`
nuser=`cat $cl | grep -c '^:'`
if [ $class_limit -lt $nclass ] || [ $user_limit -lt $nuser ] ; then
mail $w_mail_opt -s "WIMS virtual class limit" "$site_manager" <<@
The server WIMS has reached the limit of classes.
@
echo "$today housekeep class_limit or user_limit: $email" >>$WIMS_HOME/log/mail.log
fi
fi
# delete .anonymous in example classes
cd $WIMS_HOME/log/classes
clist=`ls -d [1-9][0-9][0-9][0-9]`
for cls in $clist; do
rm -f $cls/motd/.anonymous 2>/dev/null
done
# calculate the size of the classes
cd $WIMS_HOME/log/classes
for cls in [0-9]*
do
du -ks $cls > $cls/.du
done;
# cleanup the *.bin in score
cd $WIMS_HOME/log/classes
find . -type f -name "*.bin" -exec rm -v "{}" ";" 1>/dev/null
## enlever les scoreavg aussi
# check if all compulsory directories are here (only in non example classes)
cd $WIMS_HOME/log/classes
list=`find [0-9][0-9][0-9][0-9][0-9]* -maxdepth 0 -type d` ;
for s in $list ; do
for d in .users sheets exams doc score noscore vote cdt src def livret seq tool ; do
mkdir -p $s/$d
done
done
# Sheet expiration management. This should be activated during summer vacation.
for s in `find . -path '*/sheets/.sheets' -type f`; do
# quick test : any sheet to expire now ?
test=`awk 'BEGIN {a=0};
a==1 {a=0; if($1<'$today' && b==1) {print "Z"; exit}}
substr($1,1,1)==":" {a=1;b=substr($1,2,1)};' $s`
# if test then change status code to 2 for sheets to expire
# in temporary file, then overwrite old file with new one
if [ ! -z "$test" ]; then
awk 'BEGIN {a=0; v=0};
a==1 {a=0; if($1>='$today' || v!=1) {print t} else {print ":2"};}
substr($1,1,1)!=":" {print};
substr($1,1,1)==":" {a=1; t=$1; v=substr(t,2)};' $s >.sheets
mv -f .sheets $s
fi
done
# Sequence auto hide/show management.
#for s in `find . -path '*/seq/.sequence[0-9]*' -type f`; do
# quick test : any sequence to hide now ?
# test=`sed -n 5p $s`
# if [ "$today" = "$test" ]; then
# awk 'BEGIN {cpt=0};
# {a+=1; if(a==4) {print "0"} else {print $0};}' $s >.tmp
# mv -f .tmp $s
# fi
# quick test : any sequence to show now ?
# test=`sed -n 6p $s`
# if [ "$today" = "$test" ]; then
# awk 'BEGIN {cpt=0};
# {a+=1; if(a==4) {print "1"} else {print $0};}' $s >.tmp
# mv -f .tmp $s
# fi
#done
# Build class index file
rm -f .lockindex
./.build-index
##destroy the oldclasses which have been expired since more than $backup_delete days
## if backup_delete has a numeric value all the first day of months
cd $WIMS_HOME
backup_delete=`awk -F'=' '$1=="backup_delete" {print $2; exit}' $WIMS_HOME/log/wims.conf`
if [ "$backup_delete" ]; then
if test "$backup_delete" -eq "$backup_delete" 2>/dev/null; then
today1=`date +%d`
if [ "$today1" -eq "01" ]; then
find $WIMS_HOME/backup/oldclasses/[0-9]* -mtime +$backup_delete -exec rm '{}' ';' 2>/dev/null
find $WIMS_HOME/backup2/oldclasses/[0-9]* -mtime +$backup_delete -exec rm '{}' ';' 2>/dev/null
find $WIMS_HOME/backuprestore/oldclasses/[0-9]* -mtime +$backup_delete -exec rm '{}' ';' 2>/dev/null
fi
fi
fi
cd $WIMS_HOME/log
if [ -d ccaccount ]; then
for c in `cd ccaccount; ls -d [0-9]* 2>/dev/null`; do
if [ ! -d classes/$c ]; then rm -rf ccaccount/$c; fi
done
fi
#
rm -f $WIMS_HOME/public_html/scripts/model/*/list
# make stat of server
$WIMS_HOME/bin/statserver.sh
# possible local housekeeping script
cd $WIMS_HOME
[ -x log/housekeep.local ] && log/housekeep.local