Subversion Repositories wimsdev

Rev

Rev 14414 | Rev 16243 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
23 reyssat 1
!if $abandon!=$empty
14414 bpr 2
  abandon=
3
  job=flist
4
  !changeto $job.proc
23 reyssat 5
!endif
6
 
15280 obado 7
!read scripts/getindex.proc $mod
23 reyssat 8
!if $title=$empty
12498 bpr 9
  job=modname
10
  !changeto modname.proc
23 reyssat 11
!endif
12
 
13
allowchar=/.-_$alnum
14
fname=!word 1 of $fname
15
fname=!text select $allowchar in $fname
16
c=!char 1 of $fname
17
!if $c=. or $c=/
14348 bpr 18
  !goto badname
23 reyssat 19
!endif
15280 obado 20
!read files.proc
23 reyssat 21
!if $fname notitemof $files
12498 bpr 22
  !if / notin $fname and .. notin $fname
23
    test=!filelist $devdir/$mod/$fname
24
    !if $test!=$empty
25
      :badname
26
      error=bad_fname
27
      lastfname=$fname
28
      job=flist
29
      !changeto flist.proc
30
    !endif
31
  !else
32
    !if (..help/ notin ..$fname and ..src/ notin ..$fname and ..lang/ notin ..$fname) \
14348 bpr 33
        or .. isin $fname
12498 bpr 34
      !goto badname
35
    !endif
23 reyssat 36
  !endif
37
!endif
38
 
39
!if $fname=$empty
12498 bpr 40
  job=flist
41
  !changeto $job.proc
23 reyssat 42
!endif
43
 
44
!if $job=edfile and $register!=$empty
12498 bpr 45
  !if $register=file_mode
46
    test=!exec ftype $wims_home/$wims_sesdir/user-deposit
47
    !if $test iswordof binary
48
      error=binary_file
49
      !exit
50
    !endif
23 reyssat 51
  !endif
12498 bpr 52
  register=
53
  !if $fname=filedesc
54
    test=!sh grep '!' $wims_home/$wims_sesdir/user-deposit
55
    !if ! isin $fcontent
56
      error=illegal_filedesc
57
      !exit
58
    !endif
23 reyssat 59
  !endif
12498 bpr 60
   makeout=!sh module=$devdir/$mod\
61
   test=`echo $fname | grep -E '^(src/|help/)'`\
62
   if [ ! -z "$$test" ]; then mkdir -p $$module/`dirname $fname`; fi\
63
   cat $wims_home/$wims_sesdir/user-deposit >$$module/$fname\
64
   if [ ! -z "$$test" ]; then\
65
    cd $$module; src2def\
66
   fi
67
  !if ERROR isin $makeout
68
    makeerror=$makeout
69
  !endif
70
  wims_module_log=edit $mod/$fname
23 reyssat 71
!endif
72
 
15280 obado 73
content=!mexec scripts/fileread.sh