Page 1 of 1

rtmpGUI - Serviio stream converter

PostPosted: Sat Mar 10, 2012 11:35 am
by marculos
Hi, I have written this little vbs which converts the streams from rtmpGUI (xml) to a text file with each stream formatted for Serviio. To get this to work

1/ Extract the feeds as an xml from rtmpGUI
2/ Edit the attached vbs and change the two settings to a location on your pc where you will run the vbs from
strXMLFile = "c:\somewhere\channels.xml"
strtxtFile = "c:\somewhere\channels.txt"
3/ Run the attached vbs and the text file specified will be generated with all streams in a serviio friendly way. I'm sure it could be done much more efficiently, just a quick n dirty solution for me !

Output will be like
[tru:] (Germany) ---------------rtmp://stream2.trutv.ip-fernsehen.net:80/trutv-live2/_definst_/ swfUrl=http://player.longtailvideo.com/player.swf pageUrl=http://www.adamski.tv/146tru.php playpath=s_DE_true
+23 (Panama) ---------------rtmp://200.75.216.156/live/ swfUrl=http://www.freeetv.com/script/mediaplayer/player.swf pageUrl=http://www.freeetv.com/ playpath=livestream
1 Auto (Ukraine) ---------------rtmp://ua.parom.tv:1935/stream/ swfUrl=http://www.parom.tv/player.swf pageUrl=http://www.parom.tv/1auto playpath=stream110
1+1 (Ukraine) ---------------rtmp://95.67.65.135:1935/rtplive swfUrl=http://intv.ua/jwplayer57/player.swf pageUrl=http://intv.ua/ playpath=1plus1_m.stream

Just copy the string from rtmp onwards and paste as a stream in seriio, tested a few and seems to work ok. Any questions let me know.

Ah I see I cant add VBS files ! heres the code, just copy and paste into a text editor and save as a .vbs. You can just use the text file attached to , just wanted to provide the vbs so you can create updated versions of streams when they change ...


on error resume next

Set xmlDoc = CreateObject("Microsoft.xmlDOM")

strXMLFile = "C:\Users\mark\Documents\channels\channels.xml"
strtxtFile = "C:\Users\mark\Documents\channels\channels.txt"




Set fileSys = CreateObject("Scripting.FileSystemObject")
Set fileTxt = fileSys.CreateTextFile(strtxtFile, True)




xmlDoc.Load(strXMLFile)
xmlDoc.async=False

Set objChildNodes = xmlDoc.getElementsByTagName("*")

For Each strNode In objChildNodes
'msgbox strNode.tagName
'msgbox strNode.text

if strNode.tagName = "title" then
strTitle = strNode.text
end if

if strNode.tagName = "swfUrl" then
strSwf = strNode.text
end if

if strNode.tagName = "link" then
strRtmp = strNode.text
end if

if strNode.tagName = "pageUrl" then
strPageUrl = strNode.text
end if

if strNode.tagName = "playpath" then
strPlaypath = strNode.text
end if

if strNode.tagName = "advanced" then
strAdvanced = strNode.text
end if

strChannel = strTitle & " ---------------" & strRtmp & " " & "swfUrl=" & strSwf & " " & strAdvanced & " " & "pageUrl=" & strPageURL & " " & "playpath=" & strPlaypath


if strNode.tagName = "advanced" then
'msgbox strChannel

fileTxt.WriteLine(strChannel)
strChannel = ""
end if


Next


fileTxt.close

Re: rtmpGUI - Serviio stream converter

PostPosted: Sat Mar 10, 2012 2:08 pm
by magnoman
Thanks marculos
Works great :geek:

Re: rtmpGUI - Serviio stream converter

PostPosted: Sun Mar 11, 2012 1:46 am
by woodg8
Just what I wanted

Thank you