Rev 9480 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9480 | Rev 12490 | ||
|---|---|---|---|
| Line 4... | Line 4... | ||
| 4 | !if $noedit!=yes |
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=!line 1 of $secret |
| 8 | secret=!word 1 of $secret |
8 | secret=!word 1 of $secret |
| 9 | !if $secret!=$coder |
9 | !if $secret!=$coder |
| 10 | job=home |
10 | job=home |
| 11 | error=bad_code |
11 | error=bad_code |
| 12 | coder= |
12 | coder= |
| 13 | !read home.proc |
13 | !read home.proc |
| 14 | !exit |
14 | !exit |
| 15 | !endif |
15 | !endif |
| 16 | coder= |
16 | coder= |
| 17 | job=$jobsave |
17 | job=$jobsave |
| 18 | editable=yes |
18 | editable=yes |
| 19 | eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.editable |
19 | eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.editable |
| 20 | eddoc=$eddoc $doc |
20 | eddoc=$eddoc $doc |
| 21 | !writefile wimshome/$wims_sesdir/doc.$module_language.editable $eddoc |
21 | !writefile wimshome/$wims_sesdir/doc.$module_language.editable $eddoc |
| 22 | !read $job.proc |
22 | !read $job.proc |
| 23 | !exit |
23 | !exit |
| 24 | !endif |
24 | !endif |
| 25 | 25 | ||
| 26 | !if $noedit=yes |
26 | !if $noedit=yes |
| 27 | coder=!text select $namechars in $coderr |
27 | coder=!text select $namechars in $coderr |
| 28 | secret=!record 0 of $docdir/$doc/.code |
28 | secret=!record 0 of $docdir/$doc/.code |
| 29 | secret=!line 2 of $secret |
29 | secret=!line 2 of $secret |
| 30 | secret=!word 1 of $secret |
30 | secret=!word 1 of $secret |
| 31 | !if $secret!=$coder |
31 | !if $secret!=$coder |
| 32 | job=home |
32 | job=home |
| 33 | error=bad_code |
33 | error=bad_code |
| 34 | coder= |
34 | coder= |
| 35 | !read home.proc |
35 | !read home.proc |
| 36 | !exit |
36 | !exit |
| 37 | !endif |
37 | !endif |
| 38 | coder= |
38 | coder= |
| 39 | job=$jobsave |
39 | job=$jobsave |
| 40 | editable=no |
40 | editable=no |
| 41 | eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.readable |
41 | eddoc=!record 0 of wimshome/$wims_sesdir/doc.$module_language.readable |
| 42 | eddoc=$eddoc $doc |
42 | eddoc=$eddoc $doc |
| 43 | !writefile wimshome/$wims_sesdir/doc.$module_language.readable $eddoc |
43 | !writefile wimshome/$wims_sesdir/doc.$module_language.readable $eddoc |
| 44 | !read $job.proc |
44 | !read $job.proc |
| 45 | !exit |
45 | !exit |
| 46 | !endif |
46 | !endif |