Subversion Repositories wimsdev

Rev

Rev 7254 | Go to most recent revision | 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.