Subversion Repositories wimsdev

Rev

Rev 9919 | Rev 13291 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
3 
!endif
4158 bpr 4 
 
4349 bpr 5 
slib_author=Bernadette, Perrin-Riou
5436 bpr 6 
ADDRESS=!record 0 of data/swac/packs
20 reyssat 7 
slib_example=\imagedir/exemple.mp3\
9919 bpr 8 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,style="width:300px;height:20px",\
9 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,width="100" height="20",player=dewplayer\
5436 bpr 10 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=hbs_mp3_player\
11 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=player_mp3_multi
20 reyssat 12 
!exit
13 
 
14 
:proc
979 bpr 15 
!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
16 
!! !exit
17 
!!!endif
7138 bpr 18 
ADDRESS=!record 0 of data/swac/packs
7320 bpr 19 
!reset slib_out slib_player slib_son slib_option slib_option1
677 bpr 20 
!distribute items $wims_read_parm into slib_son,slib_option,slib_option1
20 reyssat 21 
 
677 bpr 22 
slib_option2 = !getopt option in $slib_option1
23 
slib_player=!getopt player in $slib_option1
20 reyssat 24 
 
677 bpr 25 
!if rename iswordof $slib_option
20 reyssat 26 
   slib_son=!rename $slib_son
27 
!endif
4765 bpr 28 
slib_sontest=!replace internal . by , in $slib_son
7030 bpr 29 
!if $(slib_sontest[-1]) notwordof mp3 ogg
6680 bpr 30 
  slib_sontest=mp3
31 
!endif
7320 bpr 32 
!! laisser slib_out sur une seule ligne (pour correspondance)
4765 bpr 33 
slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son
6657 bpr 34 
!if $slib_player=
9919 bpr 35 
!!no more used default ??
6657 bpr 36 
 slib_objecttag=<object><embed src="$slib_son" $slib_option>\
9919 bpr 37 
    <noembed> <bgsound src="$slib_son" /></noembed></embed></object>
38 
!!
6664 bpr 39 
  slib_out=<audio controls="controls" class="wims_audio" $slib_option>
6656 bpr 40 
 !if .mp3XXXX isin $(slib_son)XXXX
9921 bpr 41 
     slib_out=$slib_out<source src="$slib_son" type="audio/mpeg" />
6656 bpr 42 
 !else
43 
   !if .oggXXXX isin $(slib_son)XXXX
9919 bpr 44 
    slib_out=$slib_out<source src="$slib_son" type="audio/ogg" />
6656 bpr 45 
   !else
7138 bpr 46 
     slib_son_ogg=$slib_son
7320 bpr 47 
     !if $ADDRESS isin $slib_son_ogg
7138 bpr 48 
       slib_son_ogg=!replace internal mp3/ by ogg/ in $(slib_son)
49 
     !endif
7320 bpr 50 
     slib_out=$slib_out<source src="$slib_son_ogg.ogg" type="audio/ogg" /><source src="$slib_son.mp3" type="audio/mpeg" />
6656 bpr 51 
   !endif
6657 bpr 52 
  !endif
9919 bpr 53 
  slib_out=$slib_out Your browser does not support the audio tag.</audio>
677 bpr 54 
!else
739 bpr 55 
 !if $slib_player iswordof hbs_mp3_player
860 bpr 56 
  !default slib_option=height="16" width="60" autostart="false" loop="false"
7320 bpr 57 
    slib_player=player
739 bpr 58 
  !else
2096 bpr 59 
   !default slib_option=height="20" width="180" autostart="false" loop="false"
677 bpr 60 
  !endif
6656 bpr 61 
  !if .mp3XXX notin $(slib_son)XXX
62 
!! audio venant de lang/swac
63 
   slib_son=$(slib_son).mp3
64 
  !endif
677 bpr 65 
 !read slib/media/$slib_player $slib_son,$slib_option
66 
!endif
20 reyssat 67 
 
5736 bpr 68 
slib_out=$slib_out