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 |