Subversion Repositories wimsdev

!read adm/language lang/names.phtml

!set swlist=coq, gap, graphviz, m2, maxima, octave, pari, povray, geogebra, jsxgraph

!set swname=COQ, Gap, Graphviz, Macaulay 2, Maxima, Octave, PARI/GP, Povray, GeoGebra, Jsxgraph

!set year=!char 1 to 4 of $wims_now

!readdef wimshome/log/wims.conf

!default mu_publish_site=!defof DF_mu_publish_site in wimshome/public_html/bases/sys/defaults.conf

!! when the selection of the site is done by the developpers

publish_site=$submitpublish_site

!default publish_site=$mu_publish_site

publishsitesname=$empty

zonelist=$empty

levellist=$empty

!for name in $mu_publish_site

  tmp=!defof publishname in wimshome/public_html/bases/sys/publishcenter/$name

  tmp=!replace internal , by , in $tmp

  publishcentersname=!append item $tmp to $publishcentersname

  tmp=!defof zonepublish,levellist in wimshome/public_html/bases/sys/publishcenter/$name

  zonepublishs=!append item $tmp to $zonepublishs

  tmp=!defof zonelist,levellist in wimshome/public_html/bases/sys/publishcenter/$name

  zonelist=!append item $tmp to $zonelist

  tmp=!defof levellist in wimshome/public_html/bases/sys/publishcenter/$name

  levellist=!append item $tmp to $levellist

!next name

zonelist=!listuniq $zonelist

zonelist=!listuniq $zonelist

zonepublishs=!listuniq $zonepublishs

levellist=!listuniq $levellist

!! read the specification of $publish_site

!if $submitpublish_site!=$empty

  !read wimshome/public_html/bases/sys/publishcenter/$submitpublish_site

  zonepublishs=$zonepublish

!endif

wims_nw=job mod existing serial_number auth_login auth_passwd \

	original2 originalheader empty devdir fname target

wims_nr=wims_sesrandom

#############################################################

jobs=modname create flist index edfile showfile delfile delconfirm\

	backup restore copy move del publish prop diff binfile changefile changeconfirm

maxlist=100

sellist=10

alnum=0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ

searchsymbol=.*+-_~\[]|()<>

searchchars=$alnum$searchsymbol

langlist=!words2items $wims_site_languages

!read lang/langname.$modu_lang

deflist=title, description, language, category, domain, \

	level, keywords, require, scoring, copyright,\

	author, address, version, wims_version, vardef, \

	translator, translator_address, data, maintainer, maintainer_address

wims_form_method=post

!read tabletheme

!if $cmd=help or robot isin $session

  !exit

!endif

jobreq=!word 1 of $jobreq

!if $jobreq!=$empty and $jobreq iswordof $jobs

  job=$jobreq

!endif

jobreq=

!if $wims_class!=$empty

  !read adm/class/userdef classes,$wims_class,$wims_user

!endif

!if $wims_developer=$empty and $wims_class!=$empty and $wims_user!=$empty

  !if $wims_user=supervisor

    !if $wims_sup_secure>=0

      wims_developer=!getdef wims_developer in $userdef

    !endif

  !else

    wims_developer=!getdef wims_developer in $userdef

  !endif

  !distribute item $wims_developer into wims_developer,devpass

  !if $devpass=$empty

    !reset wims_developer

  !endif

!endif

!if $wims_ismanager>=2 and $change=yes

  wims_developer=

!endif

!if $wims_developer!=$empty and $auth_login=$empty

  n=!recordcnt wimshome/log/.developers

  !for i=1 to $n

    r=!record $i of wimshome/log/.developers

    !distribute lines $r into ll,pp,nn,ee

    pp=!passcrypt $pp

    !if $devpass!=$empty

      devpass=!passcrypt $devpass

    !endif

    !if $ll=$wims_developer and ($devpass=$empty or $devpass=$pp)

      auth_login=$ll

      auth_passwd=$pp

      auth_name=$nn

      auth_email=$ee

      login=$wims_developer

      sesdir=!translate internal _ to $ $ in $wims_sesdir

      sesdir=!word 1 of $sesdir

      !setdef wims_developer=$login in wimshome/$sesdir/var.stat

      !if $original!=$empty and $job=$empty

        job=copy

      !endif

      !if $wims_developer!=$empty and $modreq!=$empty

        !default job=flist

      !endif

      !default job=modname

      !break

    !endif

  !next i

  !if $auth_login=$empty

    wims_developer=

    job=auth

  !endif

!endif

!default job=auth

!if $auth_login=$empty and $wims_ismanager<2

  job=auth

!endif

!if $auth_login!=$empty

  devdir=modules/devel/$auth_login

!endif

!read scripts/getindex $modreq

!default i_translation_language=$translation_language

deflist1=translation_language

trans_lang=!words2items $i_translation_language

i_translation_language=!listintersect $trans_lang and $langlist

i_translation_language=!listcomplement $i_language in $i_translation_language

!for l in $(i_translation_language)

  deflist1=!append item title_$l to $deflist1

  deflist1=!append item description_$l to $deflist1

  deflist1=!append item keywords_$l to $deflist1

  deflist1=!append item translator_$l to $deflist1

  deflist1=!append item translator_address_$l to $deflist1

!next

!read $job.proc

!if $(name_$job)!=$empty

  !!module_title=$module_title - $(name_$job)

  wims_title_title=$(name_$job)

!endif

!if ~ isin $mod

  m=!translate internal ~ to , in $mod

  m1=!item 1 of $m

  !reset pubtit

  !if $m1!=test and $m1 isitemof $zonelist

    m=!translate internal ~ to / in $mod

    pubtit=!module title $m

    pubversion=!module version $m

  !endif

!endif

!reset validate_out

!if $validator_address!=$empty and $validation_ask!=$empty

  !read adm/validation/validate.proc

!endif

!if $job iswordof showfile edfile binfile index publish diff backup move copy changefile changeconfirm

  !set wims_ariane=!append line modcontent,1,cmd=reply&jobreq=flist\

to $wims_ariane

!endif

!if $job iswordof move copy

  !set wims_ariane=!append line "$name_index",1,cmd=reply&jobreq=index\

to $wims_ariane

!endif