*
* Authors:
* Olivier Fredj <ofredj at proxad.net>
- * Florian octo Forster <octo at verplant.org>
+ * Florian octo Forster <ff at octo.it>
*/
#include "EXTERN.h"
#include "perl.h"
RETVAL
int
+_ping_setopt_ttl (obj, ttl)
+ pingobj_t *obj
+ int ttl
+ CODE:
+ RETVAL = ping_setopt (obj, PING_OPT_TTL, &ttl);
+ OUTPUT:
+ RETVAL
+
+int
_ping_setopt_source (obj, addr)
pingobj_t *obj
char *addr
OUTPUT:
RETVAL
+int
+_ping_setopt_device (obj, dev)
+ pingobj_t *obj
+ char *dev
+ CODE:
+#if OPING_VERSION >= 1003000
+ RETVAL = ping_setopt (obj, PING_OPT_DEVICE, dev);
+#else
+ RETVAL = -95;
+#endif
+ OUTPUT:
+ RETVAL
+
int
_ping_host_add (obj, host);
pingobj_t *obj
free (buffer);
break;
}
+ buffer[buffer_size - 1] = 0;
- XPUSHs (sv_2mortal (newSVpvn(buffer,buffer_size)));
+ XPUSHs (sv_2mortal (newSVpvn(buffer, strlen (buffer))));
free(buffer);
} while (0);
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