Rev 10617 | Rev 11939 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
| Rev | Author | Line No. | Line |
|---|---|---|---|
| 23 | reyssat | 1 | wims_exolog_limit=40 |
| 2 | wims_prefix=class user tmp n sharing sharable |
||
| 3 | wims_pfback=$wims_prefix |
||
| 4 | wims_writable=allow except |
||
| 5 | wims_nw=today empty nonew creatdays backdays warn |
||
| 5403 | bpr | 6 | !!## useful here to be able to read the error msg |
| 5402 | bpr | 7 | !read adm/class/classlang lang/names.phtml |
| 23 | reyssat | 8 | |
| 9 | !if $wims_user!=supervisor and $wims_ismanager<2 |
||
| 10 | error=not_supervisor |
||
| 11 | job= |
||
| 12 | !exit |
||
| 13 | !endif |
||
| 14 | |||
| 15 | !read adm/class/config.auth |
||
| 16 | !if $error!=$empty or $jobt=auth |
||
| 17 | job=$jobt |
||
| 18 | !exit |
||
| 19 | !endif |
||
| 20 | |||
| 10101 | bpr | 21 | |
| 10705 | guerimand | 22 | |
| 5194 | guerimand | 23 | !read adm/levelname.phtml |
| 5403 | bpr | 24 | !!## must be read again because $job could be not defined |
| 25 | !read adm/class/classlang lang/names.phtml |
||
| 23 | reyssat | 26 | wims_helper=chapter=3 |
| 10617 | guerimand | 27 | !readproc scripts/votemodel.proc |
| 28 | !if $votemodel=yes |
||
| 29 | sharelist=user,doc,exo,sheet,exam,forum,sup,motd,cdt,livret,seq |
||
| 30 | !else |
||
| 31 | sharelist=user,doc,exo,sheet,exam,forum,sup,motd,vote,cdt,livret,seq |
||
| 32 | !endif |
||
| 23 | reyssat | 33 | nosharelist=user,exo,sheet,exam |
| 34 | !read adm/class/limits |
||
| 35 | class_bgcolor=$wims_bgcolor |
||
| 36 | class_bgimg=$wims_bgimg |
||
| 37 | class_theme=$wims_theme |
||
| 1364 | bpr | 38 | class_theme_icon=$wims_theme_icon |
| 23 | reyssat | 39 | class_css=$wims_css |
| 2524 | bpr | 40 | class_ref_menucolor=$wims_ref_menucolor |
| 3064 | bpr | 41 | class_ref_button_bgcolor=$wims_ref_button_bgcolor |
| 42 | class_ref_button_color=$wims_ref_button_color |
||
| 43 | class_ref_button_help_bgcolor=$wims_ref_button_help_bgcolor |
||
| 44 | class_ref_button_help_color=$wims_ref_button_help_color |
||
| 23 | reyssat | 45 | today=!char 1 to 8 of $wims_now |
| 46 | !defread wimshome/log/classes/$wims_class/.def |
||
| 10705 | guerimand | 47 | joballowlist=list,arch,clean,security,grestrict,log,connect,\ |
| 48 | present,access,propagate,index,oefdefault,authtype,connectlink |
||
| 49 | !if $class_type!=2 |
||
| 50 | joballowlist=$joballowlist,neighbor |
||
| 51 | !endif |
||
| 52 | !bound job within $joballowlist default new |
||
| 10288 | bpr | 53 | du=!record 0 of wimshome/log/classes/$wims_class/.du |
| 54 | du=!word 1 of $du |
||
| 55 | du1=!char -3 to -1 of $du |
||
| 56 | du2=!char 1 to -4 of $du |
||
| 57 | du=$du2.$du1 |
||
| 23 | reyssat | 58 | !read tabletheme |
| 59 | |||
| 60 | !if $nonew=$empty |
||
| 61 | creation=$class_creation |
||
| 62 | !bound creation between integer 20010101 and $today default 20010101 |
||
| 63 | lastback=$class_backup |
||
| 64 | !default lastback=$creation |
||
| 65 | !bound lastback between integer 20010101 and $today default 20010101 |
||
| 66 | warn= |
||
| 67 | csec=!date -d '$creation' '+%s' |
||
| 68 | creatdays=$[floor(($wims_nowseconds-$csec)/(3600*24))] |
||
| 69 | !if $creatdays>340 |
||
| 70 | warn=$warn creation |
||
| 71 | !endif |
||
| 72 | lsec=!date -d '$lastback' '+%s' |
||
| 73 | backdays=$[floor(($wims_nowseconds-$lsec)/(3600*24))] |
||
| 74 | !bound backdays between integer 0 and 101 |
||
| 75 | !if $backdays>30 |
||
| 76 | warn=$warn backup |
||
| 77 | !endif |
||
| 2716 | bpr | 78 | !if ($backdays>7 or $warn!=$empty) and $job2!=import and $job!=log |
| 9368 | guerimand | 79 | !read $job.proc |
| 23 | reyssat | 80 | job=new |
| 81 | !endif |
||
| 82 | nonew=yes |
||
| 83 | !endif |
||
| 84 | |||
| 85 | wims_module_log=$job $job2 $wims_class |
||
| 9368 | guerimand | 86 | |
| 23 | reyssat | 87 | !read $job.proc |