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