Subversion Repositories wimsdev

!bound copyrightr within gnu,opl,private default gnu

!if class != $doctype

 !bound docopenr within yes, no default no

!else

 !if $wims_user!=supervisor

  !goto end

 !endif

 !bound docopenr within 0,1,2 default 0

!endif

titr=!detag $titr

titr=!translate internal !$$ to $      $ in $titr

titr=!singlespace $titr

titr=!char 1 to $titlim of $titr

titr=!trim $titr

authorr=!translate internal !$$ to $      $ in $authorr

authorr=!singlespace $authorr

authorr=!char 1 to $titlim of $authorr

authorr=!trim $authorr

emailr=!translate internal !$$ to $      $ in $emailr

!!emailr=!word 1 of $emailr

emailr=!replace internal ; by , in $emailr

emailr=!char 1 to $titlim of $emailr

!if $emailr!=$empty

  etest0=!replace internal ; by , in $emailr

  etest0_cnt=!itemcnt $etest_0

  !for et_ =1 to $etest0

     emailr0=!item $et_ of $etest0

     etest=!translate @ to , in $emailr0

     etes2=!translate @ to $ $ in $emailr0

     ecnt=!itemcnt $etest

     ecnt2=!wordcnt $etes2

    !distribute items $etest into e1,e2

    !if $ecnt!=2 or $ecnt2!=2 or . notin $e2

      error=bad_email

      !exit

    !endif

   !next

!endif

descr=!translate internal $	\

$ to $ 		   $ in $descr

descr=!trim $descr

dl=!words2items $dlangr

dlangr=

!for l in $dl

 l=!lower $l

 l=!text select abcdefghijklmnopqrstuvwxyz in $l

 n=!charcnt $l

 !ifval $n=2 or $l=all

  dlangr=$dlangr $l

 !endif

!next l

dlangr=!trim $dlangr

!default dlangr=all

headerr=!translate internal $	 \

$ to $ 		$ in $headerr

!if $titr=$empty

 error=no_tit

 !exit

!endif

!if $authorr=$empty

 error=no_author

 !exit

!endif

!if class != $doctype

 otest=!lower $titr $authorr

 otest=!singlespace $otest

 otest=!deaccent $otest

 otest=!text select $ $namechars in $otest

 translator_unknown=

 dictionary=bases/sys/abuse.$module_language

 otest=!exec translator $otest

 !if abuse isin $otest

  error=abuse

  !exit

 !endif

!endif

!mexec scripts/mkdocdir.sh

!writefile $docdir/$doc/.def tit=$titr\

author=$authorr\

email=$emailr\

copyright=$copyrightr\

docopen=$docopenr\

doctoc=$doctocr\

dlang=$dlangr\

header=$headerr\

desc=$descr

!read adm/docindex.proc

!read $docdir/$doc/.def

:end

block=main

!read $docdir/$doc/main.def

job=read