Subversion Repositories wimsdev

Rev

Rev 14272 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
13291 obado 2 
  !goto proc
20 reyssat 3 
!endif
4158 bpr 4 
 
13291 obado 5 
!! translated text (title, comment...) are in scripts/help/$lang/slib/...
6 
 
4349 bpr 7 
slib_author=Bernadette, Perrin-Riou
5436 bpr 8 
ADDRESS=!record 0 of data/swac/packs
14272 obado 9 
slib_example=https://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3\
10 
https://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,style="width:300px;height:25px"\
11 
https://$ADDRESS/eng-balm-judith/mp3/eng-aae3fab3.mp3|https://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=player_mp3_multi\
13291 obado 12 
\imagedir/exemple.mp3
20 reyssat 13 
!exit
14 
 
15 
:proc
979 bpr 16 
!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty
17 
!! !exit
18 
!!!endif
7138 bpr 19 
ADDRESS=!record 0 of data/swac/packs
7320 bpr 20 
!reset slib_out slib_player slib_son slib_option slib_option1
677 bpr 21 
!distribute items $wims_read_parm into slib_son,slib_option,slib_option1
20 reyssat 22 
 
677 bpr 23 
slib_option2 = !getopt option in $slib_option1
24 
slib_player=!getopt player in $slib_option1
20 reyssat 25 
 
677 bpr 26 
!if rename iswordof $slib_option
13291 obado 27 
  slib_son=!rename $slib_son
20 reyssat 28 
!endif
4765 bpr 29 
slib_sontest=!replace internal . by , in $slib_son
7030 bpr 30 
!if $(slib_sontest[-1]) notwordof mp3 ogg
6680 bpr 31 
  slib_sontest=mp3
32 
!endif
7320 bpr 33 
!! laisser slib_out sur une seule ligne (pour correspondance)
4765 bpr 34 
slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son
13291 obado 35 
 
36 
!! replace all swf players (except player_mp3_multi) by native html5
37 
!if $slib_player issametext player_mp3_multi
38 
  !if .mp3XXX notin $(slib_son)XXX
39 
    !! audio venant de lang/swac
40 
    slib_son=$(slib_son).mp3
6657 bpr 41 
  !endif
13291 obado 42 
  !read slib/media/$slib_player $slib_son,$slib_option
677 bpr 43 
!else
13291 obado 44 
 
45 
  !! As hbs_mp3_player was the smallest player (just play/pause buttons),
46 
  !! we set minimal width/height for compatibility
47 
  !if $slib_player issametext hbs_mp3_player
48 
    !set css_class=minimal_size
49 
  !endif
50 
 
51 
  slib_out=<audio controls class="wims_audio $css_class" $slib_option>
52 
  !if .mp3XXXX isin $(slib_son)XXXX
17173 bpr 53 
    slib_out=$slib_out<source src="$slib_son" type="audio/mpeg">
739 bpr 54 
  !else
13291 obado 55 
    !if .oggXXXX isin $(slib_son)XXXX
17173 bpr 56 
      slib_out=$slib_out<source src="$slib_son" type="audio/ogg">
13291 obado 57 
    !else
58 
      slib_son_ogg=$slib_son
59 
      !if $ADDRESS isin $slib_son_ogg
60 
        slib_son_ogg=!replace internal mp3/ by ogg/ in $(slib_son)
61 
      !endif
17173 bpr 62 
      slib_out=$slib_out<source src="$slib_son_ogg.ogg" type="audio/ogg"><source src="$slib_son.mp3" type="audio/mpeg">
13291 obado 63 
    !endif
677 bpr 64 
  !endif
13291 obado 65 
  slib_out=$slib_out Your browser does not support the audio tag. <a href="$slib_son">Download audio file</a></audio>
677 bpr 66 
!endif
20 reyssat 67 
 
5736 bpr 68 
slib_out=$slib_out