diff options
author | Alexander Sulfrian <alexander@sulfrian.net> | 2010-10-13 11:52:54 +0200 |
---|---|---|
committer | Alexander Sulfrian <alexander@sulfrian.net> | 2010-10-13 11:52:54 +0200 |
commit | ed7f050a0f6d008b327098ad930c4873d3b3e461 (patch) | |
tree | 2fce818b0d6aa0716fce251788b373e1b74f9eb8 /server/media.erl | |
parent | 69c37e13acd820ef48f949afc795bf01d3690ae1 (diff) | |
download | erlang-ed7f050a0f6d008b327098ad930c4873d3b3e461.tar.gz erlang-ed7f050a0f6d008b327098ad930c4873d3b3e461.tar.xz erlang-ed7f050a0f6d008b327098ad930c4873d3b3e461.zip |
changed repository layout
Diffstat (limited to 'server/media.erl')
-rw-r--r-- | server/media.erl | 46 |
1 files changed, 46 insertions, 0 deletions
diff --git a/server/media.erl b/server/media.erl new file mode 100644 index 0000000..a761f64 --- /dev/null +++ b/server/media.erl @@ -0,0 +1,46 @@ +-module(media). +-export([init/0,insert/3, ask/2]). + +% Since we are not willing to calculate and deliver all the id3 tags everytime they are requested, +% we try to get something persistent with mnesia. +% Concerning the parsing of id3tags we use the library id3v2 by Brendon Hogger. For detailed information take a +% look at the header of the library. + +% What is an entry in our database made of? By the way the filepath includes the filename. + +-record(track, {artist, title, votes, locked, filepath }). + +% With which application do we play mp3s? + +player(path) -> + {ok, ["/usr/bin/env", "mplayer", "-quiet", path]}. + +% Before this module becomes usable, we must initialize it with the following steps: +% 1. Initialize the mnesiadatabase and create the table within it. +% 2. Parse the mp3s in the working directory and add them to the database +% 3. Get into a loop so the database can be actually queried and files can be played. + +init() -> + mnesia:create_schema([node()]), + mnesia:start(), + mnesia:create_table(track, [{attributes, record_info(fields, track)}]), + io:format("Initialisation of mnesia successful.\n"). + +% Basic insertion of entrys into the database. Some entries are left out because they are 0 or false. + +insert(Artist, Title, Filepath) -> + F = fun() -> + mnesia:write(#track{artist = Artist, title = Title, votes = 0, locked = false, filepath = Filepath}) + end, + mnesia:transaction(F). + +% We want to query in order to simplify the next calls. +ask(Artist, Title) -> + F = fun() -> + mnesia:match_object({track, Artist, Title, '_', '_', '_'}) + end, + {atomic, Results} = mnesia:transaction(F), + Results. + +% We want to play mp3s from our database. +play(Artist, Title) -> io:format("blub"). |