Improved starting message and tap_aggr error logging

resolves #2

Author: sigstop

src/tap_aggr.erl

@@ -25,12 +25,22 @@
 -record(state,{raw_edge_list,tap_ds,tap_client_data,query_count,time_stamp}).
 
 start()->
+    Pid = spawn(?MODULE,start,[0,2,30]),
+    Pid.
+
+    
+
+start(Time,Interval,MsgTime)->
     Receivers = tap_loom:get_ofdp_recv_list(),
     case Receivers of
-	[] -> timer:sleep(2000),
-	      io:format("tap_aggr: waiting for data recievers...~n"),
-	      start();
-	_ -> io:format("tap_aggr: starting...~n"),
+	[] -> timer:sleep(Interval * 1000),
+	      case Rem = Time rem MsgTime of
+		  Rem when Rem == 0 ->
+		      error_logger:info_msg("tap_aggr: waiting for data recievers for ~p seconds...~n",[Time]),
+		      start(Time+Interval,Interval,MsgTime);
+		  _ -> start(Time+Interval,Interval,MsgTime)
+		  end;
+	_ -> error_logger:info_msg("tap_aggr: starting...~n"),
 	     TapDS = tap_ds:start(),
 	     TCD = whereis(tap_client_data),
 	     {_Date,Time} = calendar:universal_time(),
@@ -41,6 +51,7 @@ start()->
     end.
 
 
+
 listen(State)->
     receive
 	{dns_reply,Reply}->

src/tapestry.erl

@@ -26,17 +26,17 @@
 -export([start/0, nci_from_log_lines/1, nci_from_benchmark_data/1]).
 
 start()->
+    error_logger:info_msg("Starting tapestry.  View $TAPESTRY_HOME/log/console.log for operational messages.~n"),
     [code:add_pathz(Path) || Path <- filelib:wildcard("./lib/loom/ebin")],
     [code:add_pathz(Path) || Path <- filelib:wildcard("./lib/loom/deps/*/ebin")],
     [code:add_pathz(Path) || Path <- filelib:wildcard("./lib/loom/apps/*/ebin")],
-    tap_yaws:start(),
     loom_app:start(),
     loom_sup:launch_controller(dns_tap,6634),
-    %Pid = tap_ds:start(),
-    %DataPid = whereis(tap_client_data),
-    %spawn(tap_client_data,fake_nci_feed2,[DataPid]),
+    tap_yaws:start(),
     Pid = tap_aggr:start(),
-    {Pid,ok}.
+    error_logger:info_msg("Stared tapestry with Process ID ~p.",[Pid]),
+    Pid.
+