From 4dc3fb4f6884faa3ae1ce3cab6d35f2a1ff87d8a Mon Sep 17 00:00:00 2001
From: Doug MacEachern <dougm@hyperic.com>
Date: Tue, 10 Apr 2007 02:41:15 +0000
Subject: [PATCH] add net_connection_list wrapper

---
 bindings/perl/Sigar.xs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/bindings/perl/Sigar.xs b/bindings/perl/Sigar.xs
index b8197744..a4c012b1 100644
--- a/bindings/perl/Sigar.xs
+++ b/bindings/perl/Sigar.xs
@@ -396,3 +396,28 @@ net_interface_list(sigar)
     OUTPUT:
     RETVAL
 
+SV *
+net_connection_list(sigar, flags)
+    Sigar sigar
+    int flags
+
+    PREINIT:
+    sigar_net_connection_list_t conn_list;
+    int status;
+
+    CODE:
+    status = sigar_net_connection_list_get(sigar, &conn_list, flags);
+
+    if (status != SIGAR_OK) {
+        SIGAR_CROAK(sigar, "net_connection_list");
+    }
+
+    RETVAL = convert_2svav((char *)&conn_list.data[0],
+                           conn_list.number,
+                           sizeof(*conn_list.data),
+                           "Sigar::NetConnection");
+
+    sigar_net_connection_list_destroy(sigar, &conn_list);
+
+    OUTPUT:
+    RETVAL