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