Subversion Repositories wimsdev

Rev

Rev 2286 | Go to most recent revision | 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
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
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
23 reyssat 23 
 !exit
24 
!endif
25 
 
9480 bpr 26 
!if $noedit=yes
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
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
45 
 !exit
23 reyssat 46 
!endif