ViewVC Help
View File | Revision Log | Show Annotations | Revision Graph | Root Listing
root/i-scream/projects/cms/source/ihost/ihost.c
(Generate patch)

Comparing projects/cms/source/ihost/ihost.c (file contents):
Revision 1.6 by pajs, Sun May 12 17:33:21 2002 UTC vs.
Revision 1.53 by tdb, Sat Sep 24 13:30:40 2005 UTC

# Line 1 | Line 1
1 + /*
2 + * i-scream central monitoring system
3 + * http://www.i-scream.org
4 + * Copyright (C) 2000-2004 i-scream
5 + *
6 + * This program is free software; you can redistribute it and/or
7 + * modify it under the terms of the GNU General Public License
8 + * as published by the Free Software Foundation; either version 2
9 + * of the License, or (at your option) any later version.
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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
19 + */
20 +
21 + #ifdef HAVE_CONFIG_H
22 + #include "config.h"
23 + #endif
24 +
25   #include <stdio.h>
2 #include <sys/socket.h>
26   #include <stdlib.h>
27   #include <unistd.h>
28 < #include <syslog.h>
28 > #include <string.h>
29 > #include <sys/types.h>
30 > #include <stdarg.h>
31 > #include <errno.h>
32 > #ifndef WIN32
33 > #include <sys/socket.h>
34 > #include <netdb.h>
35   #include <netinet/in.h>
36 + #else
37 + #include <winsock2.h>
38 + #include <getopt.h>
39 + #endif
40 + #include <time.h>
41 +
42   #include <ukcprog.h>
43 < #include <netdb.h>
9 < #include <strings.h>
43 > #include <statgrab.h>
44  
45 < #define RECONFIGURE_RETURN_CODE 2
45 > #define LOG_CRIT 0
46 > #define LOG_ERR 1
47 > #define LOG_INFO 2
48 > #define LOG_DEBUG 3
49  
50 + #define SERVICENAME "ihost"
51 +
52 + /* Windows printf does not understand %lld, so we have to use %I64d */
53 + #ifdef WIN32
54 + #define LLD "%I64d"
55 + #define OPTSTRING "vVn:i:s:p:w:h"
56 + #define SLEEP 10000
57 + #else
58 + #define LLD "%lld"
59 + #define OPTSTRING "vfVn:i:s:p:h"
60 + #define SLEEP 10
61 + #endif
62 +
63 + /* The "socket" */
64 + #ifdef WIN32
65 + #define IHOST_SOCKET SOCKET
66 + #define CLOSESOCKET(socket) closesocket(socket)
67 + #else
68 + #define IHOST_SOCKET FILE *
69 + #define CLOSESOCKET(socket) fclose(socket)
70 + #endif
71 +
72   typedef struct{
73 <        int fm_port;
74 <        char *fm_host;
75 <        
76 <        char *my_fqdn;
73 >        int filtermanager_port;
74 >        char *filtermanager_host;
75 >
76 >        char *host_ip;
77 >        char *host_fqdn;
78 >        int preset_fqdn;
79 >        int preset_ip;
80 >
81          char *server_fqdn;
82          int server_udp_port;
83 <        int server_tcp_port;
83 >
84 >        /* Weird stuff iscream wants sent to it */
85          char *last_modified;
86 <        char *files_list;
87 <        char *key;
86 >        char *file_list;
87 >
88          int udp_update_time;
25        int tcp_update_time;
89  
90 +        time_t config_ttl;
91 +
92   }ihost_state_t;
93  
94 < char* sock_comm(FILE *f_r, FILE *f_w, char* sendString){
95 <        char *reply;
96 <        fprintf(f_w, "%s", sendString);
32 <        fflush(f_w);
33 <        reply=fpgetline(f_r);
34 <        /* Returns pointer to static buffer */
35 <        return reply;
36 < }      
94 > typedef struct{
95 >        int verbose;
96 >        int daemon;
97  
98 < int ihost_configure(ihost_state_t *ihost_state){
98 >        FILE *log;
99 > }ihost_config_t;
100 >
101 > typedef struct{
102          struct sockaddr_in addr;
103 <        struct in_addr haddr;
104 <        int sd;
42 <        FILE *fm_fd_r, *fm_fd_w;
43 <        char *reply;
44 <        char *reply_ptr;
103 >        int sock;
104 > }udp_sockinfo_t;
105  
106 <        /* Check to see if anything needs to be free'd */
107 <        if (ihost_state->my_fqdn!=NULL) free(ihost_state->my_fqdn);
48 <        if (ihost_state->server_fqdn!=NULL) free(ihost_state->server_fqdn);
49 <        if (ihost_state->last_modified!=NULL) free(ihost_state->last_modified);
50 <        if (ihost_state->files_list!=NULL) free(ihost_state->files_list);
106 > ihost_config_t ihost_config;
107 > ihost_state_t ihost_state;
108  
109 <        if ((sd = socket(AF_INET, SOCK_STREAM, PF_UNSPEC)) < 0) {
53 <                errf("Can't create AF_INET socket (%m)");
54 <                return -1;
55 <        }
109 > extern int errno;
110  
111 <        if (get_host_addr(ihost_state->fm_host, &haddr) != 0){
112 <                errf("Failed to resolve address %s (%m)", ihost_state->fm_host);
113 <                return -1;
111 > #ifdef WIN32
112 > int run_server = 1;
113 > int run_as_service = 0;
114 > SERVICE_STATUS service_status;
115 > SERVICE_STATUS_HANDLE hstatus;
116 > #endif
117 >
118 > /* Taken from the OpenSSH code. Its licence included in function.*/
119 > #ifndef HAVE_STRLCAT
120 >
121 > /*
122 > * Copyright (c) 1998 Todd C. Miller <Todd.Miller@courtesan.com>
123 > * All rights reserved.
124 > *
125 > * Redistribution and use in source and binary forms, with or without
126 > * modification, are permitted provided that the following conditions
127 > * are met:
128 > * 1. Redistributions of source code must retain the above copyright
129 > *    notice, this list of conditions and the following disclaimer.
130 > * 2. Redistributions in binary form must reproduce the above copyright
131 > *    notice, this list of conditions and the following disclaimer in the
132 > *    documentation and/or other materials provided with the distribution.
133 > * 3. The name of the author may not be used to endorse or promote products
134 > *    derived from this software without specific prior written permission.
135 > *
136 > * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
137 > * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
138 > * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL
139 > * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
140 > * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
141 > * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
142 > * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
143 > * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
144 > * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
145 > * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
146 > */
147 >
148 > /*
149 > * Appends src to string dst of size siz (unlike strncat, siz is the
150 > * full size of dst, not space left).  At most siz-1 characters
151 > * will be copied.  Always NUL terminates (unless siz <= strlen(dst)).
152 > * Returns strlen(src) + MIN(siz, strlen(initial dst)).
153 > * If retval >= siz, truncation occurred.
154 > */
155 > size_t
156 > strlcat(dst, src, siz)
157 >        char *dst;
158 >        const char *src;
159 >        size_t siz;
160 > {
161 >        register char *d = dst;
162 >        register const char *s = src;
163 >        register size_t n = siz;
164 >        size_t dlen;
165 >
166 >        /* Find the end of dst and adjust bytes left but don't go past end */
167 >        while (n-- != 0 && *d != '\0')
168 >                d++;
169 >        dlen = d - dst;
170 >        n = siz - dlen;
171 >
172 >        if (n == 0)
173 >                return(dlen + strlen(s));
174 >        while (*s != '\0') {
175 >                if (n != 1) {
176 >                        *d++ = *s;
177 >                        n--;
178 >                }
179 >                s++;
180          }
181 +        *d = '\0';
182  
183 <        memset((char *)&addr, 0, sizeof addr);
184 <        addr.sin_family = AF_INET;
64 <        memcpy((char *)&addr.sin_addr, &haddr, sizeof haddr);
65 <        addr.sin_port =  htons(ihost_state->fm_port);
183 >        return(dlen + (s - src));       /* count does not include NUL */
184 > }
185  
186 <        if (connect(sd, (struct sockaddr *)&addr, sizeof addr) != 0) {
187 <                errf("Failed to connect to %s on port %d (%m)", ihost_state->fm_host, ihost_state->fm_port);
188 <                return -1;
186 > #endif
187 > /* End strlcat function taken from OpenSSH */
188 >
189 > void log_msg(int level, char *format, ...){
190 >        int cur_errno;
191 >        va_list ap;
192 >
193 >        cur_errno=errno;
194 >
195 >        if(level<=ihost_config.verbose){
196 >                va_start(ap, format);
197 >                vfprintf(ihost_config.log, format, ap);
198 >                va_end(ap);
199 >                if(level==LOG_CRIT){
200 >                        fprintf(ihost_config.log, " (%s)\n", strerror(cur_errno));
201 >                }else{
202 >                        fprintf(ihost_config.log, "\n");
203 >                }
204 >                fflush(ihost_config.log);
205          }
206 + }
207  
208 <        /* Need to open 2 files, one for reading one for writing, as it gets confused if we only use 1 :) */
209 <        if ((fm_fd_r=fdopen(sd,"r")) == NULL){
210 <                errf("Failed to open stream (%m)");
211 <                return -1;
208 > int create_udp_sockinfo(udp_sockinfo_t *udp_sockinfo, char *hostname, int port){
209 >
210 >        struct in_addr haddr;
211 >
212 >        log_msg(LOG_DEBUG, "Resolving name for udp connection");
213 >        if(get_host_addr(hostname, &haddr) != 0){
214 >                log_msg(LOG_CRIT, "Failed to lookup name");
215 >                return 1;
216          }
217  
218 <        if ((fm_fd_w=fdopen(dup(sd),"w")) == NULL){
219 <                errf("Failed to open stream (%m)");
220 <                return -1;
218 >        if((udp_sockinfo->sock=socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0){
219 >                log_msg(LOG_CRIT, "Failed to create UDP socket");
220 >                return 1;
221          }
222  
223 <        reply=sock_comm(fm_fd_r, fm_fd_w, "STARTCONFIG\n");
224 <        if ((reply==NULL) || (strncasecmp(reply, "OK", 2) != 0) ) {
225 <                errf("Server error");  
226 <                return -1;
223 >        memset(&(udp_sockinfo->addr), 0, sizeof(struct sockaddr_in));
224 >        udp_sockinfo->addr.sin_family=AF_INET;
225 >        memcpy((char *)&(udp_sockinfo->addr.sin_addr), &haddr, sizeof(haddr));
226 >        udp_sockinfo->addr.sin_port = htons(port);
227 >
228 >        log_msg(LOG_DEBUG, "Socket created");
229 >        return 0;
230 > }
231 >
232 > IHOST_SOCKET create_tcp_connection(char *hostname, int port){
233 > #ifdef WIN32
234 >        SOCKET sock;
235 > #else
236 >        int sock;
237 > #endif
238 >        struct sockaddr_in addr;
239 >        struct in_addr haddr;
240 >        FILE *f;
241 >
242 >        log_msg(LOG_DEBUG, "Creating tcp socket");
243 >        if((sock = socket(PF_INET, SOCK_STREAM, IPPROTO_TCP))<0){
244 >                log_msg(LOG_CRIT, "Failed to make TCP Socket");
245 >                goto out;
246          }
247  
248 <        reply=sock_comm(fm_fd_r, fm_fd_w, "LASTMODIFIED\n");
249 <        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0)){
250 <                errf("Server error (%m)");
251 <                return -1;
248 >        if((get_host_addr(hostname, &haddr))!=0){
249 >                log_msg(LOG_CRIT, "Failed to lookup name for %s", hostname);
250 >                close(sock);
251 >                goto out;
252          }
253 <        if((ihost_state->last_modified=malloc((strlen(reply))+1)) == NULL){
254 <                errf("malloc failed (%m)");
255 <                return -1;
256 <        }
257 <        strcpy(ihost_state->last_modified, reply);
258 <        ihost_state->last_modified[(strlen(ihost_state->last_modified))]='\n';
253 >
254 >        memset(&addr, 0, sizeof(addr));
255 >        addr.sin_family = AF_INET;
256 >        memcpy(&addr.sin_addr, &haddr, sizeof(haddr));
257 >        addr.sin_port = htons(port);
258 >
259 >        log_msg(LOG_DEBUG, "Creating a tcp connection");
260 >        if(connect(sock, (struct sockaddr *)&addr, sizeof(addr)) !=0){
261 >                log_msg(LOG_CRIT, "Failed to connect to hostname %s on port %d", hostname, port);
262 >                close(sock);
263 >                goto out;
264 >        }
265 >
266 > #ifndef WIN32
267 > /* Windows does not treat sockets like this :( */
268 >        if((f=fdopen(sock, "r+"))==NULL){
269 >                log_msg(LOG_CRIT, "Failed to connect to open filedescriptor on tcp connection");
270 >                close(sock);
271 >                return NULL;
272 >        }
273 >
274 >        return f;
275 > #else
276 >        return sock;
277 > #endif
278 >
279 > out:
280 > #ifdef WIN32
281 >        return 0;
282 > #else
283 >        return NULL;
284 > #endif
285 > }
286 >
287 > #ifndef WIN32
288 > int tcp_comm(FILE *f, char *send, char **response, char *expected){
289 >
290 >        log_msg(LOG_DEBUG, "Sending %s", send);
291 >        fprintf(f, "%s\n", send);
292 >        fflush(f);
293 >        *response=fpgetline(f);
294 >        fseek(f, 0, SEEK_CUR);
295 >
296 >        if(*response!=NULL) log_msg(LOG_DEBUG, "Received %s", *response);
297 >
298 >        if( (*response==NULL) || (strcmp(*response, "ERROR")==0) ) return -1;
299 >
300 >        if(expected==NULL) return 0;
301 >
302 >        if((strcmp(expected, *response))==0) return 0;
303 >
304 >        log_msg(LOG_DEBUG, "Did not get expected response");
305 >        return -1;
306 > }
307 > #else
308 > int tcp_comm(SOCKET soc, char *sendstr, char **response, char *expected) {
309 >        static char *rec = NULL;
310 >        char sendbuf[128];
311 >        char recbuf[128];
312 >        int bytesRecv;
313 >        char *tmp;
314          
315 <        reply=sock_comm(fm_fd_r, fm_fd_w, "FILELIST\n");
316 <        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0)){
317 <                errf("Server error (%m)");
315 >        sprintf(sendbuf, "%s\n", sendstr);
316 >
317 >        log_msg(LOG_DEBUG, "Sending %s", sendstr);
318 >        send(soc, sendbuf, strlen(sendbuf), 0);
319 >        bytesRecv = recv(soc, recbuf, 128, 0);
320 >
321 >        if(bytesRecv != 0 && bytesRecv != SOCKET_ERROR) {
322 >                /* remove \n and copy to a string */
323 >                recbuf[bytesRecv-1] = '\0';
324 >                tmp = realloc(rec, bytesRecv);
325 >                if(tmp == NULL) {
326 >                        free(rec);
327 >                        rec = NULL;
328 >                        log_msg(LOG_CRIT, "out of memory");
329 >                        return -1;
330 >                }
331 >                rec = tmp;
332 >                rec = strcpy(rec, recbuf);
333 >                *response = rec;
334 >                log_msg(LOG_DEBUG, "Received %s", *response);
335 >        } else {
336                  return -1;
337          }
338 <        if((ihost_state->files_list=malloc((strlen(reply))+1)) == NULL){
107 <                errf("malloc failed (%m)");
108 <                return -1;
109 <        }
110 <        strcpy(ihost_state->files_list, reply);
111 <        ihost_state->files_list[(strlen(ihost_state->files_list))]='\n';
338 >        if(strcmp(*response, "ERROR")==0) return -1;
339  
340 <        reply=sock_comm(fm_fd_r, fm_fd_w, "FQDN\n");
341 <        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5)==0)){
342 <                errf("Server error (%m)");
340 >        if(expected==NULL) return 0;
341 >
342 >        if((strcmp(expected, *response))==0) return 0;
343 >
344 >        log_msg(LOG_DEBUG, "Did not get expected response");
345 >        return -1;
346 > }
347 > #endif /* WIN32 */
348 >
349 > int tcp_comm_strdup(IHOST_SOCKET f, char *send, char **response, char *expected)
350 > {
351 >        if((tcp_comm(f, send, response, expected))!=0){
352                  return -1;
353          }
354 <        if((ihost_state->my_fqdn=strdup(reply)) == NULL){
355 <                errf("strdup failed (%m)");
354 >
355 >        *response=strdup(*response);
356 >        if (response==NULL) return -1;
357 >
358 >        return 0;
359 > }
360 >
361 > int ihost_getconfig(ihost_state_t *ihost_state){
362 >        IHOST_SOCKET tcp_con;
363 >        char *response;
364 >        char *response_ptr;
365 >
366 >        /* Keep these in case of a failure and so it can keep running on the old config */
367 >        char *file_list=NULL;
368 >        char *last_modified=NULL;
369 >        char *host_fqdn=NULL;
370 >        char *host_ip=NULL;
371 >        int udp_update_time=0;
372 >        char *server_fqdn=NULL;
373 >        int server_udp_port=0;
374 >        time_t config_ttl=0;
375 >
376 >        if((tcp_con=create_tcp_connection(ihost_state->filtermanager_host, ihost_state->filtermanager_port))
377 > #ifndef WIN32
378 >                        ==NULL
379 > #else
380 >                        ==0
381 > #endif
382 >                        ) {
383                  return -1;
384          }
385  
386 <        reply=sock_comm(fm_fd_r, fm_fd_w, "UDPUpdateTime\n");
387 <        if(reply== NULL){
388 <                errf("Server error (%m)");
389 <                return -1;
386 >        if(ihost_state->file_list!=NULL || ihost_state->last_modified!=NULL){
387 > #ifndef WIN32
388 >                if(tcp_con==NULL)
389 > #else
390 >                if(tcp_con==0)
391 > #endif
392 >                {
393 >                        goto error;
394 >                }
395 >
396 >                if((tcp_comm(tcp_con, "CHECKCONFIG", &response, "OK"))!=0){
397 >                        goto error;
398 >                }
399 >
400 >                if((tcp_comm(tcp_con, ihost_state->file_list, &response, "OK"))!=0){
401 >                        goto error;
402 >                }
403 >
404 >                if((tcp_comm(tcp_con, ihost_state->last_modified, &response, "OK"))==0){
405 >                        if((tcp_comm(tcp_con, "END", &response, "OK"))!=0){
406 >                                goto error;
407 >                        }
408 >                        CLOSESOCKET(tcp_con);
409 >                        return 0;
410 >                }else{
411 >                        if((strcmp(response, "EXPIRED"))!=0){
412 >                                goto error;
413 >                        }
414 >                }
415          }
416 <        if (strncasecmp(reply, "ERROR", 5) != 0){
417 <                ihost_state->udp_update_time=atoi(reply);
416 >
417 >        /* If we got to here, the config must of expired */
418 >
419 >        if((tcp_comm(tcp_con, "STARTCONFIG", &response, "OK"))!=0){
420 >                goto error;
421          }
422  
423 <        reply=sock_comm(fm_fd_r, fm_fd_w, "TCPUpdateTime\n");
424 <        if(reply== NULL){
134 <                errf("Server error (%m)");
135 <                return -1;
423 >        if((tcp_comm_strdup(tcp_con, "LASTMODIFIED", &response, NULL))!=0){
424 >                goto error;
425          }
426 <        if (strncasecmp(reply, "ERROR", 5) != 0){
427 <                ihost_state->tcp_update_time=atoi(reply);
426 >        last_modified=response;
427 >
428 >        if((tcp_comm_strdup(tcp_con, "FILELIST", &response, NULL))!=0){
429 >                goto error;
430          }
431 +        file_list=response;
432  
433 <        reply=sock_comm(fm_fd_r, fm_fd_w, "ENDCONFIG\n");
434 <        if(reply== NULL){
143 <                errf("Server error (%m)");
144 <                return -1;
433 >        if((tcp_comm_strdup(tcp_con, "FQDN", &response, NULL))!=0){
434 >                goto error;
435          }
436 +        host_fqdn=response;
437  
438 <        reply=sock_comm(fm_fd_r, fm_fd_w, "FILTER\n");
439 <        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5)==0)){
149 <                errf("Server error (%m)");
150 <                return -1;
438 >        if((tcp_comm_strdup(tcp_con, "IP", &response, NULL))!=0){
439 >                goto error;
440          }
441 <        reply_ptr=strchr(reply,';');
442 <        if (reply_ptr==NULL){
443 <                errf("Incorrect data returned");
444 <                return -1;
441 >        host_ip=response;
442 >
443 >        if((tcp_comm(tcp_con, "UDPUpdateTime", &response, NULL))!=0){
444 >                goto error;
445          }
446 <        *reply_ptr='\0';
447 <        if((ihost_state->server_fqdn=strdup(reply)) == NULL){
448 <                errf("strdup failed (%m)");
449 <                return -1;
446 >        udp_update_time=atoi(response);
447 >
448 >        if((tcp_comm(tcp_con, "ConfigTTL", &response, NULL))!=0){
449 >                goto error;
450          }
451 <        reply=++reply_ptr;
452 <        reply_ptr=strchr(reply,';');
453 <        if (reply_ptr==NULL){
454 <                errf("Incorrect data returned 2");
166 <                return -1;
451 >        config_ttl=atoi(response);
452 >
453 >        if((tcp_comm(tcp_con, "ENDCONFIG", &response, NULL))!=0){
454 >                goto error;
455          }
456 <        *reply_ptr='\0';
457 <        ihost_state->server_udp_port=atoi(reply);
458 <        reply=++reply_ptr;
459 <        ihost_state->server_tcp_port=atoi(reply);
460 <        if ((ihost_state->server_tcp_port==0) || (ihost_state->server_udp_port==0)){
461 <                errf("Incorrect data returned 3 ");
462 <                return -1;
456 >
457 >        if((tcp_comm(tcp_con, "FILTER", &response, NULL))!=0){
458 >                goto error;
459 >        }else{
460 >                response_ptr=strchr(response,';');
461 >                if(response_ptr==NULL){
462 >                        log_msg(LOG_ERR, "Incorrect data sent by server");
463 >                        goto error;
464 >                }
465 >                *response_ptr='\0';
466 >                server_fqdn=strdup(response);
467 >                if(server_fqdn==NULL){
468 >                        goto error;
469 >                }
470 >                response_ptr++;
471 >                if(response_ptr==NULL){
472 >                        log_msg(LOG_ERR, "Incorrect data sent by server");
473 >                        goto error;
474 >                }
475 >
476 >                server_udp_port=atoi(response_ptr);
477 >
478 >                if (server_udp_port==0){
479 >                        log_msg(LOG_ERR, "Incorrect data sent by server");
480 >                        goto error;
481 >                }
482          }
483  
484 <        reply=sock_comm(fm_fd_r, fm_fd_w, "END\n");
485 <        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0 )){
179 <                errf("Server error (%m)");
180 <                return -1;
484 >        if((tcp_comm(tcp_con, "END", &response, "OK"))!=0){
485 >                goto error;
486          }
487  
488 <        if(fclose(fm_fd_r) !=0){
489 <                errf("Failed to close FD (%m)");
490 <                return -1;
488 >        CLOSESOCKET(tcp_con);
489 >
490 >        /* We have the data we need, and its all been read correctly */
491 >
492 >        /* Free the old data before pointing them to the new data. m_free copes should
493 >         * this already be NULL */
494 >        if(ihost_state->file_list!=NULL) free(ihost_state->file_list);
495 >        if(ihost_state->last_modified!=NULL) free(ihost_state->last_modified);
496 >        if(ihost_state->server_fqdn!=NULL) free(ihost_state->server_fqdn);
497 >
498 >        if(ihost_state->preset_fqdn){
499 >                if(host_fqdn != NULL) free(host_fqdn);
500 >        }else{
501 >                if(ihost_state->host_fqdn!=NULL) free(ihost_state->host_fqdn);
502 >                ihost_state->host_fqdn=host_fqdn;
503          }
504 <        if(fclose(fm_fd_w) !=0){
505 <                errf("Failed to close FD (%m)");
506 <                return -1;
504 >
505 >        if(ihost_state->preset_ip){
506 >                if(host_ip != NULL) free(host_ip);
507 >        }else{
508 >                if(ihost_state->host_ip!=NULL) free(ihost_state->host_ip);
509 >                ihost_state->host_ip=host_ip;
510          }
511  
512 +
513 +        ihost_state->file_list=file_list;
514 +        ihost_state->last_modified=last_modified;
515 +        ihost_state->server_fqdn=server_fqdn;
516 +        ihost_state->server_udp_port=server_udp_port;
517 +        ihost_state->udp_update_time=udp_update_time;
518 +        ihost_state->config_ttl=config_ttl;
519 +
520 +        log_msg(LOG_DEBUG, "UDP Update time %d", udp_update_time);
521 +        log_msg(LOG_DEBUG, "Configure ttl %d", config_ttl);
522 +
523          return 0;
524 +
525 + error:
526 +
527 +        if(file_list!=NULL) free(file_list);
528 +        if(last_modified!=NULL) free(last_modified);
529 +        if(host_fqdn!=NULL) free(host_fqdn);
530 +        if(server_fqdn!=NULL) free(server_fqdn);
531 +        if(host_ip!=NULL) free(host_ip);
532 +        CLOSESOCKET(tcp_con);
533 +
534 +        return -1;
535   }
536  
537 < int heartbeat(ihost_state_t *ihost_state){
538 <        struct sockaddr_in addr;
539 <        struct in_addr haddr;
540 <        int sd;
541 <        FILE *fm_fd_r, *fm_fd_w;
542 <        char *reply;
543 <        int exitcode=0;
537 > int get_system_stats(int seq_no, ihost_state_t *ihost_state, char *xml, int size){
538 >        char tmp[size];
539 >        sg_cpu_percents *cpu_percent;
540 >        sg_mem_stats *mem_stats;
541 >        sg_load_stats *load_stats;
542 >        sg_user_stats *user_stats;
543 >        sg_swap_stats *swap_stats;
544 >        sg_host_info *general_stats;
545 >        sg_fs_stats *disk_stats;
546 >        sg_disk_io_stats *diskio_stats;
547 >        sg_process_count *process_stats;
548 >        sg_network_io_stats *network_stats;
549 >        sg_page_stats *page_stats;
550 >        int disk_entries=0;
551 >        int diskio_entries=0;
552 >        int network_entries=0;
553  
554 <        if ((sd = socket(AF_INET, SOCK_STREAM, PF_UNSPEC)) < 0) {
555 <                errf("Can't create AF_INET socket (%m)");
556 <                return -1;
206 <        }
554 >        int counter;
555 >        long long x;
556 >        long long y;
557  
558 <        if (get_host_addr(ihost_state->server_fqdn, &haddr) != 0){
559 <                errf("Failed to resolve address %s (%m)", ihost_state->fm_host);
560 <                return -1;
211 <        }
558 >        /* Print start of the packet we want */
559 >        snprintf(xml, size, "<packet seq_no=\"%d\" machine_name=\"%s\" date=\"%ld\" type=\"data\" ip=\"%s\">", \
560 >                 seq_no, ihost_state->host_fqdn, (long) time(NULL), ihost_state->host_ip);
561  
562 <        memset((char *)&addr, 0, sizeof addr);
563 <        addr.sin_family = AF_INET;
564 <        memcpy((char *)&addr.sin_addr, &haddr, sizeof haddr);
565 <        addr.sin_port =  htons(ihost_state->server_tcp_port);
562 >        /* Get cpu stats, check it is correct, then fill in its entry for the xml */
563 >        if((cpu_percent=sg_get_cpu_percents())==NULL){
564 >                log_msg(LOG_CRIT, "Failed to get cpu statistics: %s (%s)",
565 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
566 >        }else{
567 >                snprintf(tmp, size, \
568 >                        "<cpu><user>%3.2f</user><kernel>%3.2f</kernel><idle>%3.2f</idle><iowait>%3.2f</iowait><swap>%3.2f</swap></cpu>", \
569 >                        cpu_percent->user, \
570 >                        cpu_percent->kernel, \
571 >                        cpu_percent->idle, \
572 >                        cpu_percent->iowait, \
573 >                        cpu_percent->swap);
574  
575 <        if (connect(sd, (struct sockaddr *)&addr, sizeof addr) != 0) {
576 <                errf("Failed to connect to %s on port %d (%m)", ihost_state->fm_host, ihost_state->fm_port);
220 <                return -1;
221 <        }
575 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
576 >        }
577  
223        /* Need to open 2 files, one for reading one for writing, as it gets confused if we only use 1 :) */
224        if ((fm_fd_r=fdopen(sd,"r")) == NULL){
225                errf("Failed to open stream (%m)");
226                return -1;
227        }
578  
579 <        if ((fm_fd_w=fdopen(dup(sd),"w")) == NULL){
230 <                errf("Failed to open stream (%m)");
231 <                return -1;
232 <        }
579 >        /*Get mem stats, and fill in xml */
580  
581 <        reply=sock_comm(fm_fd_r, fm_fd_w, "HEARTBEAT\n");
582 <        if ((reply==NULL) || (strncasecmp(reply, "ERROR", 5) == 0) ) {
583 <                errf("Server error");
584 <                return -1;
585 <        }
586 <        if (ihost_state->fm_host!=NULL) free(ihost_state->fm_host);
587 <        reply=sock_comm(fm_fd_r, fm_fd_w, "CONFIG\n");
588 <        if ((reply==NULL) || (strncasecmp(reply, "ERROR", 5) == 0) ) {
589 <                errf("Server error");
590 <                return -1;
244 <        }
581 >        if((mem_stats=sg_get_mem_stats())==NULL){
582 >                log_msg(LOG_CRIT, "Failed to get memory statistics: %s (%s)",
583 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
584 >        }else{
585 >                snprintf(tmp, size, \
586 >                        "<memory><total>"LLD"</total><free>"LLD"</free><used>"LLD"</used><cache>"LLD"</cache></memory>", \
587 >                        mem_stats->total, \
588 >                        mem_stats->free, \
589 >                        mem_stats->used, \
590 >                        mem_stats->cache);
591  
592 <        printf("filelist %s\n",ihost_state->files_list);
593 <        reply=sock_comm(fm_fd_r, fm_fd_w, ihost_state->files_list);
248 <        if ((reply==NULL) || (strncasecmp(reply, "OK", 2) != 0) ) {
249 <                errf("Server error");
250 <                return -1;
251 <        }
592 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
593 >        }
594  
595 <        reply=sock_comm(fm_fd_r, fm_fd_w, ihost_state->last_modified);
596 <        if (reply==NULL) {
597 <                errf("Server error");
598 <                return -1;
599 <        }
600 <        if (strncasecmp(reply, "ERROR", 5) == 0){
601 <        /* Means the config has changed */
602 <                exitcode=RECONFIGURE_RETURN_CODE;
595 >
596 >        /* Get load stats */
597 >
598 >        if((load_stats=sg_get_load_stats())==NULL){
599 >                log_msg(LOG_CRIT, "Failed to get load statistics: %s (%s)",
600 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
601 >        }else{
602 >                snprintf(tmp, size, \
603 >                        "<load><load1>%.2lf</load1><load5>%.2lf</load5><load15>%.2lf</load15></load>", \
604 >                        load_stats->min1, \
605 >                        load_stats->min5, \
606 >                        load_stats->min15);
607 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
608          }
262        reply=sock_comm(fm_fd_r, fm_fd_w, "KEY\n");
263        if ((reply==NULL) || (strncasecmp(reply, "ERROR", 5) == 0) ) {
264                errf("Server error");
265                return -1;
266        }
267        if (ihost_state->key!=NULL) free(ihost_state->key);
268
269        if((ihost_state->key=malloc(strlen(reply)+1)) == NULL){
270                errf("malloc failed (%m)");
271                return -1;
272        }
273        strcpy(ihost_state->key, reply);
274        ihost_state->key[(strlen(ihost_state->key))]='\n';
609  
276        reply=sock_comm(fm_fd_r, fm_fd_w, "ENDHEARTBEAT\n");
277        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0 )){
278                errf("Server error (%m)");
279                return -1;
280        }
610  
611 <        if(fclose(fm_fd_r) !=0){
283 <                errf("Failed to close FD (%m)");
284 <                return -1;
285 <        }
286 <        if(fclose(fm_fd_w) !=0){
287 <                errf("Failed to close FD (%m)");
288 <                return -1;
289 <        }
611 >        /* get user stats */
612  
613 <        return exitcode;                
613 >        if((user_stats=sg_get_user_stats())==NULL){
614 >                log_msg(LOG_CRIT, "Failed to get user statistics: %s (%s)",
615 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
616 >        }else{
617 >
618 >                snprintf(tmp, size, \
619 >                        "<users><list>%s</list><count>%d</count></users>", \
620 >                        user_stats->name_list, \
621 >                        user_stats->num_entries);
622 >
623 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
624 >        }
625 >
626 >
627 >        /* swap stats */
628 >
629 >        if((swap_stats=sg_get_swap_stats())==NULL){
630 >                log_msg(LOG_CRIT, "Failed to get swap statistics: %s (%s)",
631 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
632 >        }else{
633 >                snprintf(tmp, size, \
634 >                        "<swap><total>"LLD"</total><used>"LLD"</used><free>"LLD"</free></swap>",\
635 >                        swap_stats->total, \
636 >                        swap_stats->used, \
637 >                        swap_stats->free);
638 >
639 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
640 >        }
641 >
642 >
643 >        /* general stats */
644 >
645 >        if((general_stats=sg_get_host_info())==NULL){
646 >                log_msg(LOG_CRIT, "Failed to get host info statistics: %s (%s)",
647 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
648 >        }else{
649 >                snprintf(tmp, size, \
650 >                        "<os><name>%s</name><release>%s</release><version>%s</version><sysname>%s</sysname><platform>%s</platform><uptime>%ld</uptime></os>", \
651 >                        general_stats->os_name, \
652 >                        general_stats->os_release, \
653 >                        general_stats->os_version, \
654 >                        general_stats->hostname, \
655 >                        general_stats->platform, \
656 >                        (long)general_stats->uptime);
657 >
658 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
659 >
660 >        }
661 >
662 >
663 >        /* process stats */
664 >
665 >        if((process_stats=sg_get_process_count())==NULL){
666 >                log_msg(LOG_CRIT, "Failed to get process statistics: %s (%s)",
667 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
668 >        }else{
669 >                snprintf(tmp, size, \
670 >                        "<processes><sleeping>%d</sleeping><cpu>%d</cpu><zombie>%d</zombie><stopped>%d</stopped><total>%d</total></processes>",\
671 >                        process_stats->sleeping, \
672 >                        process_stats->running, \
673 >                        process_stats->zombie, \
674 >                        process_stats->stopped, \
675 >                        process_stats->total);
676 >
677 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
678 >
679 >        }
680 >
681 >
682 >        /* Get paging stats */
683 >
684 >        if((page_stats=sg_get_page_stats_diff())==NULL){
685 >                log_msg(LOG_CRIT, "Failed to get paging statistics: %s (%s)",
686 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
687 >        }else{
688 >                if(page_stats->systime!=0){
689 >                        x=page_stats->pages_pagein / page_stats->systime;
690 >                        y=page_stats->pages_pageout / page_stats->systime;
691 >                }else{
692 >                        x=page_stats->pages_pagein;
693 >                        y=page_stats->pages_pageout;
694 >                }
695 >                snprintf(tmp, size, \
696 >                        "<pages><pageins>"LLD"</pageins><pageouts>"LLD"</pageouts></pages>", \
697 >                        x, \
698 >                        y);
699 >
700 >                if(strlcat(xml, tmp, size) >= size) goto too_big_error;
701 >        }
702 >
703 >
704 >        /* get diskio stats */
705 >
706 >        if((diskio_stats=sg_get_disk_io_stats_diff(&diskio_entries))==NULL){
707 >                log_msg(LOG_CRIT, "Failed to get disk io statistics: %s (%s)",
708 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
709 >        }else{
710 >                strlcat(xml, "<diskio>", size);
711 >                for(counter=0;counter<diskio_entries;counter++){
712 >
713 >                        if(diskio_stats->systime!=0){
714 >                                x=diskio_stats->read_bytes / diskio_stats->systime;
715 >                                y=diskio_stats->write_bytes / diskio_stats->systime;
716 >                        }else{
717 >                                x=diskio_stats->read_bytes;
718 >                                y=diskio_stats->write_bytes;
719 >                        }
720 >
721 >                        snprintf(tmp, size, \
722 >                                "<p%d name=\"%s\" rbytes=\""LLD"\" wbytes=\""LLD"\"></p%d>", \
723 >                                counter, \
724 >                                diskio_stats->disk_name, \
725 >                                x, \
726 >                                y, \
727 >                                counter);
728 >
729 >                        strlcat(xml, tmp, size);
730 >                        diskio_stats++;
731 >                }
732 >
733 >                if(strlcat(xml, "</diskio>", size) >= size) goto too_big_error;
734 >
735 >        }
736 >
737 >
738 >        /* get networks stats */
739 >
740 >        if((network_stats=sg_get_network_io_stats_diff(&network_entries))==NULL){
741 >                log_msg(LOG_CRIT, "Failed to get network io statistics: %s (%s)",
742 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
743 >        }else{
744 >                strlcat(xml, "<net>", size);
745 >                for(counter=0;counter<network_entries;counter++){
746 >                        if(network_stats->systime!=0){
747 >                                x=network_stats->rx / network_stats->systime;
748 >                                y=network_stats->tx / network_stats->systime;
749 >                        }else{
750 >                                x=network_stats->rx;
751 >                                y=network_stats->tx;
752 >                        }
753 >
754 >                        snprintf(tmp, size, \
755 >                                "<p%d name=\"%s\" rx=\""LLD"\" tx=\""LLD"\"></p%d>", \
756 >                                counter, \
757 >                                network_stats->interface_name, \
758 >                                x, \
759 >                                y, \
760 >                                counter);
761 >
762 >                        strlcat(xml, tmp, size);
763 >                        network_stats++;
764 >                }
765 >
766 >                if(strlcat(xml, "</net>", size) >= size) goto too_big_error;
767 >
768 >        }
769 >
770 >
771 >        /* get disk stats */
772 >
773 >        if((disk_stats=sg_get_fs_stats(&disk_entries))==NULL){
774 >                log_msg(LOG_CRIT, "Failed to get fs statistics: %s (%s)",
775 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
776 >        }else{
777 >                strlcat(xml, "<disk>", size);
778 >                for(counter=0;counter<disk_entries;counter++){
779 >                        snprintf(tmp, size, \
780 >                                "<p%d name=\"%s\" mount=\"%s\" fstype=\"%s\" total=\""LLD"\" used=\""LLD"\" avail=\""LLD"\" totalinodes=\""LLD"\" usedinodes=\""LLD"\" freeinodes=\""LLD"\"></p%d>", \
781 >                                counter, \
782 >                                disk_stats->device_name, \
783 >                                disk_stats->mnt_point, \
784 >                                disk_stats->fs_type, \
785 >                                disk_stats->size, \
786 >                                disk_stats->used, \
787 >                                disk_stats->avail, \
788 >                                disk_stats->total_inodes, \
789 >                                disk_stats->used_inodes, \
790 >                                disk_stats->free_inodes, \
791 >                                counter);
792 >
793 >                        strlcat(xml, tmp, size);
794 >
795 >                        disk_stats++;
796 >                }
797 >
798 >                if(strlcat(xml, "</disk>", size) >= size) goto too_big_error;
799 >
800 >        }
801 >
802 >
803 >        if(strlcat(xml, "</packet>", size) >= size) goto too_big_error;
804 >
805 >        /*If we got to here, it should of all been filled in nicely now */
806 >        return 0;
807 >
808 > too_big_error:
809 >        log_msg(LOG_ERR, "UDP Packet is too large. Throwing away the packet");
810 >        return -1;
811   }
812  
813  
295 int main(int argc, char **argv){
296        ihost_state_t ihost_state;
297        int heartbeat_exit;
298        int counter=0;
814  
815 + /* WIN32 NT service stuff */
816 + #ifdef WIN32
817 + void service_stopped() {
818 +        if(run_as_service) {
819 +                service_status.dwCurrentState = SERVICE_STOPPED;
820 +                service_status.dwWin32ExitCode = errno;
821 +                service_status.dwServiceSpecificExitCode = 0;
822  
823 <        /* NULL'ify so i can tell if i need to free it or not */
824 <        ihost_state.fm_host=NULL;
825 <        ihost_state.my_fqdn=NULL;
304 <        ihost_state.server_fqdn=NULL;
305 <        ihost_state.last_modified=NULL;
306 <        ihost_state.files_list=NULL;
307 <        ihost_state.key=NULL;
823 >                SetServiceStatus(hstatus, &service_status);
824 >        }
825 > }
826  
827 <        errf_set_progname(argv[0]);
828 <        if(argc!=3){
829 <                errf_usage("<host> <port>");    
830 <                exit(1);
827 > void control_handler(DWORD request) {
828 >        switch(request) {
829 >                case SERVICE_CONTROL_STOP:
830 >                case SERVICE_CONTROL_SHUTDOWN:
831 >                        service_status.dwWin32ExitCode = 0;
832 >                        service_status.dwCurrentState = SERVICE_STOP_PENDING;
833 >                        break;
834 >                default:
835 >                        break;
836          }
837  
838 <        ihost_state.fm_host=argv[1];
839 <        ihost_state.fm_port=atoi(argv[2]);
838 >        SetServiceStatus (hstatus, &service_status);
839 > }
840  
841 <        if(ihost_configure(&ihost_state)!=0){
842 <                errf("configure failed");
843 <                /* Ok, ideally we prob should have 2 copies of the structure and carry on if this
844 <                happens.. But we dont :) (at the moment) */
841 > /* attempt to tell service manager to start our service.
842 > * return 0 on error, 1 on ok
843 > */
844 > int start_service() {
845 >        SC_HANDLE scm;
846 >        SC_HANDLE service;
847 >
848 >        // Open SCM
849 >        if((scm = OpenSCManager(NULL, NULL, SC_MANAGER_CONNECT)) == NULL) {
850 >                log_msg(LOG_CRIT, "Failed to open Service Control Manager");
851 >                return 0;
852 >        }
853 >        // Locate the service
854 >        if((service = OpenService(scm, SERVICENAME, SERVICE_START)) == NULL) {
855 >                log_msg(LOG_CRIT, "Unable to open the service");
856 >                return 0;
857 >        }
858 >        // Start the service
859 >        if(StartService(service, 0, NULL) == 0) {
860 >                log_msg(LOG_CRIT, "Unable to start the service");
861 >                return 0;
862 >        }
863 >        return 1;
864 > }
865 >
866 > int stop_service() {
867 >        SC_HANDLE scm;
868 >        SC_HANDLE service;
869 >        SERVICE_STATUS status;
870 >
871 >        // Open SCM
872 >        if((scm = OpenSCManager(NULL, NULL, SC_MANAGER_CONNECT)) == NULL) {
873 >                log_msg(LOG_CRIT, "Failed to open Service Control Manager");
874 >                return 0;
875 >        }
876 >        // Locate service
877 >        if((service = OpenService(scm, SERVICENAME, SERVICE_STOP)) == NULL) {
878 >                log_msg(LOG_CRIT, "Unable to open the service");
879 >                return 0;
880 >        }
881 >        // Stop the service
882 >        if(!ControlService(service, SERVICE_CONTROL_STOP, &status)) {
883 >                log_msg(LOG_CRIT, "Unable to stop the service");
884 >                return 0;
885 >        }
886 >        return 1;
887 > }
888 >
889 > int register_service(int argc, char **argv) {
890 >        char path[MAX_PATH];
891 >        int cmdline_len;
892 >        int i;
893 >        char *cmdline;
894 >        char *tmp;
895 >        SC_HANDLE scm;
896 >
897 >        if(!GetModuleFileName(NULL, path, MAX_PATH)) {
898 >                log_msg(LOG_CRIT, "GetModuleFileName failed");
899 >                return 0;
900 >        }
901 >
902 >        // Calculate command line length
903 >        // 14 = 10 for " -w service", 2x quote around path and ending \0
904 >        cmdline_len = strlen(path) + 14;
905 >        for (i=0; i<argc; i++) {
906 >                // +1 for space prefix
907 >                cmdline_len += strlen(argv[i]) +1;
908 >        }
909 >
910 >        cmdline = malloc(cmdline_len);
911 >        if(cmdline == NULL) {
912 >                log_msg(LOG_CRIT, "out of memory");
913 >                return 0;
914 >        }
915 >        tmp = malloc(cmdline_len);
916 >        if(tmp == NULL) {
917 >                log_msg(LOG_CRIT, "out of memory");
918 >                free(cmdline);
919 >                return 0;
920 >        }
921 >
922 >        // Compile up the final command line call
923 >        snprintf(cmdline, cmdline_len, "\"%s\" -w service", path);
924 >        for (i=0; i<argc; i++) {
925 >                snprintf(tmp, cmdline_len, " %s", argv[i]);
926 >                strcat(cmdline, tmp);
927 >        }
928 >        free(tmp);
929 >
930 >        // Open SCM
931 >        if((scm = OpenSCManager(NULL, NULL, SC_MANAGER_CREATE_SERVICE)) == NULL) {
932 >                log_msg(LOG_CRIT, "Unable to open Service Control Manager");
933 >                return 0;
934 >        }
935 >
936 >        // Add the service
937 >        if (CreateService(scm, SERVICENAME, SERVICENAME,
938 >                        SC_MANAGER_ALL_ACCESS, SERVICE_WIN32_OWN_PROCESS,
939 >                        SERVICE_AUTO_START, SERVICE_ERROR_IGNORE, cmdline, NULL,
940 >                        NULL, NULL, NULL, NULL) == NULL) {
941 >                log_msg(LOG_CRIT, "Unable to create service");
942 >                return 0;
943 >        }
944 >
945 >        return 1;
946 > }
947 >
948 > int unregister_service() {
949 >        SC_HANDLE scm;
950 >        SC_HANDLE service;
951 >
952 >        // Open the SCM
953 >        if((scm = OpenSCManager(NULL, NULL, SC_MANAGER_CREATE_SERVICE)) ==NULL) {
954 >                log_msg(LOG_CRIT, "Unable to open Service Control Manager");
955 >                return 0;
956 >        }
957 >        // Get the service
958 >        if((service = OpenService(scm, SERVICENAME, SC_MANAGER_ALL_ACCESS)) == NULL) {
959 >                log_msg(LOG_CRIT, "Unable to locate the service");
960 >                return 0;
961 >        }
962 >        // Delete service
963 >        if(DeleteService(service) == 0) {
964 >                log_msg(LOG_CRIT, "Unable to remove the service");
965 >                return 0;
966 >        }
967 >        return 1;
968 > }
969 > #endif
970 >
971 >
972 >
973 > void usage(char *progname){
974 >        const char *usage;
975 > #ifdef WIN32
976 >        usage = "Usage %s [-w option] [-v[v]] [-n name] [-i ip] [-s server] [-p port] [-V] [-h]\n\n";
977 > #else
978 >        usage = "Usage %s [-v[v]] [-f] [-n name] [-i ip] [-s server] [-p port] [-V] [-h]\n\n";
979 > #endif
980 >        fprintf(stderr, usage, progname);
981 >        fprintf(stderr, "  -v    Verbose mode, -vv would make even more verbose\n");
982 > #ifndef WIN32
983 >        fprintf(stderr, "  -f    Foreground mode, print errors to stderr\n");
984 > #else
985 >        fprintf(stderr, "  -w    Windows Service options:\n");
986 >        fprintf(stderr, "     start      - start the service\n");
987 >        fprintf(stderr, "     stop       - stop the service\n");
988 >        fprintf(stderr, "     register   - register the service\n");
989 >        fprintf(stderr, "     unregister - unregister the service\n");
990 >        /* service - run as a service, only called by windows service */
991 > #endif
992 >        fprintf(stderr, "  -n    Set the machine name to be reported as\n");
993 >        fprintf(stderr, "  -i    Set the IP to be reported as\n");
994 >        fprintf(stderr, "  -s    Specifies the i-scream server to connect to\n");
995 >        fprintf(stderr, "         default: %s\n", DEF_SERVER_NAME);
996 >        fprintf(stderr, "  -p    Specifies the i-scream server port\n");
997 >        fprintf(stderr, "         default: %d\n", DEF_SERVER_PORT);
998 >        fprintf(stderr, "  -V    Print version number\n");
999 >        fprintf(stderr, "  -h    Prints this help page\n");
1000 >        fprintf(stderr, "\nReport bugs to <%s>.\n", PACKAGE_BUGREPORT);
1001 >        exit(1);
1002 > }
1003 >
1004 > int run_ihost(){
1005 >
1006 >        udp_sockinfo_t udp_sockinfo;
1007 >
1008 >        pid_t pid;
1009 >        FILE *f;
1010 >        int packet_num=0;
1011 >        int len;
1012 >
1013 >        char packet[MAX_UDP_PACKET_SIZE];
1014 >
1015 >        time_t cur_time, sleep_delay, udp_time=0, config_time=0;
1016 > #ifdef WIN32
1017 >        int tries=0;
1018 >        WSADATA wsaData;
1019 >
1020 >        if(WSAStartup(MAKEWORD(2,2), &wsaData) != NO_ERROR) {
1021 >                log_msg(LOG_CRIT, "Failed to init a winsock");
1022 >                service_stopped();
1023                  exit(1);
1024          }
1025 + #endif
1026  
1027 <        while(TRUE){
1027 >        if(gethostbyname(ihost_state.filtermanager_host)==NULL){
1028 >                printf("%s\n", ihost_state.filtermanager_host);
1029 >                log_msg(LOG_CRIT, "Failed to lookup hostname. Please check settings");
1030 >                goto out;
1031 >        }
1032 >        if(ihost_state.filtermanager_port==0){
1033 >                log_msg(LOG_ERR, "Invalid port number");
1034 >                goto out;
1035 >        }
1036  
1037 <                heartbeat_exit=heartbeat(&ihost_state);
1038 <                if(heartbeat_exit==RECONFIGURE_RETURN_CODE){
1039 <                        errf("heartbeat needs to be reconfigured");
1040 <                        ihost_configure(&ihost_state);
1037 > #ifndef WIN32
1038 >        if(ihost_config.daemon){
1039 >                pid=fork();
1040 >                if(pid==-1){
1041 >                        log_msg(LOG_CRIT, "Failed to background exiting");
1042 >                        exit(1);
1043 >                }else if(pid!=0){
1044 >                        /* Parent process */
1045 >                        return 0;
1046                  }
1047 <                if(heartbeat_exit==-1){
1048 <                        errf("ah crap");
1049 <                        exit(1);
1050 <                }
1051 <                printf("Count : %d\n",counter++);
1052 <                printf("waiting %d\n",ihost_state.tcp_update_time);
1053 <                sleep(ihost_state.tcp_update_time);
1047 >                /* We should now be in the background*/
1048 >                if(setsid()==-1){
1049 >                        log_msg(LOG_CRIT, "setsid failed");
1050 >                        exit(1);
1051 >                }
1052 >
1053 >                if((ihost_config.log=fopen(LOG_FILE, "a"))==NULL){
1054 >                        ihost_config.log=stderr;
1055 >                        log_msg(LOG_CRIT, "Failed to open Logfiles %s for writing", LOG_FILE);
1056 >                        exit(1);
1057 >                }
1058 >
1059 >                fclose(stdin);
1060 >                fclose(stdout);
1061 >                fclose(stderr);
1062 >
1063          }
1064 <        return 0;
1064 > #endif
1065 >
1066 >        log_msg(LOG_INFO, "Starting ihost...");
1067 >
1068 >        log_msg(LOG_DEBUG, "Running sg_init()");
1069 >        if(sg_init()){
1070 >                log_msg(LOG_CRIT, "sg_init failed: %s (%s)",
1071 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
1072 >                goto out;
1073 >        }
1074 >        if(sg_snapshot()) {
1075 >                log_msg(LOG_ERR, "sg_snapshot failed: %s (%s)",
1076 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
1077 >        }
1078 >
1079 > #ifndef WIN32
1080 >        log_msg(LOG_DEBUG,"Writing PID FILE");
1081 >
1082 >        pid=getpid();
1083 >
1084 >        if((f=fopen(PID_FILE,"w")) == NULL){
1085 >                log_msg(LOG_CRIT, "Failed to write PID file");
1086 >        }else{
1087 >                if((fprintf(f,"%d",(int)pid)) <= 0 ){
1088 >                        log_msg(LOG_CRIT, "Failed to write PID file");
1089 >                }
1090 >                if((fclose(f))!=0){
1091 >                        log_msg(LOG_CRIT, "failed to close PID file");
1092 >                }
1093 >        }
1094 > #endif
1095 >
1096 >        /* Get the initial config from the filter manager. Should this fail,
1097 >         * wait, and then try again. */
1098 >        /* Win32 - for a max of one minute */
1099 >
1100 >        sg_get_disk_io_stats_diff(&packet_num);
1101 >        packet_num=0;
1102 >
1103 >        while(ihost_getconfig(&ihost_state)!=0
1104 > #ifdef WIN32
1105 >                        && (tries<6)
1106 > #endif
1107 >                        ){
1108 >                log_msg(LOG_ERR, "Failed to get ihost config");
1109 >                sleep(SLEEP);
1110 > #ifdef WIN32
1111 >                tries++;
1112 > #endif
1113 >        }
1114 >
1115 > #ifdef WIN32
1116 >        if (tries == 6) {
1117 >                log_msg(LOG_ERR, "Giving up");
1118 >                goto out;
1119 >        }
1120 >        tries = 0;
1121 > #endif
1122 >
1123 >        while((create_udp_sockinfo(&udp_sockinfo, ihost_state.server_fqdn, ihost_state.server_udp_port))!=0
1124 > #ifdef WIN32
1125 >                        && (tries<6)
1126 > #endif
1127 >                        ){
1128 >                log_msg(LOG_ERR, "Failed to create udp socket");
1129 >                sleep(SLEEP);
1130 > #ifdef WIN32
1131 >                tries++;
1132 > #endif
1133 >        }
1134 >
1135 > #ifdef WIN32
1136 >        if (tries == 6) {
1137 >                log_msg(LOG_ERR, "Giving up");
1138 >                goto out;
1139 >        }
1140 > #endif
1141 >
1142 >        config_time=time(NULL)+ihost_state.config_ttl;
1143 >
1144 > #ifdef WIN32
1145 >        /* Finally, we have started successfully!
1146 >         * We set state to running even for non-service calls so the while
1147 >         * loop works. Bit of a hack ;)
1148 >         */
1149 >        service_status.dwCurrentState = SERVICE_RUNNING;
1150 >        if(run_as_service) {
1151 >                SetServiceStatus(hstatus, &service_status);
1152 >        }
1153 >        printf("started\n");
1154 > #endif
1155 >
1156 >        /* Now have config.. collect data and send as often as required */
1157 > #ifdef WIN32
1158 >        while(service_status.dwCurrentState == SERVICE_RUNNING)
1159 > #else
1160 >        for(;;)
1161 > #endif
1162 >        {
1163 >                cur_time=time(NULL);
1164 >
1165 >                if(cur_time>=udp_time){
1166 >                        if(sg_snapshot()) {
1167 >                                log_msg(LOG_ERR, "sg_snapshot failed: %s (%s)",
1168 >                                        sg_str_error(sg_get_error()), sg_get_error_arg());
1169 >                                continue; /* Could this get ugly? */
1170 >                        }
1171 >                        if((get_system_stats(packet_num++, &ihost_state, packet, MAX_UDP_PACKET_SIZE))!=0){
1172 >                                log_msg(LOG_ERR, "Failed to get system stats");
1173 >                        }
1174 >
1175 >                        len=strlen(packet);
1176 >                        log_msg(LOG_DEBUG, "Packet size: %d\nPacket: %s\n", len, packet);
1177 >
1178 >                        if((sendto(udp_sockinfo.sock, packet, len, 0, (struct sockaddr *) &udp_sockinfo.addr, sizeof(udp_sockinfo.addr)))!=len){
1179 >                                log_msg(LOG_CRIT, "Failed to send packet");
1180 >                        }
1181 >                        udp_time=cur_time+ihost_state.udp_update_time;
1182 >                        log_msg(LOG_DEBUG, "Next packet should be sent on %d", udp_time);
1183 >                }
1184 >
1185 >                if(cur_time>=config_time){
1186 >                        if(ihost_getconfig(&ihost_state)!=0){
1187 >                                /* If we can't get the config, try again 5 minutes time */
1188 >                                log_msg(LOG_ERR, "Failed to get config, try again 5 minutes time");
1189 >                                config_time=time(NULL)+300;
1190 >                        }else{
1191 >                                close(udp_sockinfo.sock);
1192 >
1193 >                                while((create_udp_sockinfo(&udp_sockinfo, ihost_state.server_fqdn, ihost_state.server_udp_port))!=0){
1194 >                                        log_msg(LOG_CRIT, "Failed to create udp socket");
1195 >                                        sleep(SLEEP);
1196 >                                }
1197 >
1198 >                                config_time=time(NULL)+ihost_state.config_ttl;
1199 >
1200 >                                log_msg(LOG_DEBUG, "Config expires on %d\n", ihost_state.config_ttl);
1201 >                        }
1202 >                }
1203 >
1204 >                sleep_delay=udp_time-time(NULL);
1205 >                log_msg(LOG_DEBUG, "Sleeping for %d", sleep_delay);
1206 > #ifdef WIN32
1207 >                /* convert to millisecs */
1208 >                sleep_delay *= 1000;
1209 > #endif
1210 >                if(sleep_delay>0) sleep(sleep_delay);
1211 >        }
1212 >
1213 >        if(sg_shutdown()) {
1214 >                log_msg(LOG_ERR, "sg_shutdown failed: %s (%s)",
1215 >                        sg_str_error(sg_get_error()), sg_get_error_arg());
1216 >        }
1217 >
1218 > #ifdef WIN32
1219 >        WSACleanup();
1220 >        if(run_as_service) {
1221 >                service_status.dwWin32ExitCode = 0;
1222 >                service_status.dwCurrentState = SERVICE_STOPPED;
1223 >                SetServiceStatus(hstatus, &service_status);
1224 >        }
1225 > #endif
1226 >        log_msg(LOG_ERR, "ihost shutdown successfully");
1227 >        fclose(ihost_config.log);
1228 >
1229 >        return(0);
1230 >
1231 > out:
1232 > #ifdef WIN32
1233 >        WSACleanup();
1234 >        service_stopped();
1235 > #endif
1236 >        exit(1);
1237   }
1238  
1239 + #ifdef WIN32
1240 + int service_main(int argc, char **argv) {
1241 +        int error;
1242 +
1243 +        service_status.dwServiceType = SERVICE_WIN32;
1244 +        service_status.dwCurrentState = SERVICE_START_PENDING;
1245 +        service_status.dwControlsAccepted = SERVICE_ACCEPT_STOP |
1246 +                SERVICE_ACCEPT_SHUTDOWN;
1247 +        service_status.dwWin32ExitCode = 0;
1248 +        service_status.dwServiceSpecificExitCode = 0;
1249 +        service_status.dwCheckPoint = 0;
1250 +        service_status.dwWaitHint = 0;
1251 +
1252 +        hstatus = RegisterServiceCtrlHandler(SERVICENAME,
1253 +                        (LPHANDLER_FUNCTION)control_handler);
1254 +        if(hstatus == (SERVICE_STATUS_HANDLE)0) {
1255 +                log_msg(LOG_CRIT, "RegisterServiceCtrlHandle failed");
1256 +                return -1;
1257 +        }
1258 +
1259 +        return run_ihost();
1260 + }
1261 +
1262 +
1263 + void parse_w(int argc, char **argv) {
1264 +        if (strcasecmp(optarg, "start") == 0) {
1265 +                log_msg(LOG_ERR, "Attempting to start service...");
1266 +                run_server = 0;
1267 +                if(start_service())
1268 +                        log_msg(LOG_ERR, "Service started");
1269 +        } else if (strcasecmp(optarg, "stop") == 0) {
1270 +                log_msg(LOG_ERR, "Attempting to stop service...");
1271 +                run_server = 0;
1272 +                if(stop_service())
1273 +                        log_msg(LOG_ERR, "Service stopped");
1274 +        } else if (strcasecmp(optarg, "service") == 0) {
1275 +                run_as_service = 1;
1276 +        } else if (strcasecmp(optarg, "register") == 0) {
1277 +                log_msg(LOG_ERR, "Attempting to register service...");
1278 +                run_server = 0;
1279 +                int i = optind;
1280 +                optind = argc;
1281 +                /* Grab the remaining arguments and use each time the service
1282 +                 * is started */
1283 +                if (register_service(argc-i, &argv[i]))
1284 +                        log_msg(LOG_ERR, "Registered service successfully");
1285 +        } else if (strcasecmp(optarg, "unregister") == 0) {
1286 +                log_msg(LOG_ERR, "Attempting to unregister service...");
1287 +                run_server = 0;
1288 +                if(unregister_service())
1289 +                        log_msg(LOG_ERR, "Unregistered service successfully");
1290 +        } else {
1291 +                fprintf(stderr, "Unknown -w option\n");
1292 +                usage(argv[0]);
1293 +                exit(1);
1294 +        }
1295 + }
1296 + #endif
1297 +
1298 +
1299 + int main(int argc, char **argv){
1300 +        int cmdopt;
1301 +        extern int optind;
1302 +
1303 +        /* Set default settings */
1304 +        ihost_config.verbose=1;
1305 +        ihost_config.daemon=1;
1306 +        /* Set all errors to go down stderr until told otherwise */
1307 +        ihost_config.log=stderr;
1308 +
1309 +        /* Blank ihost_state to default settings */
1310 +        ihost_state.filtermanager_host=DEF_SERVER_NAME;
1311 +        ihost_state.filtermanager_port=DEF_SERVER_PORT;
1312 +        ihost_state.host_fqdn=NULL;
1313 +        ihost_state.host_ip=NULL;
1314 +        ihost_state.preset_fqdn = 0;
1315 +        ihost_state.preset_ip = 0;
1316 +        ihost_state.server_fqdn=NULL;
1317 +        ihost_state.file_list=NULL;
1318 +        ihost_state.last_modified=NULL;
1319 +
1320 +        while((cmdopt=getopt(argc, argv, OPTSTRING)) != -1){
1321 +                switch(cmdopt){
1322 +                        case 'v':
1323 +                                ihost_config.verbose++;
1324 +                                break;
1325 +
1326 + #ifndef WIN32
1327 +                        case 'f':
1328 +                                /* Force syslog logging since stderr will be closed in this case */
1329 +                                ihost_config.daemon=0;
1330 +                                break;
1331 + #endif
1332 +
1333 +                        case 'V':
1334 +                                fprintf(stderr, "%s version %s\n", argv[0], VERSION);
1335 +                                break;
1336 +                        case 'n':
1337 +                                ihost_state.preset_fqdn = 1;
1338 +                                ihost_state.host_fqdn = strdup(optarg);
1339 +                                if(ihost_state.host_fqdn == NULL){
1340 +                                        fprintf(stderr, "Missing hostname\n");
1341 +                                        usage(argv[0]);
1342 +                                }
1343 +                                break;
1344 +                        case 'i':
1345 +                                /* Hmm.. Someone could set any string to be the IP, and it will let it */
1346 +                                ihost_state.preset_ip = 1;
1347 +                                ihost_state.host_ip = strdup(optarg);
1348 +                                if(ihost_state.host_ip == NULL){
1349 +                                        fprintf(stderr, "Missing ip\n");
1350 +                                        usage(argv[0]);
1351 +                                }
1352 +                                break;
1353 +
1354 +                        case 's':
1355 +                                ihost_state.filtermanager_host=strdup(optarg);
1356 +                                break;
1357 +
1358 +                        case 'p':
1359 +                                ihost_state.filtermanager_port=atoi(optarg);
1360 +                                break;
1361 +
1362 + #ifdef WIN32
1363 +                        case 'w':
1364 +                                parse_w(argc, argv);
1365 +                                break;
1366 + #endif
1367 +
1368 +                        case 'h':
1369 +                        default:
1370 +                                usage(argv[0]);
1371 +                                exit(1);
1372 +                }
1373 +        }
1374 +
1375 + #ifdef WIN32
1376 +        if (run_server) {
1377 +                if(run_as_service) {
1378 +                        if((ihost_config.log=fopen(LOG_FILE, "a"))==NULL){
1379 +                                ihost_config.log=stderr;
1380 +                                log_msg(LOG_CRIT, "Failed to open Logfiles %s for writing", LOG_FILE);
1381 +                                exit(1);
1382 +                        }
1383 +                        log_msg(LOG_ERR, "Starting Service-Mode i-host");
1384 +                        SERVICE_TABLE_ENTRY service_table[2];
1385 +                        service_table[0].lpServiceName = SERVICENAME;
1386 +                        service_table[0].lpServiceProc = (LPSERVICE_MAIN_FUNCTION)service_main;
1387 +                        service_table[1].lpServiceName = NULL;
1388 +                        service_table[1].lpServiceProc = NULL;
1389 +                        return StartServiceCtrlDispatcher(service_table);
1390 +                } else {
1391 +                        log_msg(LOG_ERR, "Starting User-Mode i-host");
1392 +                        return run_ihost();
1393 +                }
1394 +        }
1395 + #else
1396 +        return run_ihost();
1397 + #endif
1398 + }

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines