Rev 1499 | Rev 4955 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
23 | reyssat | 1 | |
2 | !bound copyrightr within gnu,opl,private default gnu |
||
3 | !if class != $doctype |
||
4 | !bound docopenr within yes, no default no |
||
5 | !else |
||
6 | !if $wims_user!=supervisor |
||
7 | !goto end |
||
8 | !endif |
||
9 | !bound docopenr within 0,1,2 default 0 |
||
10 | !endif |
||
11 | titr=!detag $titr |
||
12 | titr=!translate internal !$$ to $ $ in $titr |
||
13 | titr=!singlespace $titr |
||
14 | titr=!char 1 to $titlim of $titr |
||
15 | titr=!trim $titr |
||
16 | authorr=!translate internal !$$ to $ $ in $authorr |
||
17 | authorr=!singlespace $authorr |
||
18 | authorr=!char 1 to $titlim of $authorr |
||
19 | authorr=!trim $authorr |
||
20 | emailr=!translate internal !$$ to $ $ in $emailr |
||
21 | emailr=!word 1 of $emailr |
||
22 | emailr=!char 1 to $titlim of $emailr |
||
1499 | bpr | 23 | descr=!translate internal $ \ |
24 | $ to $ $ in $descr |
||
25 | descr=!trim $descr |
||
23 | reyssat | 26 | !if $emailr!=$empty |
27 | etest=!translate @ to , in $emailr |
||
28 | etes2=!translate @ to $ $ in $emailr |
||
29 | ecnt=!itemcnt $etest |
||
30 | ecnt2=!wordcnt $etes2 |
||
31 | !distribute items $etest into e1,e2 |
||
32 | !if $ecnt!=2 or $ecnt2!=2 or . notin $e2 |
||
33 | error=bad_email |
||
34 | !exit |
||
35 | !endif |
||
36 | !endif |
||
37 | dl=!words2items $dlangr |
||
38 | dlangr= |
||
39 | !for l in $dl |
||
40 | l=!lower $l |
||
41 | l=!text select abcdefghijklmnopqrstuvwxyz in $l |
||
42 | n=!charcnt $l |
||
43 | !ifval $n=2 or $l=all |
||
44 | dlangr=$dlangr $l |
||
45 | !endif |
||
46 | !next l |
||
47 | dlangr=!trim $dlangr |
||
48 | !default dlangr=all |
||
49 | headerr=!translate internal $ \ |
||
50 | $ to $ $ in $headerr |
||
51 | |||
52 | !if $titr=$empty |
||
53 | error=no_tit |
||
54 | !exit |
||
55 | !endif |
||
56 | |||
57 | !if $authorr=$empty |
||
58 | error=no_author |
||
59 | !exit |
||
60 | !endif |
||
61 | |||
62 | !if class != $doctype |
||
63 | otest=!lower $titr $authorr |
||
64 | otest=!singlespace $otest |
||
65 | otest=!deaccent $otest |
||
66 | otest=!text select $ $namechars in $otest |
||
67 | translator_unknown= |
||
68 | dictionary=bases/sys/abuse.$module_language |
||
69 | otest=!exec translator $otest |
||
70 | !if abuse isin $otest |
||
71 | error=abuse |
||
72 | !exit |
||
73 | !endif |
||
74 | !endif |
||
75 | |||
76 | !mexec scripts/mkdocdir.sh |
||
77 | |||
78 | !writefile $docdir/$doc/.def tit=$titr\ |
||
79 | author=$authorr\ |
||
80 | email=$emailr\ |
||
81 | copyright=$copyrightr\ |
||
82 | docopen=$docopenr\ |
||
83 | dlang=$dlangr\ |
||
1499 | bpr | 84 | header=$headerr\ |
85 | desc=$descr |
||
23 | reyssat | 86 | |
87 | !read adm/docindex.proc |
||
88 | !read $docdir/$doc/.def |
||
89 | |||
90 | :end |
||
91 | block=main |
||
92 | !read $docdir/$doc/main.def |
||
93 | job=read |
||
94 |