/Testenviro/run Torrent client/testTalkToJava.erl~

http://github.com/anonymous-admin/anonymous · Unknown · 38 lines · 24 code · 14 blank · 0 comment · 0 complexity · d33981dbc41db04957c9ab7207c6b6a8 MD5 · raw file 

    

  1. -module(testTalkToJava).
    2. 

  2. -export([start/0]).
    3. 

  3. %-include("defs.hrl").
    4. 

  4. 

  5. start() ->
    6. 

  6.     ComputerName = net_adm:localhost(),
    7. 

  7.     NodeName = "javaNode@" ++ ComputerName,
    8. 

  8.     NodeAtom = list_to_atom(NodeName),
    9. 

  9.     timer:sleep(7000),
    10. 

  10.     {mailbox, NodeAtom} ! {self(), "startconnection"},
    11. 

  11.     %%blackboard ! {register_static, gui},
    12. 

  12.     %%blackboard ! {subscribe, gui, [torrent_info, torrent_status, tracker_info, seeders, leechers, uploaded, downloaded, left, torrent_size, file_name, pieces, download_speed, upload_speed]},
    13. 

  13.     rec(NodeAtom, now()).
    14. 

  14. 

  15. 

  16. rec(NodeAtom, {_,_,Value}) ->
    17. 

  17. TorrentId = "torrent1",
    18. 

  18. 

  19. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 0, integer_to_list(Value*2)},
    20. 

  20. 

  21. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 1, integer_to_list(Value*3)},
    22. 

  22. 

  23. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 3, integer_to_list(Value*5)},
    24. 

  24. 

  25. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 4, integer_to_list(Value*4)},
    26. 

  26. 

  27. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 5, integer_to_list(Value+200)},
    28. 

  28. 

  29. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 6, integer_to_list(Value+300)},
    30. 

  30. 

  31. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 7, integer_to_list(Value+200)},
    32. 

  32. 

  33. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 8, integer_to_list(Value-200)},
    34. 

  34. 

  35. 	    {mailbox2, NodeAtom} ! {self(), TorrentId, 9, "Torrent finished downloading"},
    36. 

  36. 

  37.     rec(NodeAtom, now()).
    38.