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