% On Error Resume Next If Request.Form( "postback" ) = "true" Then Response.ContentType = "text/roku" Response.AddHeader "Content-Disposition","inline; filename=" & Request.Form( "filename" ) Response.Write "#!/bin/sh" & vbLF Response.Write "#" & vbLF Response.Write "# MPlay.app [-options]" & vbLF Response.Write "#" & vbLF Response.Write "SXPATH=`echo ""$0"" | sed 's/\/" & Request.Form( "filename" ) & "$//'`" & vbLF Dim clString clString = """$SXPATH/MPlay.app""" If Request.Form( "chkBrowseDir" ) = "on" Then If Request.Form( "browsedir" ) <> "" Then clString = clString & " -browsedir=""" & Request.Form( "browsedir" ) & """" End If End If If Request.Form( "chkBrowseRoot" ) = "on" Then If Request.Form( "browseroot" ) <> "" Then clString = clString & " -browseroot=""" & Request.Form( "browseroot" ) & """" End If End If If Request.Form( "chkNoIcons" ) = "on" Then clString = clString & " -noicons" End If If Request.Form( "chkLargeIcons" ) = "on" Then clString = clString & " -largeicons" End If If Request.Form( "chkHideSize" ) = "on" Then clString = clString & " -hidesize" End If If Request.Form( "chkNoMenu" ) = "on" Then clString = clString & " -nomenu" End If If Request.Form( "chkMenuOnEOF" ) = "on" Then clString = clString & " -menuoneof" End If If Request.Form( "chkExitAtEnd" ) = "on" Then clString = clString & " -exitatend" End If If Request.Form( "chkMaxBuffer" ) = "on" Then clString = clString & " -maxbuffer" End If If Request.Form( "chkNoBrowserDelete" ) = "on" Then clString = clString & " -nobrowserdelete" End If If Request.Form( "chkNoResume" ) = "on" Then clString = clString & " -noresume" End If If Request.Form( "chkBrowserWithBack" ) = "on" Then clString = clString & " -browserwithback" End If If Request.Form( "chkInfoTimeout" ) = "on" Then If IsNumeric( Request.Form( "infotimeout" ) ) Then clString = clString & " -infotimeout=" & Request.Form( "infotimeout" ) End If End If If Request.Form( "chkFixTS" ) = "on" Then clString = clString & " -FixTS" End If If Request.Form( "chkUnattended" ) = "on" Then clString = clString & " -unattended" End If If Request.Form( "chkNTSCRes" ) = "on" Then clString = clString & " -NTSCRes=" & Request.Form( "NTSCRes" ) End If If Request.Form( "chkPALRes" ) = "on" Then clString = clString & " -PALRes=" & Request.Form( "PALRes" ) End If If Request.Form( "chkVTSThreshold" ) = "on" Then If IsNumeric( Request.Form( "vtsthreshold" ) ) Then clString = clString & " -VTSThreshold=" & Request.Form( "vtsthreshold" ) End If End If Response.Write clString & vbLF Response.End End If If Err.Number <> 0 Then Response.Write "Error" & Err.Message End If %>
Use the form below to specify the command-line options you'd like to use with MPlay, then click the Download MPlay.roku File button to download the .roku file.