Subversion Repositories wimsdev

Rev

Rev 9921 | Rev 14272 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9921 Rev 13291
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
 !goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
- 
 
 4 
 
- 
 
 5 
!! translated text (title, comment...) are in scripts/help/$lang/slib/...
4 
 
 6 
 
5 
slib_author=Bernadette, Perrin-Riou
 7 
slib_author=Bernadette, Perrin-Riou
6 
ADDRESS=!record 0 of data/swac/packs
 8 
ADDRESS=!record 0 of data/swac/packs
7 
slib_example=\imagedir/exemple.mp3\
 9 
slib_example=http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3\
8 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,style="width:300px;height:20px",\
 10 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,style="width:300px;height:25px"\
9 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,width="100" height="20",player=dewplayer\
 - 
 
10 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=hbs_mp3_player\
 11 
http://$ADDRESS/eng-balm-judith/mp3/eng-aae3fab3.mp3|http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=player_mp3_multi\
11 
http://$ADDRESS/eng-balm-verbs/mp3/eng-I_bought.mp3,,player=player_mp3_multi
 12 
\imagedir/exemple.mp3
12 
!exit
 13 
!exit
13 
 
 14 
 
14 
:proc
 15 
:proc
15 
!!!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
16 
!! !exit
 17 
!! !exit
17 
!!!endif
 18 
!!!endif
18 
ADDRESS=!record 0 of data/swac/packs
 19 
ADDRESS=!record 0 of data/swac/packs
Line 21... Line 22...
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
24 
 
 25 
 
25 
!if rename iswordof $slib_option
 26 
!if rename iswordof $slib_option
26 
   slib_son=!rename $slib_son
 27 
  slib_son=!rename $slib_son
27 
!endif
 28 
!endif
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 
!! laisser slib_out sur une seule ligne (pour correspondance)
 33 
!! laisser slib_out sur une seule ligne (pour correspondance)
33 
slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son
 34 
slib_son=!replace internal cgi? by $(slib_sontest[-1])? in $slib_son
34 
!if $slib_player=
 - 
 
35 
!!no more used default ??
 - 
 
36 
 slib_objecttag=<object><embed src="$slib_son" $slib_option>\
 - 
 
37 
    <noembed> <bgsound src="$slib_son" /></noembed></embed></object>
 - 
 
38 
!!
 35 
 
39 
  slib_out=<audio controls="controls" class="wims_audio" $slib_option>
 36 
!! replace all swf players (except player_mp3_multi) by native html5
40 
 !if .mp3XXXX isin $(slib_son)XXXX
 37 
!if $slib_player issametext player_mp3_multi
41 
     slib_out=$slib_out<source src="$slib_son" type="audio/mpeg" />
 - 
 
42 
 !else
 - 
 
43 
   !if .oggXXXX isin $(slib_son)XXXX
 38 
  !if .mp3XXX notin $(slib_son)XXX
44 
    slib_out=$slib_out<source src="$slib_son" type="audio/ogg" />
 - 
 
45 
   !else
 - 
 
46 
     slib_son_ogg=$slib_son
 39 
    !! audio venant de lang/swac
47 
     !if $ADDRESS isin $slib_son_ogg
 40 
    slib_son=$(slib_son).mp3
48 
       slib_son_ogg=!replace internal mp3/ by ogg/ in $(slib_son)
 - 
 
49 
     !endif
 - 
 
50 
     slib_out=$slib_out<source src="$slib_son_ogg.ogg" type="audio/ogg" /><source src="$slib_son.mp3" type="audio/mpeg" />
 - 
 
51 
   !endif
 - 
 
52 
  !endif
 41 
  !endif
53 
  slib_out=$slib_out Your browser does not support the audio tag.</audio>
 42 
  !read slib/media/$slib_player $slib_son,$slib_option
54 
!else
 43 
!else
- 
 
 44 
 
55 
 !if $slib_player iswordof hbs_mp3_player
 45 
  !! As hbs_mp3_player was the smallest player (just play/pause buttons),
56 
  !default slib_option=height="16" width="60" autostart="false" loop="false"
 46 
  !! we set minimal width/height for compatibility
57 
    slib_player=player
 47 
  !if $slib_player issametext hbs_mp3_player
58 
  !else
 48 
    !set css_class=minimal_size
59 
   !default slib_option=height="20" width="180" autostart="false" loop="false"
 - 
 
60 
  !endif
 49 
  !endif
- 
 
 50 
 
- 
 
 51 
  slib_out=<audio controls class="wims_audio $css_class" $slib_option>
61 
  !if .mp3XXX notin $(slib_son)XXX
 52 
  !if .mp3XXXX isin $(slib_son)XXXX
- 
 
 53 
    slib_out=$slib_out<source src="$slib_son" type="audio/mpeg" />
- 
 
 54 
  !else
62 
!! audio venant de lang/swac
 55 
    !if .oggXXXX isin $(slib_son)XXXX
- 
 
 56 
      slib_out=$slib_out<source src="$slib_son" type="audio/ogg" />
- 
 
 57 
    !else
63 
   slib_son=$(slib_son).mp3
 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
- 
 
 62 
      slib_out=$slib_out<source src="$slib_son_ogg.ogg" type="audio/ogg" /><source src="$slib_son.mp3" type="audio/mpeg" />
- 
 
 63 
    !endif
64 
  !endif
 64 
  !endif
65 
 !read slib/media/$slib_player $slib_son,$slib_option
 65 
  slib_out=$slib_out Your browser does not support the audio tag. <a href="$slib_son">Download audio file</a></audio>
66 
!endif
 66 
!endif
67 
 
 67 
 
68 
slib_out=$slib_out
 68 
slib_out=$slib_out