% On Error Resume Next If Request.Form( "postback" ) = "true" Then Response.ContentType = "text/roku" Response.AddHeader "Content-Disposition","inline; filename=SlimRoku.roku" Response.Write "#!/bin/sh" & vbLF Response.Write "#" & vbLF Response.Write "# SlimRoku.app [SlimServerIP] [-options]" & vbLF Response.Write "#" & vbLF Response.Write "SXPATH=`echo ""$0"" | sed 's/\/SlimRoku.roku$//'`" & vbLF 'Response.Write "export LD_LIBRARY_PATH=""$SXPATH""" & vbLF Dim clString clString = """$SXPATH/SlimRoku.app""" If Request.Form( "SpecifyIPAddress" ) = "on" Then If Request.Form( "IPAddress" ) <> "" Then clString = clString & " " & Request.Form( "IPAddress" ) End If End If If Request.Form( "Debug" ) = "on" Then clString = clString & " -Debug" End If If Request.Form( "EnableWrapAround" ) = "on" Then clString = clString & " -EnableWrapAround" End If If Request.Form( "UseLargeFont" ) = "on" Then clString = clString & " -UseLargeFont" End If If Request.Form( "LargeCoverArt" ) = "on" Then clString = clString & " -LargeCoverArt" End If If Request.Form( "NoInfoOnHide" ) = "on" Then clString = clString & " -NoInfoOnHide" End If If Request.Form( "NoSSOnHide" ) = "on" Then clString = clString & " -NoSSOnHide" End If If Request.Form( "UseXMLInLibrary" ) = "on" Then clString = clString & " -UseXMLInLibrary" End If If Request.Form( "SSTransport" ) = "on" Then clString = clString & " -SSTransport" End If If Request.Form( "DisableScreensaver" ) = "on" Then clString = clString & " -Screensaver=0" ElseIf Request.Form( "Screensaver" ) = "on" Then If IsNumeric( Request.Form( "ScreensaverTimeout" ) ) Then clString = clString & " -Screensaver=" & Request.Form( "ScreensaverTimeout" ) End If End If If Request.Form( "SpecifyRepeatMode" ) = "on" Then clString = clString & " -RepeatMode=" & Request.Form( "RepeatMode" ) End If If Request.Form( "SpecifyShuffleMode" ) = "on" Then clString = clString & " -ShuffleMode=" & Request.Form( "ShuffleMode" ) End If If Request.Form( "SpecifyPlaylist" ) = "on" Then If Request.Form( "PlaylistId" ) <> "" Then clString = clString & " -PlaylistId=" & Request.Form( "PlaylistId" ) End If End If If Request.Form( "SpecifyCLIPort" ) = "on" Then If Request.Form( "SlimCLIPort" ) <> "" Then clString = clString & " -SlimCLIPort=" & Request.Form( "SlimCLIPort" ) End If End If If Request.Form( "SpecifyWebPort" ) = "on" Then If Request.Form( "SlimWebPort" ) <> "" Then clString = clString & " -SlimWebPort=" & Request.Form( "SlimWebPort" ) End If End If If Request.Form( "SpecifyXMUser" ) = "on" Then If Request.Form( "XMUser" ) <> "" Then clString = clString & " -XMUser=" & Request.Form( "XMUser" ) End If If Request.Form( "XMPassword" ) <> "" Then clString = clString & " -XMPassword=" & Request.Form( "XMPassword" ) End If End If Dim objFSO Dim objTextFile ' Create an instance of the the File System Object and assign it to objFSO. Set objFSO = CreateObject("Scripting.FileSystemObject") ' Open the file Set objTextFile = objFSO.OpenTextFile( Server.MapPath("temp.smk"), 8, True ) objTextFile.WriteLine clString ' Close the file. objTextFile.Close 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 SlimRoku, then click the Download SlimRoku.roku File button to download the .roku file.