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