Subversion Repositories wimsdev

!set default_slib_option=preload="auto" height="320" width="600" controls="controls" class="wims_video"

!if $wims_read_parm!=slib_header
  !goto proc
!endif

!! translated text (title, comment...) are in scripts/help/$lang/slib/...

slib_author=Bernadette, Perrin-Riou
slib_example=[ogg="http://techslides.com/demos/sample-videos/small.ogv" mp4="http://techslides.com/demos/sample-videos/small.mp4", webm="http://techslides.com/demos/sample-videos/small.webm"]\
[ogg="\imagedir/exemple.ogg" mp4="\imagedir/exemple.mp4"],,poster="gifs/logo.gif"\

!exit

:proc
!!!if ...adm/ isin ...$module or .. isin $wims_read_parm or !!$wims_read_parm=$empty
!! !exit
!!!endif
!reset slib_out
!set slib_Type=mp4,webm,ogg,flv

!distribute items $wims_read_parm into slib_media,slib_option,slib_option2
!set slib_media=!declosing $slib_media
!set slib_media=!items2words $slib_media

!for slib_type in $slib_Type
  !reset slib_media_$slib_type
  slib_media_$slib_type=!getopt $slib_type in $(slib_media)
  slib_media_$slib_type=!replace internal $     $ by = in $(slib_media_$slib_type)
  !if $(slib_media_$slib_type)!=
    !set slib_out=!append line <source src="$(slib_media_$slib_type)" type="video/$slib_type" />\
    to $slib_out
  !endif
!next
!if $slib_out=$empty or $(slib_media_flv)!=$empty
  !if $slib_media_flv=$empty
    slib_media_flv=$slib_media
  !endif
  slib_out=<object type="application/x-shockwave-flash" data="flash/player_flv_maxi.swf" $slib_option>\
<param name="movie" value="flash/player_flv_maxi.swf" />\
<param name="allowFullScreen" value="true" />\
<param name="FlashVars" value="flv=$slib_media_flv" /></object>
  !exit
!endif
!default slib_option=$default_slib_option
slib_option=$slib_option $slib_option2
slib_out=<video $slib_option>\
 $slib_out\
 Your browser does not support HTML5 : <a href="$slib_media_mp4">Download video</a>.\
</video>