Subversion Repositories wimsdev

sjob=$job

!!to avoid sheet of an open class

noopenclone=

!if $ssourcecls=$empty and $step>-2

  step=-3

!endif

!if $scheckpwd!=1 and $step>-1

  step=-2

  !exit

!endif

!if $smethodecp=$empty and $step>0

  step=-1

  !exit

!endif

!if $wims_class=$empty

  cltype=0

!else

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

  supervisable=!defof user_supervisable\

user_mkclass in $userdef

  !distribute line $supervisable into supervisable,mkclass

  !if $wims_supertype!=2 or ($wims_user!=supervisor and $supervisable!=yes) or $wims_class!=$wims_superclass or $mkclass=no

    error=no_subclass

    !exit

  !endif

!endif

!if $step=-3

  !! search if exists at less one cloneable class (verifying keywords)

  !reset scheckpwd

  keyword=!items2words $keyword

  keyword=!trim $keyword

  kw=!words2items $keyword

  kw=!deaccent $kw

  kw=!tolower $kw

  ccnt=!recordcnt wimshome/log/classes/.index

  i=1

  debcls=$empty

  !while $i<=$ccnt and $debcls=$empty

    l=!record $i of wimshome/log/classes/.index

    !distribute items $l into code,expire,inst,cl,la,ty

    !if $ty!=4

      l1=!deaccent $l

      l1=!tolower $l1

      c1=!text extract 0123456789 in $code

      k=yes

      !if $kw!=$empty

        !for w in $kw

          !if $w notin $l1

            !let k=no

            !break

          !endif

        !next w

      !endif

      !if $k=no and $kw!=$empty and $ty=2

        !! find of keyword in subclasses

        sbcnt=!recordcnt wimshome/log/classes/$code/.subclasses

        sb=1

        !while $sb<=$sbcnt and $k=no

          ksb=yes

          l1sb=!record $sb of wimshome/log/classes/$code/.subclasses

          l1sb=!deaccent $l1sb

          l1sb=!tolower $l1sb

          !for w in $kw

            !if $w notin $l1sb

              ksb=no

              !!break

            !endif

          !next w

          !if $ksb=yes

            k=yes

          !endif

          !increase sb

        !endwhile

      !endif

      !if $k=yes

        debcls=$i

      !endif

    !endif

    !increase i

  !endwhile

  !exit

!endif

!if $step=-2

  !if $sourcecls!=file and $sourcecls!=wget

    !! checking allowed clonage + ask for cloning pwd

    sourcecls=!text select /0123456789 in $sourcecls

    tmp=!defof class_defined\

class_allowcloning\

class_type\

class_typename in wimshome/log/classes/$sourcecls/.def

    testneighbors=!defof sharing_all in wimshome/log/classes/$sourcecls/neighbors

    !distribute line $tmp into tmp1,tmp3,tmp6,tmp7

    !if yes!=$tmp1

      error=classdontexists

      !exit

    !endif

    !if $sourcecls<=9999 and $sourcecls notin $noopenclone

      step=-1

    !else

      !! only single class can be cloned (waiting other improvment)

      !! class with sharing can't be cloned.

      !if (($tmp6!=1 or $tmp7!=class) and 0!=$tmp6) or $testneighbors!=$empty

        error=disallowcloning

        !exit

      !endif

      !if yes!=$tmp3

        error=cloningnotallow

        !exit

      !endif

    !endif

    ssourcecls=$sourcecls

  !else

    !if $sourcecls=file

      !! --- manage to clone a tgz file classe

      !if $wims_deposit!=$empty

        wims_deposit=!word 1 of $wims_deposit

        selection=

        gotlist=

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

          error=bad_file

          !exit

        !endif

      !endif

      t=!translate . to $ $ in $wims_deposit

      format=!word 2 to -1 of $t

      format=!translate $ $ to . in $format

      !if $format notwordof tgz tar.gz zip

        error=bad_file

        !exit

      !endif

    !else

      !! manage of method wget

      !read adm/class/authchars

      wgetfile=!text select /&=$char_passwd in $wgetfile

      t=!translate / to , in $wgetfile

      t=!item -1 of $t

      t=!translate . to $ $ in $t

      format=!word 2 to -1 of $t

      format=!translate $ $ to . in $format

      !if $format notwordof tgz tar.gz zip

        error=bad_file

        !exit

      !endif

      !sh cd $wims_home/sessions/$wims_session;\

          wget -O user-deposit "$wgetfile" 2> /dev/null;

      wims_deposit=savecls.tgz

    !endif

    !sh $wims_home/public_html/scripts/adm/decompress.sh

    ssourcecls=file

    scheckpwd=1

    step=-1

  !endif

  !exit

!endif

!if $step=-1

  !!checking pwd or exampleclass

  !if $ssourcecls=file or $ssourcecls=wget

    scheckpwd=1

  !else

    !if $ssourcecls>9999

      !! check cloningpwd

      !! --------------------------------------- attention il faut rajouter la temporisation pour badpwd

      pwd=!defof class_cloningpwd in wimshome/log/classes/$ssourcecls/.def

      !if $pwd!=$clonepwd

        error=badcloningpwd

        step=-2

        !exit

      !endif

    !endif

    scheckpwd=1

  !endif

  !exit

!endif

!if $ssourcecls=file

  source_title=!defof class_institution,class_description in wimshome/sessions/$wims_session/upload/class/.def

!else

  source_title=!defof class_institution,class_description in wimshome/log/classes/$ssourcecls/.def

!endif

!if $step=0

  !if $methodecp!=0 and $methodecp!=1

    error=badcpmethod

    !exit

  !endif

  smethodecp=$methodecp

!endif

!read proc/newclass.proc

!! ajout des ressources de la classe d'exemple

!if $step=3

  !read proc/cloning.proc

  !if $wims_class!=$empty

    !restart module=home

  !endif

!endif