Subversion Repositories wimsdev

Rev

Rev 4875 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4875 Rev 12498
Line 7... Line 7...
7 
deptest=!text select -.~_$alnum in $wims_deposit
 7 
deptest=!text select -.~_$alnum in $wims_deposit
8 
!if / isin $wims_deposit or .. isin $wims_deposit or \
 8 
!if / isin $wims_deposit or .. isin $wims_deposit or \
9 
    ~~ isin $wims_deposit or \
 9 
    ~~ isin $wims_deposit or \
10 
    $wims_deposit!=$deptest or \
 10 
    $wims_deposit!=$deptest or \
11 
    .tgz/ notin $wims_deposit/
 11 
    .tgz/ notin $wims_deposit/
12 
 mode=bad_fname
 12 
  mode=bad_fname
13 
 !exit
 13 
  !exit
14 
!endif
 14 
!endif
15 
 
 15 
 
16 
!if ../modtool- isin ../$wims_deposit
 16 
!if ../modtool- isin ../$wims_deposit
17 
 nameverif=!replace internal ../modtool- by in ../$wims_deposit
 17 
  nameverif=!replace internal ../modtool- by in ../$wims_deposit
18 
 restored=$nameverif
 18 
  restored=$nameverif
19 
!else
 19 
!else
20 
 nameverif=!translate internal ~ to , in $wims_deposit
 20 
  nameverif=!translate internal ~ to , in $wims_deposit
21 
 vcnt=!itemcnt $nameverif
 21 
  vcnt=!itemcnt $nameverif
22 
 !distribute items $nameverif into t1,t2,nameverif
 22 
  !distribute items $nameverif into t1,t2,nameverif
23 
 !if $vcnt!=3 or $t1 notitemof $zonelist
 23 
  !if $vcnt!=3 or $t1 notitemof $zonelist
24 
  mode=bad_fname
 24 
    mode=bad_fname
25 
  !exit
 25 
    !exit
26 
 !endif
 26 
  !endif
27 
 restored=$wims_deposit
 27 
  restored=$wims_deposit
28 
!endif
 28 
!endif
29 
nameverif=!replace internal .tgz/ by in $nameverif/
 29 
nameverif=!replace internal .tgz/ by in $nameverif/
30 
restored=!replace internal .tgz/ by in $restored/
 30 
restored=!replace internal .tgz/ by in $restored/
31 
 
 31 
 
32 
ftest=!sh cd $wims_home/$wims_sesdir\
 32 
ftest=!sh cd $wims_home/$wims_sesdir\
33 
rm -fR deptest\
 33 
rm -fR deptest\
Line 41... Line 41...
41 
fi
 41 
fi
42 
 
 42 
 
43 
ftest=!word 1 of $ftest
 43 
ftest=!word 1 of $ftest
44 
ftcnt=!charcnt $ftest
 44 
ftcnt=!charcnt $ftest
45 
!if $ftcnt<1 or $ftcnt>40 or $ftest!=$nameverif
 45 
!if $ftcnt<1 or $ftcnt>40 or $ftest!=$nameverif
46 
 mode=bad_arch
 46 
  mode=bad_arch
47 
 !exit
 47 
  !exit
48 
!endif
 48 
!endif
49 
 
 49 
 
50 
ftest2=!getdef description in wimshome/$wims_sesdir/deptest/$ftest/INDEX
 50 
ftest2=!getdef description in wimshome/$wims_sesdir/deptest/$ftest/INDEX
51 
ftest=!getdef title in wimshome/$wims_sesdir/deptest/$ftest/INDEX
 51 
ftest=!getdef title in wimshome/$wims_sesdir/deptest/$ftest/INDEX
52 
 
 52 
 
53 
!if $ftest=$empty
 53 
!if $ftest=$empty
54 
 mode=bad_arch
 54 
  mode=bad_arch
55 
 !exit
 55 
  !exit
