Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Bernadette, Perrin-Riou

ADDRESS=!record 0 of data/swac/packs

slib_example=\imagedir/exemple.mp3\

http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3\

http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,width="100" height=20,player=dewplayer\

http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=hbs_mp3_player\

http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=player_mp3_multi

!exit

:proc

!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty

!! !exit

!!!endif

ADDRESS=!record 0 of data/swac/packs

!reset slib_out slib_player slib_son slib_option slib_option1

!distribute items $wims_read_parm into slib_son,slib_option,slib_option1

slib_option2 = !getopt option in $slib_option1

slib_player=!getopt player in $slib_option1

!if rename iswordof $slib_option

   slib_son=!rename $slib_son

!endif

slib_sontest=!replace internal . by , in $slib_son

!if $(slib_sontest[-1]) notwordof mp3 ogg

  slib_sontest=mp3

!endif

!! laisser slib_out sur une seule ligne (pour correspondance)

slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son

!if $slib_player=

 slib_objecttag=<object><embed src="$slib_son" $slib_option>\

    <noembed> <bgsound src="$slib_son" /></noembed>\

  </embed></object>

  slib_out=<audio controls="controls" class="wims_audio" $slib_option>

 !if .mp3XXXX isin $(slib_son)XXXX

     slib_out=$slib_objecttag

 !else

   !if .oggXXXX isin $(slib_son)XXXX

    slib_out=$slib_out<source src="$slib_son" type="audio/ogg" />$slib_objecttag

   !else

     slib_son_ogg=$slib_son

     !if $ADDRESS isin $slib_son_ogg

       slib_son_ogg=!replace internal mp3/ by ogg/ in $(slib_son)

     !endif

     slib_out=$slib_out<source src="$slib_son_ogg.ogg" type="audio/ogg" /><source src="$slib_son.mp3" type="audio/mpeg" />

   !endif

   slib_out=$slib_out Your browser does not support the audio tag.</audio>

  !endif

!else

 !if $slib_player iswordof hbs_mp3_player

  !default slib_option=height="16" width="60" autostart="false" loop="false"

    slib_player=player

  !else

   !default slib_option=height="20" width="180" autostart="false" loop="false"

  !endif

  !if .mp3XXX notin $(slib_son)XXX

!! audio venant de lang/swac

   slib_son=$(slib_son).mp3

  !endif

 !read slib/media/$slib_player $slib_son,$slib_option

!endif

slib_out=$slib_out