Rev 10101 | Rev 10617 | 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 | |||
| 21 | !bound job within list,arch,clean,security,grestrict,log,neighbor,\ |
||
| 10101 | bpr | 22 | connect,present,access,propagate,index,oefdefault,authtype,\ |
| 23 | connectlink default new |
||
| 24 | |||
| 5194 | guerimand | 25 | !read adm/levelname.phtml |
| 5403 | bpr | 26 | !!## must be read again because $job could be not defined |
| 27 | !read adm/class/classlang lang/names.phtml |
||
| 23 | reyssat | 28 | wims_helper=chapter=3 |
| 1407 | bpr | 29 | sharelist=user,doc,exo,sheet,exam,forum,sup,motd,vote,cdt,livret,seq |
| 23 | reyssat | 30 | nosharelist=user,exo,sheet,exam |
| 31 | !read adm/class/limits |
||
| 32 | class_bgcolor=$wims_bgcolor |
||
| 33 | class_bgimg=$wims_bgimg |
||
| 34 | class_theme=$wims_theme |
||
| 1364 | bpr | 35 | class_theme_icon=$wims_theme_icon |
| 23 | reyssat | 36 | class_css=$wims_css |
| 2524 | bpr | 37 | class_ref_menucolor=$wims_ref_menucolor |
| 3064 | bpr | 38 | class_ref_button_bgcolor=$wims_ref_button_bgcolor |
| 39 | class_ref_button_color=$wims_ref_button_color |
||
| 40 | class_ref_button_help_bgcolor=$wims_ref_button_help_bgcolor |
||
| 41 | class_ref_button_help_color=$wims_ref_button_help_color |
||
| 23 | reyssat | 42 | today=!char 1 to 8 of $wims_now |
| 43 | !defread wimshome/log/classes/$wims_class/.def |
||
| 10288 | bpr | 44 | du=!record 0 of wimshome/log/classes/$wims_class/.du |
| 45 | du=!word 1 of $du |
||
| 46 | du1=!char -3 to -1 of $du |
||
| 47 | du2=!char 1 to -4 of $du |
||
| 48 | du=$du2.$du1 |
||
| 23 | reyssat | 49 | !read tabletheme |
| 50 | |||
| 51 | !if $nonew=$empty |
||
| 52 | creation=$class_creation |
||
| 53 | !bound creation between integer 20010101 and $today default 20010101 |
||
| 54 | lastback=$class_backup |
||
| 55 | !default lastback=$creation |
||
| 56 | !bound lastback between integer 20010101 and $today default 20010101 |
||
| 57 | warn= |
||
| 58 | csec=!date -d '$creation' '+%s' |
||
| 59 | creatdays=$[floor(($wims_nowseconds-$csec)/(3600*24))] |
||
| 60 | !if $creatdays>340 |
||
| 61 | warn=$warn creation |
||
| 62 | !endif |
||
| 63 | lsec=!date -d '$lastback' '+%s' |
||
| 64 | backdays=$[floor(($wims_nowseconds-$lsec)/(3600*24))] |
||
| 65 | !bound backdays between integer 0 and 101 |
||
| 66 | !if $backdays>30 |
||
| 67 | warn=$warn backup |
||
| 68 | !endif |
||
| 2716 | bpr | 69 | !if ($backdays>7 or $warn!=$empty) and $job2!=import and $job!=log |
| 9368 | guerimand | 70 | !read $job.proc |
| 23 | reyssat | 71 | job=new |
| 72 | !endif |
||
| 73 | nonew=yes |
||
| 74 | !endif |
||
| 75 | |||
| 76 | wims_module_log=$job $job2 $wims_class |
||
| 9368 | guerimand | 77 | |
| 23 | reyssat | 78 | !read $job.proc |