=item B<check_live> { $username, $domain, \%data }

=back

=over

Checks if a certain subscriber is on a call. Returns true if they are and false if they are not.

=back

=cut

sub check_live {
  my $self = shift;
  my $data = shift;

  $self->_require_userdom($data);
  $self->_check_subscriber_data($$data{data});

  my $dispatcher = Sipwise::Provisioning::XMLDispatcher->new;
  my @results = $dispatcher->dispatch("proxy-ng", 1, 1, <<EOF);
<?xml version="1.0" ?>
  <methodCall>
  <methodName>dlg.list</methodName>
  <params/>
  </methodCall>
EOF
  my $result = @results[0]->[2];

  my $substring = "$$data{username}\@$$data{domain}";
  if (index($result, $substring) != -1) {
    return "true";
  }
  return "false";  
}