Guest User

Untitled

a guest
Apr 22nd, 2018
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.84 KB | None | 0 0
  1. init() ->
  2. dyngen_task:add_task(5*60*1000,sioltv_tvimport,fun ?MODULE:tv_importchans/0),
  3. tv_importchans().
  4.  
  5.  
  6. tv_importchans() ->
  7. {_,_,_,Chanl1uns} = sioltv_core:channel_streams_tv("fronttv"),
  8. Chanl1 = lists:keysort(#tvchan.index,Chanl1uns),
  9. Chanl = [[{<<"name">>,Chan#tvchan.name},{<<"coreidext">>,Chan#tvchan.docid},
  10. {<<"coreid">>,Chan#tvchan.id},{<<"bkdid">>,Chan#tvchan.key}] || Chan <- Chanl1],
  11. case ets:info(io2tv,size) of
  12. undefined ->
  13. ets:new(io2tv, [named_table,public,{heir,whereis(dyngen_task),<<>>}]);
  14. _ ->
  15. ok
  16. end,
  17. ets:insert(io2tv,{allchans,Chanl}),
  18. SaveToEts = fun(Chan) ->
  19. [{_,Name},_,_,{_,Key}] = Chan,
  20. ets:insert(io2tv,{Name,Chan}),
  21. ets:insert(io2tv,{util:tobin(string:to_lower(util:tolist(Name))),Chan}),
  22. ets:insert(io2tv,{Key,Chan})
  23. end,
  24. [SaveToEts(Chan) || Chan <- Chanl].
Add Comment
Please, Sign In to add comment