Subversion Repositories wimsdev

!if $wims_deposit=$empty

 mode=prep

 !exit

!endif

wims_deposit=!word 1 of $wims_deposit

deptest=!text select -.~_$alnum in $wims_deposit

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

    ~~ isin $wims_deposit or \

    $wims_deposit!=$deptest or \

    .tgz/ notin $wims_deposit/

  mode=bad_fname

  !exit

!endif

!if ../modtool- isin ../$wims_deposit

  nameverif=!replace internal ../modtool- by in ../$wims_deposit

  restored=$nameverif

!else

  nameverif=!translate internal ~ to , in $wims_deposit

  vcnt=!itemcnt $nameverif

  !distribute items $nameverif into t1,t2,nameverif

  !if $vcnt!=3 or $t1 notitemof $zonelist

    mode=bad_fname

    !exit

  !endif

  restored=$wims_deposit

!endif

nameverif=!replace internal .tgz/ by in $nameverif/

restored=!replace internal .tgz/ by in $restored/

ftest=!sh cd $wims_home/$wims_sesdir\

rm -fR deptest\

mkdir -p deptest\

mv -f user-deposit deptest/$wims_deposit\

cd deptest\

if [ -f $wims_deposit ]; then\

 tar -xzf $wims_deposit --exclude \._*\

 rm -fR $wims_deposit\

 ls \

fi

ftest=!word 1 of $ftest

ftcnt=!charcnt $ftest

!if $ftcnt<1 or $ftcnt>40 or $ftest!=$nameverif

  mode=bad_arch

  !exit

!endif

ftest2=!getdef description in wimshome/$wims_sesdir/deptest/$ftest/INDEX

ftest=!getdef title in wimshome/$wims_sesdir/deptest/$ftest/INDEX

!if $ftest=$empty

  mode=bad_arch

  !exit

!endif

test=!sh cd $wims_home/$wims_sesdir/deptest\

rm -f mkindex src/Makefile src/cpp/Makefile\

chmod -R og-w *\

find . -type f -exec chmod og-x '{}' \;\

find . ! \( -type f -o -type d \) -print

!if $test!=$empty

  !sh rm -fR $wims_home/$wims_sesdir/deptest/$nameverif

  mode=illegal

  !exit

!endif

!if $confirm=diffcheck

  mode=diffcheck

  category=!module category $restored

  !if oef isitemof $category

    exclude=--exclude def

  !endif

  !if document isitemof $category

    exclude=--exclude '*.def'

  !endif

  diff=!sh cd $wims_home\

    diff -r $exclude --new-file $wims_sesdir/deptest/$nameverif public_html/modules/devel/$auth_login/$restored | sed 's/\&/\&amp;/g;s/</\&lt;/g;s/\$$/\&#36;/g' | tail -c 15000

  diffcnt=!charcnt $diff

  !if $diffcnt>19500

    diff1=MANY

    diff =!char 1 to 19000 of $diff

  !else

    diff = !replace internal diff -r $exclude --new-file by in $diff

    !if $diff !=$empty

      diff=diff -r $exclude --new-file\

  $diff

    !endif

  !endif

  !exit

!endif

!sh rm -fR $devdir/$restored\

 mkdir -p $devdir\

 mv -f $wims_home/$wims_sesdir/deptest/$nameverif $devdir/$restored\

 cd $devdir/$restored; src2def