19da01c5c14405e5ba5ec2de8d15b81ab6498fee
1 /**
2 * Net-Oping - Oping.xs
3 * Copyright (C) 2007 Olivier Fredj
4 * Copyright (C) 2008,2009 Florian octo Forster
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; only version 2 of the License is
9 * applicable.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
19 *
20 * Authors:
21 * Olivier Fredj <ofredj at proxad.net>
22 * Florian octo Forster <octo at verplant.org>
23 */
24 #include "EXTERN.h"
25 #include "perl.h"
26 #include "XSUB.h"
28 #include <stdlib.h>
29 #include <stdio.h>
30 #include <string.h>
31 #include <errno.h>
32 #include <assert.h>
33 #include <netdb.h> /* NI_MAXHOST */
34 #include <oping.h>
36 MODULE = Net::Oping PACKAGE = Net::Oping
38 PROTOTYPES: DISABLE
40 pingobj_t *
41 _ping_construct ()
42 CODE:
43 RETVAL = ping_construct ();
44 OUTPUT:
45 RETVAL
47 void
48 _ping_destroy (obj);
49 pingobj_t *obj
50 CODE:
51 ping_destroy(obj);
53 int
54 _ping_setopt_timeout (obj, timeout)
55 pingobj_t *obj
56 double timeout
57 CODE:
58 RETVAL = ping_setopt (obj, PING_OPT_TIMEOUT, &timeout);
59 OUTPUT:
60 RETVAL
62 int
63 _ping_setopt_source (obj, addr)
64 pingobj_t *obj
65 char *addr
66 CODE:
67 RETVAL = ping_setopt (obj, PING_OPT_SOURCE, addr);
68 OUTPUT:
69 RETVAL
71 int
72 _ping_host_add (obj, host);
73 pingobj_t *obj
74 const char *host
75 CODE:
76 RETVAL = ping_host_add (obj, host);
77 OUTPUT:
78 RETVAL
80 int
81 _ping_host_remove (obj, host)
82 pingobj_t *obj
83 const char *host
84 CODE:
85 RETVAL = ping_host_remove (obj, host);
86 OUTPUT:
87 RETVAL
89 int
90 _ping_send (obj)
91 pingobj_t *obj
92 CODE:
93 RETVAL=ping_send (obj);
94 OUTPUT:
95 RETVAL
97 pingobj_iter_t *
98 _ping_iterator_get (obj)
99 pingobj_t *obj
100 CODE:
101 RETVAL = ping_iterator_get (obj);
102 OUTPUT:
103 RETVAL
105 pingobj_iter_t *
106 _ping_iterator_next (iter)
107 pingobj_iter_t *iter
108 CODE:
109 RETVAL = ping_iterator_next (iter);
110 OUTPUT:
111 RETVAL
113 double
114 _ping_iterator_get_latency (iter)
115 pingobj_iter_t *iter
116 CODE:
117 double tmp;
118 size_t tmp_size;
119 int status;
121 RETVAL = -1.0;
123 tmp_size = sizeof (tmp);
124 status = ping_iterator_get_info (iter, PING_INFO_LATENCY,
125 (void *) &tmp, &tmp_size);
126 if (status == 0)
127 RETVAL = tmp;
128 OUTPUT:
129 RETVAL
131 void
132 _ping_iterator_get_hostname (iter)
133 pingobj_iter_t *iter
134 PPCODE:
135 char *buffer;
136 size_t buffer_size;
137 int status;
139 do {
140 buffer = NULL;
141 buffer_size = 0;
142 status = ping_iterator_get_info (iter, PING_INFO_HOSTNAME,
143 (void *) buffer, &buffer_size);
144 if (status != ENOMEM)
145 break;
146 #if !defined(OPING_VERSION) || (OPING_VERSION <= 3005)
147 /* This is a workaround for a bug in 0.3.5. */
148 buffer_size++;
149 #endif
151 buffer = (char *) malloc (buffer_size);
152 if (buffer == NULL)
153 break;
155 status = ping_iterator_get_info (iter, PING_INFO_HOSTNAME,
156 (void *) buffer, &buffer_size);
157 if (status != 0)
158 {
159 free (buffer);
160 break;
161 }
163 XPUSHs (sv_2mortal (newSVpvn(buffer,buffer_size)));
164 free(buffer);
165 } while (0);
167 const char *
168 _ping_get_error (obj)
169 pingobj_t *obj
170 CODE:
171 RETVAL = ping_get_error(obj);
172 OUTPUT:
173 RETVAL