Subversion Repositories wimsdev

Rev

Rev 2286 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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