1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
!if $wims_read_parm!=slib_header
!goto proc
!endif
slib_author=Bernadette, Perrin-Riou
!exit
:proc
!default slib_cnt_=0
slib_cnt_= $[$slib_cnt_ +1]
slib_n=!randint 1000,3000
!distribute items $wims_read_parm into slib_ext
slib_text=!items 2 to -1 of $wims_read_parm
!if $slib_ext!=
slib_ext=.$slib_ext
!endif
slib_name=file_$(slib_n)_$(slib_cnt_)$slib_ext
!readproc oef/togetfile.proc $slib_name new\
$slib_text
slib_out=$wims_ref_name?session=$session&+cmd=getfile&+special_parm=$slib_name
|
