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