Rev 7030 | Rev 7320 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 7030 | Rev 7138 | ||
|---|---|---|---|
| Line 14... | Line 14... | ||
| 14 | 14 | ||
| 15 | :proc |
15 | :proc |
| 16 | !!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty |
16 | !!!if ...adm/ isin ...$module or .. isin $wims_read_parm or $wims_read_parm=$empty |
| 17 | !! !exit |
17 | !! !exit |
| 18 | !!!endif |
18 | !!!endif |
| - | 19 | ADDRESS=!record 0 of data/swac/packs |
|
| 19 | !reset slib_out |
20 | !reset slib_out |
| 20 | !distribute items $wims_read_parm into slib_son,slib_option,slib_option1 |
21 | !distribute items $wims_read_parm into slib_son,slib_option,slib_option1 |
| 21 | 22 | ||
| 22 | slib_option2 = !getopt option in $slib_option1 |
23 | slib_option2 = !getopt option in $slib_option1 |
| 23 | slib_player=!getopt player in $slib_option1 |
24 | slib_player=!getopt player in $slib_option1 |
| Line 28... | Line 29... | ||
| 28 | slib_sontest=!replace internal . by , in $slib_son |
29 | slib_sontest=!replace internal . by , in $slib_son |
| 29 | !if $(slib_sontest[-1]) notwordof mp3 ogg |
30 | !if $(slib_sontest[-1]) notwordof mp3 ogg |
| 30 | slib_sontest=mp3 |
31 | slib_sontest=mp3 |
| 31 | !endif |
32 | !endif |
| 32 | slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son |
33 | slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son |
| 33 | - | ||
| 34 | !if $slib_player= |
34 | !if $slib_player= |
| 35 | slib_objecttag=<object><embed src="$slib_son" $slib_option>\ |
35 | slib_objecttag=<object><embed src="$slib_son" $slib_option>\ |
| 36 | <noembed> <bgsound src="$slib_son" /></noembed>\ |
36 | <noembed> <bgsound src="$slib_son" /></noembed>\ |
| 37 | </embed></object> |
37 | </embed></object> |
| 38 | 38 | ||
| Line 44... | Line 44... | ||
| 44 | !if .oggXXXX isin $(slib_son)XXXX |
44 | !if .oggXXXX isin $(slib_son)XXXX |
| 45 | slib_out=$slib_out\ |
45 | slib_out=$slib_out\ |
| 46 | <source src="$slib_son" type="audio/ogg" />\ |
46 | <source src="$slib_son" type="audio/ogg" />\ |
| 47 | $slib_objecttag |
47 | $slib_objecttag |
| 48 | !else |
48 | !else |
| - | 49 | slib_son_ogg=$slib_son |
|
| - | 50 | !if $ADDRESS isin $slib_son_ogg |
|
| - | 51 | slib_son_ogg=!replace internal mp3/ by ogg/ in $(slib_son) |
|
| - | 52 | !endif |
|
| 49 | slib_out=$slib_out\ |
53 | slib_out=$slib_out\ |
| 50 | <source src=" |
54 | <source src="$slib_son_ogg.ogg" type="audio/ogg" />\ |
| 51 | <source src="$slib_son.mp3" type="audio/mpeg" /> |
55 | <source src="$slib_son.mp3" type="audio/mpeg" /> |
| 52 | 56 | ||
| 53 | !endif |
57 | !endif |
| 54 | slib_out=$slib_out\ |
58 | slib_out=$slib_out\ |
| 55 | Your browser does not support the audio tag.\ |
59 | Your browser does not support the audio tag.\ |