Subversion Repositories wimsdev

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

    !default execut=0

!if  / isin $wims_deposit or .. isin $wims_deposit

  !exit

!endif

	style=!record 0 of style.css

    wims =!record 0 of wims.sty

    fichier_test=!record 0 of fichier_test.tex

    !filewrite getfile/style.css $style

    !filewrite getfile/wims.sty $wims 

    !filewrite getfile/fichier_test.tex  $fichier_test

!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

    style=!record 0 of style.css

    wims =!record 0 of wims.sty

    fichier_test=!record 0 of fichier_test.tex

    !filewrite wimshome/$wims_sesdir/latex2wims/style.css $style 

    !filewrite wimshome/$wims_sesdir/latex2wims/wims.sty $wims 

    !filewrite wimshome/$wims_sesdir/latex2wims/fichier_test.tex  $fichier_test

    !!!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

    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

      !sh rm -r $docdir/doc/1/* ; mkdir -p $docdir/doc/1/src

      dir=$wims_home/$wims_sesdir/latex2wims/

      !mexec latex2wims.pl --dir=$dir --docdir=$docdir --author=$auth_name1 --email=$auth_email --worksheet=$wksheet --verbose=1 $fichier_p

      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

      images=!items2words $images

      images=!trim $images

      images=!singlespace $images

      !sh mkdir -p $docdir/doc/1/files\

      for a in $images ; do cp $wims_home/$wims_sesdir/latex2wims/$$a $docdir/doc/1/files/$$a ; done\

     cd $docdir \

     src2def 2>/dev/null

   !else

    !if $confirm=1

      execut=1

      !reset confirm

    !else

      execut=3

    !endif

  !endif

!endif