56 
!endif
 56 
!endif
57 
 
 57 
 
58 
test=!sh cd $wims_home/$wims_sesdir/deptest\
 58 
test=!sh cd $wims_home/$wims_sesdir/deptest\
59 
rm -f mkindex src/Makefile src/cpp/Makefile\
 59 
rm -f mkindex src/Makefile src/cpp/Makefile\
60 
chmod -R og-w *\
 60 
chmod -R og-w *\
61 
find . -type f -exec chmod og-x '{}' \;\
 61 
find . -type f -exec chmod og-x '{}' \;\
62 
find . ! \( -type f -o -type d \) -print
 62 
find . ! \( -type f -o -type d \) -print
63 
 
 63 
 
64 
!if $test!=$empty
 64 
!if $test!=$empty
65 
 !sh rm -fR $wims_home/$wims_sesdir/deptest/$nameverif
 65 
  !sh rm -fR $wims_home/$wims_sesdir/deptest/$nameverif
66 
 mode=illegal
 66 
  mode=illegal
67 
 !exit
 67 
  !exit
68 
!endif
 68 
!endif
69 
 
 69 
 
70 
!if $confirm=diffcheck
 70 
!if $confirm=diffcheck
71 
 mode=diffcheck
 71 
  mode=diffcheck
72 
 category=!module category $restored
 72 
  category=!module category $restored
73 
 
 - 
 
74 
 !if oef isitemof $category
 - 
 
75 
  exclude=--exclude def
 - 
 
76 
 !endif
 - 
 
77 
 !if document isitemof $category
 - 
 
78 
  exclude=--exclude '*.def'
 - 
 
79 
 !endif
 - 
 
80 
 
 73 
 
81 
 diff=!sh cd $wims_home\
 - 
 
82 
  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
 - 
 
83 
 diffcnt=!charcnt $diff
 - 
 
84 
 !if $diffcnt>19500
 - 
 
85 
  diff1=MANY
 - 
 
86 
  diff =!char 1 to 19000 of $diff
 - 
 
87 
 !else
 - 
 
88 
   diff = !replace internal diff -r $exclude --new-file by in $diff
 - 
 
89 
   !if $diff !=$empty
 74 
  !if oef isitemof $category
90 
     diff=diff -r $exclude --new-file\
 75 
    exclude=--exclude def
91 
$diff
 - 
 
92 
   !endif
 - 
 
93 
  !endif
 76 
  !endif
- 
 
 77 
  !if document isitemof $category
- 
 
 78 
    exclude=--exclude '*.def'
- 
 
 79 
  !endif
- 
 
 80 
 
- 
 
 81 
  diff=!sh cd $wims_home\
- 
 
 82 
    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
- 
 
 83 
  diffcnt=!charcnt $diff
- 
 
 84 
  !if $diffcnt>19500
- 
 
 85 
    diff1=MANY
- 
 
 86 
    diff =!char 1 to 19000 of $diff
- 
 
 87 
  !else
- 
 
 88 
    diff = !replace internal diff -r $exclude --new-file by in $diff
- 
 
 89 
    !if $diff !=$empty
- 
 
 90 
      diff=diff -r $exclude --new-file\
- 
 
 91 
  $diff
- 
 
 92 
    !endif
- 
 
 93 
  !endif
94 
 !exit
 94 
  !exit
95 
!endif
 95 
!endif
96 
 
 96 
 
97 
!sh rm -fR $devdir/$restored\
 97 
!sh rm -fR $devdir/$restored\
98 
 mkdir -p $devdir\
 98 
 mkdir -p $devdir\
99 
 mv -f $wims_home/$wims_sesdir/deptest/$nameverif $devdir/$restored\
 99 
 mv -f $wims_home/$wims_sesdir/deptest/$nameverif $devdir/$restored\
100 
 cd $devdir/$restored; src2def
 100 
 cd $devdir/$restored; src2def
101 
 
 -