anchor.diff:  		  {error,_}-> self()!{error,unavailable}
   	      end
         end,
  -      To);
  +      To)
  +	{ok,State};
   
  -handle_event(subscribe,To,Channel)->
  -    
  +handle_event({subscribe,To,Channel},State)->
  +
       Member = pg2:get_members(To),
       case Member of
   	[To|_]->pg2:join(Channel),
   		self()!subscribed;
   	{error,_} ->self()!error
  -    end;
  -
  -handle_event(subscribe,To,Channels) when is_list(Channels) ->
  +    end
  +	{ok,State};
  +handle_event({subscribe,To,Channels},State) when is_list(Channels) ->
   
       Member = pg2:get_members(To),
       case Member of
  
positive.code: 	[Pid|_] -> lager:info("Check ~p",Pid),
  		   Pid!{send,Msg};
  	{error,_}-> self()!{error,unavailable}
      end;
  handle_event(send_message,To,Msg) when is_list(To) ->  
  
      lists:foreach( 
        fun(N)->
  
negative.code: 		 self()!subscribed;
  	{error,_}-> self()!error
      end;
  {ok,State};
  handle_event({publish,Channel,Msg})->
  
      Member = pg2:get_members(Channel),
      case Member of 
  	[Channel|_]->Channel!{Channel,Msg};
  	{error,_}-> failed
      end
  	{ok,State}.
  