@@ -6,7 +6,8 @@ reset_schema/0, create_tables/0, insert_card/1, - all_cards/0 + all_cards/0, + read_cards/1 ]). greet() -> "Hello kitty.". @@ -31,3 +32,8 @@ all_cards() -> F = fun() -> qlc:e(qlc:q([X || X <- mnesia:table(card)])) end, {atomic, Cards} = mnesia:transaction(F), Cards. + +read_cards(Filename) -> + {ok, FileContents} = file:read_file(Filename), + json_eep:json_to_term(binary_to_list(FileContents)). + src/oracle.erl 2f7a40846c5e342f740c411af341dc9a9fa91859 Colin Campbell-McPherson colin@logaan.net http://github.com/logaan/mana-erlang/commit/1616f4fe4834ee6d9de07a95f5d086a7222f8431 1616f4fe4834ee6d9de07a95f5d086a7222f8431 2009-10-07T07:17:28-07:00 2009-10-07T07:17:28-07:00 reading in the legacy card list and parsing the json 5d5c359cfe17418a3d75f137e32e65bc28cc28bf Colin Campbell-McPherson colin@logaan.net