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 |
|
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 |
|
32 | job=home |
- | 33 | error=bad_code |
|
18 |
|
34 | coder= |
19 |
|
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. |
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. |
43 | !writefile wimshome/$wims_sesdir/doc.$module_language.readable $eddoc |
24 | !read $job.proc |
44 | !read $job.proc |
- | 45 | !exit |
|
25 | 46 | !endif |