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 |