Subversion Repositories wimsdev

Rev

Rev 9480 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1 
 
2 
!default jobsave=read
3 
!default block=main
9480 bpr 4 
!if $noedit!=yes
12490 bpr 5 
  coder=!text select $namechars in $coder
6 
  secret=!record 0 of $docdir/$doc/.code
7 
  secret=!line 1 of $secret
8 
  secret=!word 1 of $secret
9 
  !if $secret!=$coder
10 
    job=home
11 
    error=bad_code
12 
    coder=
13 
    !read home.proc
14 
    !exit
15 
  !endif
9480 bpr 16 
  coder=
17 
  job=$jobsave
18 
  editable=yes
19 
  eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.editable
20 
  eddoc=$eddoc $doc
21 
  !writefile wimshome/$wims_sesdir/doc.$module_language.editable $eddoc
22 
  !read $job.proc
12490 bpr 23 
  !exit
23 reyssat 24 
!endif
25 
 
9480 bpr 26 
!if $noedit=yes
12490 bpr 27 
  coder=!text select $namechars in $coderr
28 
  secret=!record 0 of $docdir/$doc/.code
29 
  secret=!line 2 of $secret
30 
  secret=!word 1 of $secret
31 
  !if $secret!=$coder
32 
    job=home
33 
    error=bad_code
34 
    coder=
35 
    !read home.proc
36 
    !exit
37 
  !endif
9480 bpr 38 
  coder=
39 
  job=$jobsave
40 
  editable=no
41 
  eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.readable
42 
  eddoc=$eddoc $doc
43 
  !writefile wimshome/$wims_sesdir/doc.$module_language.readable $eddoc
44 
  !read $job.proc
12490 bpr 45 
  !exit
23 reyssat 46 
!endif