Subversion Repositories wimsdev

wims_exolog_limit=40

wims_prefix=class user tmp n sharing sharable

wims_pfback=$wims_prefix

wims_writable=allow except

wims_nw=today empty nonew creatdays backdays warn

!!## useful here to be able to read the error msg

!read adm/class/classlang lang/names.phtml

!if $wims_user!=supervisor and $wims_ismanager<2

 error=not_supervisor

 job=

 !exit

!endif

!read adm/class/config.auth

!if $error!=$empty or $jobt=auth

 job=$jobt

 !exit

!endif

!read adm/levelname.phtml

!!## must be read again because $job could be not defined

!read adm/class/classlang lang/names.phtml

wims_helper=chapter=3

!readproc scripts/votemodel.proc

!if $votemodel=yes

 sharelist=user,doc,exo,sheet,exam,forum,sup,motd,cdt,livret,seq,userphoto

!else

 sharelist=user,doc,exo,sheet,exam,forum,sup,motd,vote,cdt,livret,seq,userphoto

!endif

!if $wims_superclass!=$empty

 sharelist=!listcomplement userphoto in $sharelist

!endif

nosharelist=user,exo,sheet,exam

!read adm/class/limits

class_bgcolor=$wims_bgcolor

class_bgimg=$wims_bgimg

class_theme=$wims_theme

class_theme_icon=$wims_theme_icon

class_css=$wims_css

class_ref_menucolor=$wims_ref_menucolor

class_ref_button_bgcolor=$wims_ref_button_bgcolor

class_ref_button_color=$wims_ref_button_color

class_ref_button_help_bgcolor=$wims_ref_button_help_bgcolor

class_ref_button_help_color=$wims_ref_button_help_color

today=!char 1 to 8 of $wims_now

!defread wimshome/log/classes/$wims_class/.def

joballowlist=list,arch,clean,security,grestrict,log,connect,\

    present,access,propagate,index,oefdefault,authtype,connectlink

!if $class_type!=2

 joballowlist=$joballowlist,neighbor

!endif

!bound job within $joballowlist default new

du=!record 0 of wimshome/log/classes/$wims_class/.du

du=!word 1 of $du

du1=!char -3 to -1 of $du

du2=!char 1 to -4 of $du

!default du2=0

du=$du2.$du1

!read tabletheme

!if $nonew=$empty

 creation=$class_creation

 !bound creation between integer 20010101 and $today default 20010101

 lastback=$class_backup

 !default lastback=$creation

 !bound lastback between integer 20010101 and $today default 20010101

 warn=

 csec=!date -d '$creation' '+%s'

 creatdays=$[floor(($wims_nowseconds-$csec)/(3600*24))]

 !if $creatdays>340

  warn=$warn creation

 !endif

 lsec=!date -d '$lastback' '+%s'

 backdays=$[floor(($wims_nowseconds-$lsec)/(3600*24))]

 !bound backdays between integer 0 and 101

 !if $backdays>30

  warn=$warn backup

 !endif

 !if ($backdays>7 or $warn!=$empty) and $job2!=import and $job!=log

  !read $job.proc

  job=new

 !endif

 nonew=yes

!endif

wims_module_log=$job $job2 $wims_class

!read $job.proc