lua playlist: add playlist parser for Anevia Toucan list_streams.idp functionality.
[vlc.git] / share / lua / playlist / anevia_streams.lua
1 --[[
2  $Id$
3
4  Parse list of available streams on Anevia Toucan servers.
5  The URI rtsp://ipaddress:554/list_streams.idp describes a list of
6  available streams on the server.
7
8  Copyright © 2009 M2X BV
9
10  Authors: Jean-Paul Saman <jpsaman@videolan.org>
11
12  This program is free software; you can redistribute it and/or modify
13  it under the terms of the GNU General Public License as published by
14  the Free Software Foundation; either version 2 of the License, or
15  (at your option) any later version.
16
17  This program is distributed in the hope that it will be useful,
18  but WITHOUT ANY WARRANTY; without even the implied warranty of
19  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
20  GNU General Public License for more details.
21
22  You should have received a copy of the GNU General Public License
23  along with this program; if not, write to the Free Software
24  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston MA 02110-1301, USA.
25 --]]
26
27 -- Probe function.
28 function probe()
29     return vlc.access == "http"
30         and string.match( vlc.path, "list_streams.idp" )
31 end
32
33 -- Parse function.
34 function parse()
35     p = {}
36     _,_,server = string.find( vlc.path, "(.*)/list_streams.idp" )
37     while true do
38         line = vlc.readline()
39         if not line then break end
40
41         if string.match( line, "<streams[-]list> </stream[-]list>" ) then
42             break
43         elseif string.match( line, "<streams[-]list xmlns=\"(.*)\">" ) then
44             while true do
45                 line = vlc.readline()
46                 if not line then break end
47                 if string.match( line, "<streamer name=\"(.*)\"> </streamer>" ) then
48                     break;
49                 elseif string.match( line, "<streamer name=\"(.*)\">" ) then
50                     _,_,streamer = string.find( line, "name=\"(.*)\"" )
51                     while true do
52                         line = vlc.readline()
53                         if not line then break end
54                         -- ignore <host name=".." /> tags
55                         -- ignore <port number=".." /> tags
56                         if string.match( line, "<input name=\"(.*)\">" ) then
57                             _,_,path = string.find( line, "name=\"(.*)\"" )
58                             while true do
59                                 line = vlc.readline()
60                                 if not line then break end
61                                 if string.match( line, "<stream id=\"(.*)\" />" ) then
62                                     _,_,media = string.find( line, "id=\"(.*)\"" )
63                                     video = "rtsp://" .. tostring(server) .. "/" .. tostring(path) .. "/" .. tostring(media)
64                                     vlc.msg.dbg( "adding to playlist " .. tostring(video) )
65                                     table.insert( p, { path = video; name = media, url = video } )
66                                 end
67 --                              end of input tag found
68                                 if string.match( line, "</input>" ) then
69                                     break
70                                 end
71                             end
72                         end
73                     end
74                     if not line then break end
75 --                  end of streamer tag found
76                     if string.match( line, "</streamer>" ) then
77                         break
78                     end
79                 end
80                 if not line then break end
81 --              end of streams-list tag found
82                 if string.match( line, "</streams-list>" ) then
83                     break
84                 end
85             end
86         end
87
88     end
89     return p
90 end