Subversion Repositories wimsdev

!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