Subversion Repositories wimsdev

!read adm/language lang/names.phtml
wims_prefix=class user tmp
!if robot isin $session
  !exit
!endif
!sh cd $wims_home/$wims_sesdir ; mkdir -p latex2wims
!sh mkdir -p $wims_home/$wims_sesdir/getfile/ ; cp modules/$module/latex2wimsdoc.pdf $wims_home/$wims_sesdir/getfile/


!if $wims_developer!=$empty
   !goto debut
!endif
!read auth
!if $wims_developer=$empty
 !exit
!endif

:debut
!set wims_ariane_self=no

!default execut=0
!if  / isin $wims_deposit or .. isin $wims_deposit
  !exit
!endif
!sh cp modules/$module/fichier_test.tex $wims_home/$wims_sesdir/getfile/ ; \
    cp modules/$module/style.css $wims_home/$wims_sesdir/getfile/ ;\
    cp modules/$module/wims.sty $wims_home/$wims_sesdir/getfile/

!if $wims_deposit!=noname.file and $wims_deposit!=$empty
  !sh cd $wims_home/$wims_sesdir\
        mkdir -p latex2wims\
        mkdir -p getfile\
          mv user-deposit latex2wims/$wims_deposit
!endif

!ifval $exemple=1
    !sh cp modules/$module/fichier_test.tex $wims_home/$wims_sesdir/latex2wims/ ; \
    cp modules/$module/style.css $wims_home/$wims_sesdir/latex2wims/ ;\
    cp modules/$module/wims.sty $wims_home/$wims_sesdir/latex2wims/
    !!!reset exemple
!endif

# Enregistrer
wims_module_log=$httpd_REMOTE_ADDR depose $wims_deposit

# Quels sont les fichiers existants ?
test=!sh cd $wims_home; find $wims_sesdir/latex2wims -type f
fichiers=!replace internal / by , in $test
fichiers=!column -1 of $fichiers

Fichiers=!replace internal , by $ $  in $fichiers
cnt_fichier=!itemcnt $fichiers
!if $cnt_fichier >0
    date=!sh cd $wims_home/$wims_sesdir/latex2wims; ls -al $Fichiers | awk '{ print $$6 " " $$7 " " $$8 }'
    date=!trim $date
    date= !lines2items $date
!endif

!if $cnt_fichier=1
  principal=1
!endif


!if $execut=2 and $cnt_fichier=0
  error=$error fichier
  execut=1
!endif

!if $execut=2 and $principal=$empty
  error = $error principal
  execut=1
!endif
!if $execut=2 and ($document=$empty or $document=$choix)
  error = $error document
  execut=1
!endif

!if $error!=$empty
  !exit
!endif

Document dans le compte Modtool

!if $wims_developer!=$empty
       list_mod=!sh ls $wims_home/public_html/modules/devel/$wims_developer
       list_mod=!words2items $list_mod
       list_module=
       !for a in $list_mod
           category = !module category devel/$wims_developer/$a
           !if document isin $category
              list_module=!append item $a to $list_module
          !endif
       !next
       !if $list_module=$empty
         error = $error documentempty
       !endif
!endif
!if $principal!=$empty and ($execut=2 or $execut=3) and $document!=$empty and $document!=$choix
   !default subdoc=1
    execut=3
    !if $confirm=0
      auth_name1=!word 2 of $auth_name
      fichier_p=!item $principal of $fichiers
      !!!mexec dos2unix $fichier_p
      docdir=$wims_home/public_html/modules/devel/$wims_developer/$document
      docdirw=wimshome/public_html/modules/devel/$wims_developer/$document
###common_files ?
      !read $docdir/.def
      !if $common_files=yes
        docfile=doc/files
      !else
        docfile=doc/$subdoc/files
      !endif
      !sh rm -r $docdir/doc/$subdoc/* ; mkdir -p $docdir/doc/$subdoc/src; mkdir -p $docdir/doc/srctex
!! inutile de passer par le repertoire provisoire - latex2wims envoyait directement des ficiers dans

      dir=$wims_home/$wims_sesdir/latex2wims/
!!!forget about that by using just src2def : --author=$auth_name1 --email=$auth_email --verbose=1
      !!!mexec latex2wims.pl --subdir=$subdoc --dir=$dir --docdir=$docdir --author=$auth_name1 --email=$auth_email --worksheet=$wksheet --verbose=1 $fichier_p
      !sh cp $dir/* $docdir/doc/srctex/
!! create the file OIndex in srctex
      Oindex=
      Oindex=!append line $subdoc $fichier_p to $Oindex
      Oindex=!replace internal .tex by in $Oindex
      !filewrite $docdirw/doc/srctex/0index $Oindex

      images=!sh cd $wims_home\
      ls $wims_sesdir/latex2wims/*
      images=!replace internal / by , in $images
      images=!column -1 of $images
      cnt_images=!itemcnt $images
      !for i = 1 to $cnt_images
        !if .css isin $(images[$i]) or .sty isin $(images[$i]) or .tex isin $(images[$i])
         images=!replace item number $i by in $images
        !endif
      !next
!!image transfer
      images=!items2words $images
      images=!trim $images
      images=!singlespace $images
      !sh mkdir -p $docdir/doc/$subdoc/$docfiles\
       for a in $images ; do cp $wims_home/$wims_sesdir/latex2wims/$$a $docdir/doc/$doc/$docfiles/$$a ; done
!!now src2def make latex2wims
       !sh cd $docdir \
       src2def 2>/dev/null
   !else
    !if $confirm=1
      execut=1
      !reset confirm
    !else
      execut=3
    !endif
  !endif
!endif

!set wims_ariane=!append line modtool,1,module=adm/modtool\
to $wims_ariane
!if $execut>0
  !set wims_ariane=!append line latex2wims,1,module=adm/latex2wims&execut=0\
to $wims_ariane
!endif

!if $wims_theme=default
  !set wims_ariane=!append line $wims_ariane to $wims_menu_items
  !reset wims_ariane
!endif