Subversion Repositories wimsdev

Rev

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