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