Subversion Repositories wimsdev

Rev

Rev 10430 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 10430 Rev 12490
Line 2... Line 2...
2 
!bound copyrightr within gnu,opl,private default gnu
 2 
!bound copyrightr within gnu,opl,private default gnu
3 
!if class != $doctype
 3 
!if class != $doctype
4 
 !bound docopenr within yes, no default no
 4 
  !bound docopenr within yes, no default no
5 
!else
 5 
!else
6 
 !if $wims_user!=supervisor
 6 
  !if $wims_user!=supervisor
7 
  !goto end
 7 
    !goto end
8 
 !endif
 8 
  !endif
9 
 !bound docopenr within 0,1,2 default 0
 9 
  !bound docopenr within 0,1,2 default 0
10 
!endif
 10 
!endif
11 
titr=!detag $titr
 11 
titr=!detag $titr
12 
titr=!translate internal !$$ to $      $ in $titr
 12 
titr=!translate internal !$$ to $      $ in $titr
13 
titr=!singlespace $titr
 13 
titr=!singlespace $titr
14 
titr=!char 1 to $titlim of $titr
 14 
titr=!char 1 to $titlim of $titr
Line 23... Line 23...
23 
emailr=!char 1 to $titlim of $emailr
 23 
emailr=!char 1 to $titlim of $emailr
24 
!if $emailr!=$empty
 24 
!if $emailr!=$empty
25 
  etest0=!replace internal ; by , in $emailr
 25 
  etest0=!replace internal ; by , in $emailr
26 
  etest0_cnt=!itemcnt $etest_0
 26 
  etest0_cnt=!itemcnt $etest_0
27 
  !for et_ =1 to $etest0
 27 
  !for et_ =1 to $etest0
28 
     emailr0=!item $et_ of $etest0
 28 
    emailr0=!item $et_ of $etest0
29 
     etest=!translate @ to , in $emailr0
 29 
    etest=!translate @ to , in $emailr0
30 
     etes2=!translate @ to $ $ in $emailr0
 30 
    etes2=!translate @ to $ $ in $emailr0
31 
     ecnt=!itemcnt $etest
 31 
    ecnt=!itemcnt $etest
32 
     ecnt2=!wordcnt $etes2
 32 
    ecnt2=!wordcnt $etes2
33 
    !distribute items $etest into e1,e2
 33 
    !distribute items $etest into e1,e2
34 
    !if $ecnt!=2 or $ecnt2!=2 or . notin $e2
 34 
    !if $ecnt!=2 or $ecnt2!=2 or . notin $e2
35 
      error=bad_email
 35 
      error=bad_email
36 
      !exit
 36 
      !exit
37 
    !endif
 37 
    !endif
38 
   !next
 38 
  !next
39 
!endif
 39 
!endif
40 
descr=!translate internal $	\
 40 
descr=!translate internal $	\
41 
$ to $ 		   $ in $descr
 41 
$ to $ 		   $ in $descr
42 
descr=!trim $descr
 42 
descr=!trim $descr
43 
dl=!words2items $dlangr
 43 
dl=!words2items $dlangr
44 
dlangr=
 44 
dlangr=
45 
!for l in $dl
 45 
!for l in $dl
46 
 l=!lower $l
 46 
  l=!lower $l
47 
 l=!text select abcdefghijklmnopqrstuvwxyz in $l
 47 
  l=!text select abcdefghijklmnopqrstuvwxyz in $l
48 
 n=!charcnt $l
 48 
  n=!charcnt $l
49 
 !ifval $n=2 or $l=all
 49 
  !ifval $n=2 or $l=all
50 
  dlangr=$dlangr $l
 50 
    dlangr=$dlangr $l
51 
 !endif
 51 
  !endif
52 
!next l
 52 
!next l
53 
dlangr=!trim $dlangr
 53 
dlangr=!trim $dlangr
54 
!default dlangr=all
 54 
!default dlangr=all
55 
headerr=!translate internal $	 \
 55 
headerr=!translate internal $	 \
56 
$ to $ 		$ in $headerr
 56 
$ to $ 		$ in $headerr
57 
 
 57 
 
58 
!if $titr=$empty
 58 
!if $titr=$empty
59 
 error=no_tit
 59 
  error=no_tit
60 
 !exit
 60 
  !exit
61 
!endif
 61 
!endif
62 
 
 62 
 
63 
!if $authorr=$empty
 63 
!if $authorr=$empty
64 
 error=no_author
 64 
  error=no_author
65 
 !exit
 65 
  !exit
66 
!endif
 66 
!endif
67 
 
 67 
 
68 
!if class != $doctype
 68 
!if class != $doctype
69 
 otest=!lower $titr $authorr
 69 
  otest=!lower $titr $authorr
70 
 otest=!singlespace $otest
 70 
  otest=!singlespace $otest
71 
 otest=!deaccent $otest
 71 
  otest=!deaccent $otest
72 
 otest=!text select $ $namechars in $otest
 72 
  otest=!text select $ $namechars in $otest
73 
 translator_unknown=
 73 
  translator_unknown=
74 
 dictionary=bases/sys/abuse.$module_language
 74 
  dictionary=bases/sys/abuse.$module_language
75 
 otest=!exec translator $otest
 75 
  otest=!exec translator $otest
76 
 !if abuse isin $otest
 76 
  !if abuse isin $otest
77 
  error=abuse
 77 
    error=abuse
78 
  !exit
 78 
    !exit
79 
 !endif
 79 
  !endif
80 
!endif
 80 
!endif
81 
 
 81 
 
82 
!mexec scripts/mkdocdir.sh
 82 
!mexec scripts/mkdocdir.sh
83 
 
 83 
 
84 
!writefile $docdir/$doc/.def tit=$titr\
 84 
!writefile $docdir/$doc/.def tit=$titr\
85 
author=$authorr\
 85 
author=$authorr\
86 
email=$emailr\
 86 
email=$emailr\
87 
copyright=$copyrightr\
 87 
copyright=$copyrightr\
88 
docopen=$docopenr\
 88 
docopen=$docopenr\
Line 96... Line 96...
96 
 
 96 
 
97 
:end
 97 
:end
98 
block=main
 98 
block=main
99 
!read $docdir/$doc/main.def
 99 
!read $docdir/$doc/main.def
100 
job=read
 100 
job=read
101 
 
 -