From: Florian Forster <octo@leeloo.lan.home.verplant.org>
Date: Sun, 15 Mar 2009 13:16:19 +0000 (+0100)
Subject: bindings/perl: Add the `get_recv_ttl' method.
X-Git-Tag: Net-Oping-1.10~3
X-Git-Url: https://git.octo.it/?a=commitdiff_plain;ds=sidebyside;h=5ddfd844d9731a135dd265cdcb76a0c93d98e72a;p=liboping.git

bindings/perl: Add the `get_recv_ttl' method.
---

diff --git a/bindings/perl/Oping.xs b/bindings/perl/Oping.xs
index c42374f..135733d 100644
--- a/bindings/perl/Oping.xs
+++ b/bindings/perl/Oping.xs
@@ -188,6 +188,28 @@ _ping_iterator_get_dropped (iter)
 	OUTPUT:
 		RETVAL
 
+int
+_ping_iterator_get_recv_ttl (iter)
+	pingobj_iter_t *iter
+	CODE:
+#if defined(PING_INFO_RECV_TTL)
+		int tmp;
+		size_t tmp_size;
+		int status;
+
+		RETVAL = -1;
+
+		tmp_size = sizeof (tmp);
+		status = ping_iterator_get_info (iter, PING_INFO_RECV_TTL,
+			(void *) &tmp, &tmp_size);
+		if (status == 0)
+			RETVAL = tmp;
+#else
+		RETVAL = -1;
+#endif
+	OUTPUT:
+		RETVAL
+
 const char *
 _ping_get_error (obj)
 	pingobj_t *obj
diff --git a/bindings/perl/lib/Net/Oping.pm b/bindings/perl/lib/Net/Oping.pm
index b14cc52..92709e4 100644
--- a/bindings/perl/lib/Net/Oping.pm
+++ b/bindings/perl/lib/Net/Oping.pm
@@ -314,6 +314,44 @@ sub get_dropped
   return ($data);
 } # get_dropped
 
+=item my I<$dropped> = I<$obj>-E<gt>B<get_recv_ttl> ()
+
+Returns a hash reference holding the I<Time to Live> (TTL) of the last received
+packet for each host. An example return value would be:
+
+  $ttl = { host1 => 60, host2 => 41, host3 => 243, ... };
+
+To signal an invalid or unavailable TTL, a negative number is returned.
+
+=cut
+
+sub get_recv_ttl
+{
+  my $obj = shift;
+  my $iter;
+  my $data = {};
+
+  $iter = _ping_iterator_get ($obj->{'c_obj'});
+  if (!$iter)
+  {
+    $obj->{'err_msg'} = "" . _ping_get_error ($obj->{'c_obj'});
+    return;
+  }
+
+  while ($iter)
+  {
+    my $host = _ping_iterator_get_hostname ($iter);
+    if ($host)
+    {
+      $data->{$host} = _ping_iterator_get_recv_ttl ($iter);
+    }
+
+    $iter = _ping_iterator_next ($iter);
+  }
+
+  return ($data);
+} # get_recv_ttl
+
 =item my I<$errmsg> = I<$obj>-E<gt>B<get_error> ();
 
 Returns the last error that occurred.