Subversion Repositories wimsdev

Rev

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

  1. !if $wims_read_parm!=$empty
  2.   !set parms=$wims_read_parm
  3. !else
  4.   !if $parms=$empty
  5.     !set audio=!slashsubst \audio
  6.     $audio
  7.     !exit
  8.   !endif
  9. !endif
  10. !if \ isin $parms
  11.   !set parms=!slashsubst $(parms)
  12. !endif
  13.  
  14. !set audiof_=!word 1 of $parms
  15. !! This avoids module errors if people try to hack.
  16. !if .. isin $audiof_
  17.   !exit
  18. !endif
  19. !if $parms=$empty
  20.   !exit
  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
  29.