Subversion Repositories wimsdev

Rev

Rev 12490 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
7268 bpr 1
!if $wims_read_parm!=$empty
12490 bpr 2
  !set parms=$wims_read_parm
7268 bpr 3
!else
12490 bpr 4
  !if $parms=$empty
5
    !set audio=!slashsubst \audio
6
    $audio
7
    !exit
8
  !endif
7268 bpr 9
!endif
7793 bpr 10
!if \ isin $parms
11
  !set parms=!slashsubst $(parms)
12
!endif
13
 
7268 bpr 14
!set audiof_=!word 1 of $parms
15
!! This avoids module errors if people try to hack.
16
!if .. isin $audiof_
17978 bpr 17
  !exit
7268 bpr 18
!endif
19
!if $parms=$empty
12490 bpr 20
  !exit
7268 bpr 21
!endif
22
 
23
!set options=!word 2 to -1 of $parms
24
 
25
!set audio_=!word 1 of $parms
26
!readproc slib/media/audio $audio_, $options
27
 
28
$slib_out