source/ihost/ihost.c

/* 
 * i-scream central monitoring system
 * http://www.i-scream.org.uk
 * Copyright (C) 2000-2002 i-scream
 * 
 * This program is free software; you can redistribute it and/or
 * modify it under the terms of the GNU General Public License
 * as published by the Free Software Foundation; either version 2
 * of the License, or (at your option) any later version.
 * 
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 * 
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <unistd.h>
#include <syslog.h>
#include <netinet/in.h>
#include "ukcprog.h"
#include <netdb.h>
#include <string.h>
#include "statgrab.h"
#include <time.h>
#include <sys/socket.h>
#include <arpa/inet.h>
#include <syslog.h>

#define RECONFIGURE_RETURN_CODE 2

#define logmessage(level, ...) do { cur_level = level; errf(__VA_ARGS__); } while (0)

typedef struct{
        int fm_port;
        char *fm_host;

        char *my_ip;    
        char *my_fqdn;
        char *server_fqdn;
        int server_udp_port;
        int server_tcp_port;
        char *last_modified;
        char *files_list;
        char *key;
        int udp_update_time;
        int tcp_update_time;

}ihost_state_t;

static int log_level;
static int cur_level;
static int syslog_logging;

void log_errors(const char *message){
        if(log_level>=cur_level){
                if (syslog_logging==1){
                        syslog(cur_level, "%s\n", message);
                }else{
                        fprintf(stderr, "%s\n", message);
                }
        }       
}

char* sock_comm(FILE *f_r, FILE *f_w, char *sendString){
        char *reply;
        logmessage(LOG_DEBUG, "Sending %s",sendString);
        fprintf(f_w, "%s\n", sendString);
        fflush(f_w);
        reply=fpgetline(f_r);
        if (reply!=NULL) logmessage(LOG_DEBUG, "Received %s", reply);
        /* Returns pointer to static buffer */
        return reply;
}       

int ihost_configure(ihost_state_t *ihost_state){
        struct sockaddr_in addr;
        struct in_addr haddr;
        struct sockaddr ip;
        int ip_len;
        int sd;
        FILE *fm_fd_r, *fm_fd_w;
        char *reply;
        char *reply_ptr;

        /* Check to see if anything needs to be free'd */
        if (ihost_state->my_fqdn!=NULL) free(ihost_state->my_fqdn);
        if (ihost_state->server_fqdn!=NULL) free(ihost_state->server_fqdn);
        if (ihost_state->last_modified!=NULL) free(ihost_state->last_modified);
        if (ihost_state->files_list!=NULL) free(ihost_state->files_list);

        logmessage(LOG_DEBUG, "Setting up configure socket to %s on port %d", ihost_state->fm_host, ihost_state->fm_port);
        if ((sd = socket(AF_INET, SOCK_STREAM, PF_UNSPEC)) < 0) {
                logmessage(LOG_ERR, "Can't create AF_INET socket (%m)");
                return -1;
        }

        if (get_host_addr(ihost_state->fm_host, &haddr) != 0){
                logmessage(LOG_ERR, "Failed to resolve address %s (%m)", ihost_state->fm_host);
                return -1;
        }

        memset(&addr, 0, sizeof addr);
        addr.sin_family = AF_INET;
        memcpy(&addr.sin_addr, &haddr, sizeof haddr);
        addr.sin_port =  htons(ihost_state->fm_port);

        if (connect(sd, (struct sockaddr *)&addr, sizeof addr) != 0) {
                logmessage(LOG_ERR, "Failed to connect to %s on port %d (%m)", ihost_state->fm_host, ihost_state->fm_port);
                return -1;
        }

        /* Need to open 2 files, one for reading one for writing, as it gets confused if we only use 1 :) */
        if ((fm_fd_r=fdopen(sd,"r")) == NULL){
                logmessage(LOG_ERR, "Failed to open read stream (%m)");
                return -1;
        }

        if ((fm_fd_w=fdopen(dup(sd),"w")) == NULL){
                logmessage(LOG_ERR, "Failed to open write stream (%m)");
                return -1;
        }
        ip_len=sizeof ip;
        memset(&ip, 0, ip_len);
        if((getsockname(sd, &ip, &ip_len)) != 0){
                logmessage(LOG_ERR, "Failed to get IP address (%m)");
                return -1;
        }
        if (ip.sa_family!=AF_INET){
                logmessage(LOG_ERR, "sa family is wrong type");
                return -1;
        }

        if(ihost_state->my_ip!=NULL) free(ihost_state->my_ip);  
        if((ihost_state->my_ip=strdup(inet_ntoa(((struct sockaddr_in *)&ip)->sin_addr)))==NULL){
                logmessage(LOG_ERR, "Failed to get IP (%m)");
                return -1;
        }       
        
        reply=sock_comm(fm_fd_r, fm_fd_w, "STARTCONFIG");
        if ((reply==NULL) || (strncasecmp(reply, "OK", 2) != 0) ) {
                logmessage(LOG_ERR, "Server error on STARTCONFIG");     
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "LASTMODIFIED");
        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0)){
                logmessage(LOG_ERR, "Server error on LASTMODIFIED (%m)");
                return -1;
        }
        if((ihost_state->last_modified=strdup(reply)) == NULL){
                logmessage(LOG_ERR, "strdup failed (%m)");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "FILELIST");
        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0)){
                logmessage(LOG_ERR, "Server error on FILELIST (%m)");
                return -1;
        }
        if((ihost_state->files_list=strdup(reply)) == NULL){
                logmessage(LOG_ERR, "strdup failed (%m)");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "FQDN");
        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5)==0)){
                logmessage(LOG_ERR, "Server error on FQDN (%m)");
                return -1;
        }
        if((ihost_state->my_fqdn=strdup(reply)) == NULL){
                logmessage(LOG_ERR, "strdup failed (%m)");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "UDPUpdateTime");
        if(reply== NULL){
                logmessage(LOG_ERR, "Server error (%m)");
                return -1;
        }
        if (strncasecmp(reply, "ERROR", 5) != 0){
                ihost_state->udp_update_time=atoi(reply);
        }
        
        reply=sock_comm(fm_fd_r, fm_fd_w, "TCPUpdateTime");
        if(reply== NULL){
                logmessage(LOG_ERR, "Server error on TCPUpdateTime (%m)");
                return -1;
        }
        if (strncasecmp(reply, "ERROR", 5) != 0){
                ihost_state->tcp_update_time=atoi(reply);
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "ENDCONFIG");
        if(reply== NULL){
                logmessage(LOG_ERR, "Server error on ENDCONFIG (%m)");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "FILTER");
        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5)==0)){
                logmessage(LOG_ERR, "Server error FILTER failed (%m)");
                return -1;
        }
        reply_ptr=strchr(reply,';');
        if (reply_ptr==NULL){
                logmessage(LOG_ERR, "Incorrect data returned");
                return -1;
        }
        *reply_ptr='\0';
        if((ihost_state->server_fqdn=strdup(reply)) == NULL){
                logmessage(LOG_ERR, "strdup failed (%m)");
                return -1;
        }
        reply=reply_ptr + 1;
        reply_ptr=strchr(reply,';');
        if (reply_ptr==NULL){
                logmessage(LOG_ERR, "Incorrect data returned 2");
                return -1;
        }
        *reply_ptr='\0';
        ihost_state->server_udp_port=atoi(reply);
        reply=reply_ptr+1;
        ihost_state->server_tcp_port=atoi(reply);
        if ((ihost_state->server_tcp_port==0) || (ihost_state->server_udp_port==0)){
                logmessage(LOG_ERR, "Incorrect data returned 3 ");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "END");
        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0 )){
                logmessage(LOG_ERR, "Server error on END (%m)");
                return -1;
        }

        if(fclose(fm_fd_r) !=0){
                logmessage(LOG_ERR, "Failed to close read FD (%m)");
                return -1;
        }
        if(fclose(fm_fd_w) !=0){
                logmessage(LOG_ERR, "Failed to close write FD (%m)");
                return -1;
        }

        return 0;
}

int heartbeat(ihost_state_t *ihost_state){
        struct sockaddr_in addr;
        struct in_addr haddr;
        int sd;
        FILE *fm_fd_r, *fm_fd_w;
        char *reply;
        int exitcode=0;

        logmessage(LOG_DEBUG, "Setting up configure socket to %s on port %d", ihost_state->server_fqdn, ihost_state->server_tcp_port);
        if ((sd = socket(AF_INET, SOCK_STREAM, PF_UNSPEC)) < 0) {
                logmessage(LOG_ERR, "Can't create AF_INET socket (%m)");
                return -1;
        }

        if (get_host_addr(ihost_state->server_fqdn, &haddr) != 0){
                logmessage(LOG_ERR, "Failed to resolve address %s (%m)", ihost_state->server_fqdn);
                return -1;
        }

        memset(&addr, 0, sizeof addr);
        addr.sin_family = AF_INET;
        memcpy(&addr.sin_addr, &haddr, sizeof haddr);
        addr.sin_port =  htons(ihost_state->server_tcp_port);

        if (connect(sd, (struct sockaddr *)&addr, sizeof addr) != 0) {
                logmessage(LOG_ERR, "Failed to connect to %s on port %d (%m)", ihost_state->server_fqdn, ihost_state->server_tcp_port);
                return -1;
        }

        /* Need to open 2 files, one for reading one for writing, as it gets confused if we only use 1 :) */
        if ((fm_fd_r=fdopen(sd,"r")) == NULL){
                logmessage(LOG_ERR, "Failed to open stream (%m)");
                return -1;
        }

        if ((fm_fd_w=fdopen(dup(sd),"w")) == NULL){
                logmessage(LOG_ERR, "Failed to open stream (%m)");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "HEARTBEAT");
        if ((reply==NULL) || (strncasecmp(reply, "ERROR", 5) == 0) ) {
                logmessage(LOG_ERR, "Server error on HEARTBEAT");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "CONFIG");
        if ((reply==NULL) || (strncasecmp(reply, "ERROR", 5) == 0) ) {
                logmessage(LOG_ERR, "Server error on CONFIG");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, ihost_state->files_list);
        if ((reply==NULL) || (strncasecmp(reply, "OK", 2) != 0) ) {
                logmessage(LOG_ERR, "Server error on fileslist");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, ihost_state->last_modified);
        if (reply==NULL) {
                logmessage(LOG_ERR, "Server error NULL recieved on lastmodified");
                return -1;
        }
        if (strncasecmp(reply, "ERROR", 5) == 0){
        /* Means the config has changed */
                logmessage(LOG_INFO, "Recieved ERROR from server for a reconfigure required");
                exitcode=RECONFIGURE_RETURN_CODE;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "KEY");
        if ((reply==NULL) || (strncasecmp(reply, "ERROR", 5) == 0) ) {
                logmessage(LOG_ERR, "Server error on KEY");
                return -1;
        }
        if (ihost_state->key!=NULL) free(ihost_state->key);
 
        if((ihost_state->key=strdup(reply)) == NULL){
                logmessage(LOG_ERR, "strdup failed (%m)");
                return -1;
        }

        reply=sock_comm(fm_fd_r, fm_fd_w, "ENDHEARTBEAT");
        if((reply== NULL) || (strncasecmp(reply, "ERROR", 5) ==0 )){
                logmessage(LOG_ERR, "Server error on ENDHEARTBEAT (%m)");
                return -1;
        }

        fflush(fm_fd_r);
        fflush(fm_fd_w);

        if(fclose(fm_fd_r) !=0){
                logmessage(LOG_ERR, "Failed to close read FD (%m)");
                return -1;
        }
        if(fclose(fm_fd_w) !=0){
                logmessage(LOG_ERR, "Failed to close write FD (%m)");
                return -1;
        }

        return exitcode;                
}

char *stat_grab(ihost_state_t *ihost_state, int counter){
#define NUM_STATS 9
        char *stats[NUM_STATS];
        char *xml_data=NULL;
        char *xml_data_p;
        int xml_size=0;
        int x=0;

        logmessage(LOG_DEBUG,"get_cpu_stats");  
        stats[0]=get_cpu_stats();
        logmessage(LOG_DEBUG,"get_disk_stats"); 
        stats[1]=get_disk_stats();
        logmessage(LOG_DEBUG,"get_load_stats"); 
        stats[2]=get_load_stats();      
        logmessage(LOG_DEBUG,"get_memory_stats");               
        stats[3]=get_memory_stats();
        logmessage(LOG_DEBUG,"get_os_info");    
        stats[4]=get_os_info();
        logmessage(LOG_DEBUG,"get_page_stats"); 
        stats[5]=get_page_stats();
        logmessage(LOG_DEBUG,"get_process_stats");      
        stats[6]=get_process_stats();
        logmessage(LOG_DEBUG,"get_swap_stats"); 
        stats[7]=get_swap_stats();
        logmessage(LOG_DEBUG,"get_user_stats"); 
        stats[8]=get_user_stats();
        

        for(x=0;x<NUM_STATS;x++){
                if(stats[x]==NULL){
                        logmessage(LOG_ERR,"Function returned NULL");
                        return NULL;
                }
                xml_size+=strlen(stats[x]);
        }

        xml_data=malloc(xml_size+1);
        xml_data=strcpy(xml_data, stats[0]);
        free(stats[0]);
        for(x=1;x<NUM_STATS;x++){
                strcat(xml_data, stats[x]);
                free(stats[x]);
        }

        xml_data_p=xml_data;
        xml_data=strf("<packet seq_no=\"%d\" machine_name=\"%s\" date=\"%ld\" type=\"data\" ip=\"%s\" key=\"%s\">%s</packet>", counter, ihost_state->my_fqdn, time(NULL), ihost_state->my_ip, ihost_state->key, xml_data);
        free(xml_data_p); 

        logmessage(LOG_DEBUG,"Generated XML Data of : %s", xml_data);   
        return xml_data;
}

int send_stats(ihost_state_t *ihost_state, char *data_stream){
        struct sockaddr_in addr;
        struct in_addr haddr;

        int sd;
        size_t len;

        len=strlen(data_stream);
        if(len>UDP_MAX_PACKET_SIZE){
                logmessage(LOG_ERR, "Too big to send to server. Please reconfigure client and server and recompile");
                exit(1);
        }
        logmessage(LOG_DEBUG,"Resolving IP of server"); 
        if (get_host_addr(ihost_state->server_fqdn, &haddr) != 0){
                logmessage(LOG_ERR, "Failed to resolve address %s (%m)", ihost_state->server_fqdn);
                return -1;
        }
        logmessage(LOG_DEBUG,"Creating UDP socket to %s on %d",ihost_state->server_fqdn, ihost_state->server_udp_port);
        if((sd=socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0){
                logmessage(LOG_ERR, "failed to create UDP socket (%m)");
                return -1;
        }

        memset(&addr, 0, sizeof(addr));
        addr.sin_family=AF_INET;
        memcpy((char *)&addr.sin_addr, &haddr, sizeof haddr);
        addr.sin_port =  htons(ihost_state->server_udp_port);

        logmessage(LOG_INFO,"Sending packet : %s", data_stream);
        if((sendto(sd, data_stream, len, 0, (struct sockaddr *) &addr, sizeof(addr))) != len){
                logmessage(LOG_ERR, "Send the wrong number of bytes (%m)");
                return -1;
        }

        close(sd);

        return 0;       
}

void usage(char *progname){
        fprintf(stderr, "Usage %s [options] server port\n", progname);
        fprintf(stderr, "Options\n");
        fprintf(stderr, "  -v           Verbose, the more v flags the more verbose, eg -vv\n");
        fprintf(stderr, "  -d           Daemon mode, self backgrounding\n");
        fprintf(stderr, "  -s           Send errors to syslog\n");
        fprintf(stderr, "  -V           Print version number\n");
        fprintf(stderr, "  -h           Prints this help page\n");      
        exit(1);        
}

int main(int argc, char **argv){
        ihost_state_t ihost_state;
        int heartbeat_exit;
        int counter=0;
        long udp_time=0, tcp_time=0, stat_grab_time=0, cur_time=0;
        int sleep_delay=0;
        char *xml_stats;
        pid_t pid;
        int cmdopt;
        extern int optind;
        int verbose=0, daemon=0;
        extern int syslog_logging;
        extern int log_level;
        extern int cur_level;
        FILE *f;

        log_level=1;
        cur_level=1;
        syslog_logging=0;

        errf_set_ofunc(log_errors);
        /* NULL'ify so i can tell if i need to free it or not */
        ihost_state.fm_host=NULL;
        ihost_state.my_fqdn=NULL;
        ihost_state.server_fqdn=NULL;
        ihost_state.last_modified=NULL;
        ihost_state.files_list=NULL;
        ihost_state.key=NULL;
        ihost_state.my_ip=NULL;

        errf_set_progname(argv[0]);
        

        while((cmdopt=getopt(argc, argv, "vdshV")) != -1){
                switch(cmdopt){
                        case 'v':
                                verbose++;
                                break;
                        
                        case 'd':
                                /* Force syslog logging since stderr will be closed in this case */
                                syslog_logging=1;
                                daemon=1;
                                break;
                        
                        case 's':
                                syslog_logging=1;
                                break;
        
                        case 'h':
                                usage(argv[0]);
                                break;

                        case 'V':
                                errf("%s version %s",argv[0], VERSION);
                                break;

                        default:
                                usage(argv[0]);
                                exit(1);
                }
        }

        if(argc!=optind+2){
                usage(argv[0]);
                exit(1);
        }
        ihost_state.fm_host=argv[optind];
        ihost_state.fm_port=atoi(argv[optind+1]);
        if(ihost_state.fm_port==0){
                errf("Invalid port number");
                usage(argv[0]);
        }

        if(daemon==1){
                pid=fork();
                if(pid==-1){
                        errf("Fork failed, can't background. Exiting");
                        exit(1);
                }else if(pid!=0){
                        /* Parent process */
                        return 0;
                }
                /* We should now be in the background*/
                if(setsid()==-1){
                        errf("setsid failed (%m)");
                        exit(1);
                }
                fclose(stdin);
                fclose(stdout);
                fclose(stderr);
        }

        if(syslog_logging==1){
                   openlog(errf_get_progname(),0,LOG_ERR);
                   setlogmask(LOG_UPTO(LOG_DEBUG));
        }
                
        switch(verbose){
                case 0:
                        /* Critical errors + */
                        log_level=LOG_ERR;
                        break;
                case 1:
                        /* Recoverable errors */
                        log_level=LOG_WARNING;
                        break;
                case 2: 
                        /* Print stuff like the XML packets */
                        log_level=LOG_INFO;
                        break;
                default:
                        /* Must have lots of v's */
                        /* Print out everything its doing */
                        log_level=LOG_DEBUG;
                        break;
        }

        logmessage(LOG_DEBUG,"Writing PID FILE");
        pid=getpid();
        if((f=fopen(PID_FILE,"w")) == NULL){
                logmessage(LOG_WARNING, "Failed to write PID file (%m)");
        }else{
                if((fprintf(f,"%d",(int)pid)) <= 0 ){
                        logmessage(LOG_WARNING, "Failed to write PID file (%m)");
                }
                if((fclose(f))!=0){
                        logmessage(LOG_ERR, "failed to close PID file");
                        exit(1);
                }
        }

        if(ihost_configure(&ihost_state)!=0){
                logmessage(LOG_ERR,"configure failed");
                /* Ok, ideally we prob should have 2 copies of the structure and carry on if this
                happens.. But we dont :) (at the moment) */
                exit(1);
        }

        for(;;){
                cur_time=time(NULL);
                if(cur_time>=tcp_time){
                        logmessage(LOG_DEBUG,"Sending heartbeat");
                        heartbeat_exit=heartbeat(&ihost_state);
                        if(heartbeat_exit==RECONFIGURE_RETURN_CODE){
                                logmessage(LOG_INFO,"heartbeat needs to be reconfigured");
                                ihost_configure(&ihost_state);
                                udp_time=0;
                        }
                        if(heartbeat_exit==-1){
                                logmessage(LOG_ERR,"Heartbeat failed");
                                exit(1);
                        }
                        tcp_time=time(NULL)+ihost_state.tcp_update_time;
                        logmessage(LOG_DEBUG,"next tcp time should be %d", tcp_time);
                }

                if(cur_time>=udp_time){
                        logmessage(LOG_DEBUG,"Sending udp data");
                        /* Work out how long it takes to get the stats for next time round
                           so the sleep time can be adjusted accordingly */
                        stat_grab_time=time(NULL);
                        if((xml_stats=stat_grab(&ihost_state, counter++)) == NULL){
                                logmessage(LOG_ERR,"Failed to get stats (%m)");
                                exit(1);
                        }
                        stat_grab_time=time(NULL)-stat_grab_time;
                        send_stats(&ihost_state, xml_stats);
                        free(xml_stats);
                        udp_time=time(NULL)+ihost_state.udp_update_time-stat_grab_time;
                        logmessage(LOG_DEBUG,"next udp time should be %d", udp_time);
                }

                if(tcp_time<udp_time){
                        sleep_delay=tcp_time-time(NULL);
                }else{
                        sleep_delay=udp_time-time(NULL);
                }
                logmessage(LOG_DEBUG,"Sleeping for %d", sleep_delay);
                if(sleep_delay>0) sleep(sleep_delay);
        }
        return 0;
}

Revision:	1.27
Committed:	Wed May 29 23:03:53 2002 UTC (22 years ago) by tdb
Content type:	text/plain
Branch:	MAIN
CVS Tags:	IHOST_1_0_RC1
Changes since 1.26:	+0 -2 lines
Log Message:	Moved the definitions of the PID file location and the maximum UDP packet size to configure options. The version number is also done by configure.
#	User	Rev	Content
1	tdb	1.11	/*
2			* i-scream central monitoring system
3	tdb	1.23	* http://www.i-scream.org.uk
4	tdb	1.11	* Copyright (C) 2000-2002 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	tdb	1.26	#ifdef HAVE_CONFIG_H
22			#include "config.h"
23			#endif
24
25	pajs	1.1	#include <stdio.h>
26			#include <stdlib.h>
27	pajs	1.18	#include <sys/types.h>
28	pajs	1.1	#include <unistd.h>
29			#include <syslog.h>
30			#include <netinet/in.h>
31	pajs	1.9	#include "ukcprog.h"
32	pajs	1.1	#include <netdb.h>
33	pajs	1.12	#include <string.h>
34	pajs	1.9	#include "statgrab.h"
35	pajs	1.12	#include <time.h>
36	pajs	1.14	#include <sys/socket.h>
37	pajs	1.16	#include <arpa/inet.h>
38	pajs	1.18	#include <syslog.h>
39	pajs	1.1
40	pajs	1.4	#define RECONFIGURE_RETURN_CODE 2
41
42	pajs	1.18	#define logmessage(level, ...) do { cur_level = level; errf(__VA_ARGS__); } while (0)
43
44	pajs	1.1	typedef struct{
45			int fm_port;
46			char *fm_host;
47	pajs	1.16
48			char *my_ip;
49	pajs	1.1	char *my_fqdn;
50			char *server_fqdn;
51			int server_udp_port;
52			int server_tcp_port;
53	pajs	1.4	char *last_modified;
54	pajs	1.1	char *files_list;
55			char *key;
56			int udp_update_time;
57			int tcp_update_time;
58
59			}ihost_state_t;
60
61	pajs	1.18	static int log_level;
62			static int cur_level;
63			static int syslog_logging;
64
65			void log_errors(const char *message){
66			if(log_level>=cur_level){
67			if (syslog_logging==1){
68			syslog(cur_level, "%s\n", message);
69			}else{
70			fprintf(stderr, "%s\n", message);
71			}
72			}
73			}
74
75	pajs	1.7	char* sock_comm(FILE f_r, FILE f_w, char *sendString){
76	pajs	1.1	char *reply;
77	pajs	1.21	logmessage(LOG_DEBUG, "Sending %s",sendString);
78	pajs	1.7	fprintf(f_w, "%s\n", sendString);
79	pajs	1.2	fflush(f_w);
80			reply=fpgetline(f_r);
81	pajs	1.21	if (reply!=NULL) logmessage(LOG_DEBUG, "Received %s", reply);
82	pajs	1.1	/* Returns pointer to static buffer */
83			return reply;
84			}
85
86			int ihost_configure(ihost_state_t *ihost_state){
87			struct sockaddr_in addr;
88			struct in_addr haddr;
89	pajs	1.16	struct sockaddr ip;
90			int ip_len;
91	pajs	1.1	int sd;
92	pajs	1.2	FILE fm_fd_r, fm_fd_w;
93	pajs	1.1	char *reply;
94	pajs	1.2	char *reply_ptr;
95	pajs	1.1
96	pajs	1.5	/* Check to see if anything needs to be free'd */
97			if (ihost_state->my_fqdn!=NULL) free(ihost_state->my_fqdn);
98			if (ihost_state->server_fqdn!=NULL) free(ihost_state->server_fqdn);
99			if (ihost_state->last_modified!=NULL) free(ihost_state->last_modified);
100			if (ihost_state->files_list!=NULL) free(ihost_state->files_list);
101
102	pajs	1.18	logmessage(LOG_DEBUG, "Setting up configure socket to %s on port %d", ihost_state->fm_host, ihost_state->fm_port);
103	pajs	1.1	if ((sd = socket(AF_INET, SOCK_STREAM, PF_UNSPEC)) < 0) {
104	pajs	1.18	logmessage(LOG_ERR, "Can't create AF_INET socket (%m)");
105	pajs	1.1	return -1;
106			}
107
108			if (get_host_addr(ihost_state->fm_host, &haddr) != 0){
109	pajs	1.18	logmessage(LOG_ERR, "Failed to resolve address %s (%m)", ihost_state->fm_host);
110	pajs	1.1	return -1;
111			}
112
113	pajs	1.9	memset(&addr, 0, sizeof addr);
114	pajs	1.1	addr.sin_family = AF_INET;
115	pajs	1.9	memcpy(&addr.sin_addr, &haddr, sizeof haddr);
116	pajs	1.1	addr.sin_port = htons(ihost_state->fm_port);
117
118			if (connect(sd, (struct sockaddr *)&addr, sizeof addr) != 0) {
119	pajs	1.18	logmessage(LOG_ERR, "Failed to connect to %s on port %d (%m)", ihost_state->fm_host, ihost_state->fm_port);
120	pajs	1.1	return -1;
121			}
122
123	pajs	1.2	/* Need to open 2 files, one for reading one for writing, as it gets confused if we only use 1 :) */
124			if ((fm_fd_r=fdopen(sd,"r")) == NULL){
125	pajs	1.18	logmessage(LOG_ERR, "Failed to open read stream (%m)");
126	pajs	1.2	return -1;
127			}
128
129			if ((fm_fd_w=fdopen(dup(sd),"w")) == NULL){
130	pajs	1.18	logmessage(LOG_ERR, "Failed to open write stream (%m)");
131	pajs	1.1	return -1;
132			}
133	pajs	1.16	ip_len=sizeof ip;
134			memset(&ip, 0, ip_len);
135			if((getsockname(sd, &ip, &ip_len)) != 0){
136	pajs	1.18	logmessage(LOG_ERR, "Failed to get IP address (%m)");
137	pajs	1.16	return -1;
138			}
139			if (ip.sa_family!=AF_INET){
140	pajs	1.18	logmessage(LOG_ERR, "sa family is wrong type");
141	pajs	1.16	return -1;
142			}
143	pajs	1.25
144			if(ihost_state->my_ip!=NULL) free(ihost_state->my_ip);
145	pajs	1.22	if((ihost_state->my_ip=strdup(inet_ntoa(((struct sockaddr_in *)&ip)->sin_addr)))==NULL){
146	pajs	1.18	logmessage(LOG_ERR, "Failed to get IP (%m)");
147	pajs	1.16	return -1;
148			}
149	pajs	1.18
150	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "STARTCONFIG");
151	pajs	1.1	if ((reply==NULL) \|\| (strncasecmp(reply, "OK", 2) != 0) ) {
152	pajs	1.18	logmessage(LOG_ERR, "Server error on STARTCONFIG");
153	pajs	1.1	return -1;
154			}
155
156	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "LASTMODIFIED");
157	pajs	1.2	if((reply== NULL) \|\| (strncasecmp(reply, "ERROR", 5) ==0)){
158	pajs	1.18	logmessage(LOG_ERR, "Server error on LASTMODIFIED (%m)");
159	pajs	1.1	return -1;
160			}
161	pajs	1.7	if((ihost_state->last_modified=strdup(reply)) == NULL){
162	pajs	1.18	logmessage(LOG_ERR, "strdup failed (%m)");
163	pajs	1.4	return -1;
164			}
165	pajs	1.18
166	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "FILELIST");
167	pajs	1.2	if((reply== NULL) \|\| (strncasecmp(reply, "ERROR", 5) ==0)){
168	pajs	1.18	logmessage(LOG_ERR, "Server error on FILELIST (%m)");
169	pajs	1.1	return -1;
170			}
171	pajs	1.7	if((ihost_state->files_list=strdup(reply)) == NULL){
172	pajs	1.18	logmessage(LOG_ERR, "strdup failed (%m)");
173	pajs	1.6	return -1;
174			}
175	pajs	1.1
176	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "FQDN");
177	pajs	1.2	if((reply== NULL) \|\| (strncasecmp(reply, "ERROR", 5)==0)){
178	pajs	1.18	logmessage(LOG_ERR, "Server error on FQDN (%m)");
179	pajs	1.1	return -1;
180			}
181			if((ihost_state->my_fqdn=strdup(reply)) == NULL){
182	pajs	1.18	logmessage(LOG_ERR, "strdup failed (%m)");
183	pajs	1.1	return -1;
184			}
185
186	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "UDPUpdateTime");
187	pajs	1.1	if(reply== NULL){
188	pajs	1.18	logmessage(LOG_ERR, "Server error (%m)");
189	pajs	1.1	return -1;
190			}
191			if (strncasecmp(reply, "ERROR", 5) != 0){
192			ihost_state->udp_update_time=atoi(reply);
193			}
194	pajs	1.18
195	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "TCPUpdateTime");
196	pajs	1.1	if(reply== NULL){
197	pajs	1.18	logmessage(LOG_ERR, "Server error on TCPUpdateTime (%m)");
198	pajs	1.1	return -1;
199			}
200			if (strncasecmp(reply, "ERROR", 5) != 0){
201			ihost_state->tcp_update_time=atoi(reply);
202			}
203
204	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "ENDCONFIG");
205	pajs	1.1	if(reply== NULL){
206	pajs	1.18	logmessage(LOG_ERR, "Server error on ENDCONFIG (%m)");
207	pajs	1.1	return -1;
208			}
209
210	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "FILTER");
211	pajs	1.2	if((reply== NULL) \|\| (strncasecmp(reply, "ERROR", 5)==0)){
212	pajs	1.18	logmessage(LOG_ERR, "Server error FILTER failed (%m)");
213	pajs	1.2	return -1;
214			}
215			reply_ptr=strchr(reply,';');
216			if (reply_ptr==NULL){
217	pajs	1.18	logmessage(LOG_ERR, "Incorrect data returned");
218	pajs	1.2	return -1;
219			}
220			*reply_ptr='\0';
221			if((ihost_state->server_fqdn=strdup(reply)) == NULL){
222	pajs	1.18	logmessage(LOG_ERR, "strdup failed (%m)");
223	pajs	1.2	return -1;
224			}
225	pajs	1.8	reply=reply_ptr + 1;
226	pajs	1.2	reply_ptr=strchr(reply,';');
227			if (reply_ptr==NULL){
228	pajs	1.18	logmessage(LOG_ERR, "Incorrect data returned 2");
229	pajs	1.2	return -1;
230			}
231			*reply_ptr='\0';
232			ihost_state->server_udp_port=atoi(reply);
233	pajs	1.8	reply=reply_ptr+1;
234	pajs	1.2	ihost_state->server_tcp_port=atoi(reply);
235			if ((ihost_state->server_tcp_port==0) \|\| (ihost_state->server_udp_port==0)){
236	pajs	1.18	logmessage(LOG_ERR, "Incorrect data returned 3 ");
237	pajs	1.2	return -1;
238			}
239
240	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "END");
241	pajs	1.2	if((reply== NULL) \|\| (strncasecmp(reply, "ERROR", 5) ==0 )){
242	pajs	1.18	logmessage(LOG_ERR, "Server error on END (%m)");
243	pajs	1.2	return -1;
244			}
245	pajs	1.1
246	pajs	1.2	if(fclose(fm_fd_r) !=0){
247	pajs	1.18	logmessage(LOG_ERR, "Failed to close read FD (%m)");
248	pajs	1.2	return -1;
249			}
250			if(fclose(fm_fd_w) !=0){
251	pajs	1.18	logmessage(LOG_ERR, "Failed to close write FD (%m)");
252	pajs	1.2	return -1;
253			}
254	pajs	1.1
255			return 0;
256			}
257	pajs	1.4
258			int heartbeat(ihost_state_t *ihost_state){
259			struct sockaddr_in addr;
260			struct in_addr haddr;
261			int sd;
262			FILE fm_fd_r, fm_fd_w;
263			char *reply;
264			int exitcode=0;
265
266	pajs	1.18	logmessage(LOG_DEBUG, "Setting up configure socket to %s on port %d", ihost_state->server_fqdn, ihost_state->server_tcp_port);
267	pajs	1.4	if ((sd = socket(AF_INET, SOCK_STREAM, PF_UNSPEC)) < 0) {
268	pajs	1.18	logmessage(LOG_ERR, "Can't create AF_INET socket (%m)");
269	pajs	1.4	return -1;
270			}
271
272			if (get_host_addr(ihost_state->server_fqdn, &haddr) != 0){
273	pajs	1.18	logmessage(LOG_ERR, "Failed to resolve address %s (%m)", ihost_state->server_fqdn);
274	pajs	1.4	return -1;
275			}
276
277	pajs	1.9	memset(&addr, 0, sizeof addr);
278	pajs	1.4	addr.sin_family = AF_INET;
279	pajs	1.9	memcpy(&addr.sin_addr, &haddr, sizeof haddr);
280	pajs	1.4	addr.sin_port = htons(ihost_state->server_tcp_port);
281
282			if (connect(sd, (struct sockaddr *)&addr, sizeof addr) != 0) {
283	pajs	1.18	logmessage(LOG_ERR, "Failed to connect to %s on port %d (%m)", ihost_state->server_fqdn, ihost_state->server_tcp_port);
284	pajs	1.4	return -1;
285			}
286
287			/* Need to open 2 files, one for reading one for writing, as it gets confused if we only use 1 :) */
288			if ((fm_fd_r=fdopen(sd,"r")) == NULL){
289	pajs	1.18	logmessage(LOG_ERR, "Failed to open stream (%m)");
290	pajs	1.4	return -1;
291			}
292
293			if ((fm_fd_w=fdopen(dup(sd),"w")) == NULL){
294	pajs	1.18	logmessage(LOG_ERR, "Failed to open stream (%m)");
295	pajs	1.4	return -1;
296			}
297
298	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "HEARTBEAT");
299	pajs	1.6	if ((reply==NULL) \|\| (strncasecmp(reply, "ERROR", 5) == 0) ) {
300	pajs	1.18	logmessage(LOG_ERR, "Server error on HEARTBEAT");
301	pajs	1.4	return -1;
302			}
303	pajs	1.9
304	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "CONFIG");
305	pajs	1.6	if ((reply==NULL) \|\| (strncasecmp(reply, "ERROR", 5) == 0) ) {
306	pajs	1.18	logmessage(LOG_ERR, "Server error on CONFIG");
307	pajs	1.4	return -1;
308			}
309
310			reply=sock_comm(fm_fd_r, fm_fd_w, ihost_state->files_list);
311			if ((reply==NULL) \|\| (strncasecmp(reply, "OK", 2) != 0) ) {
312	pajs	1.18	logmessage(LOG_ERR, "Server error on fileslist");
313	pajs	1.4	return -1;
314			}
315
316			reply=sock_comm(fm_fd_r, fm_fd_w, ihost_state->last_modified);
317			if (reply==NULL) {
318	pajs	1.18	logmessage(LOG_ERR, "Server error NULL recieved on lastmodified");
319	pajs	1.4	return -1;
320			}
321	pajs	1.6	if (strncasecmp(reply, "ERROR", 5) == 0){
322	pajs	1.4	/* Means the config has changed */
323	pajs	1.18	logmessage(LOG_INFO, "Recieved ERROR from server for a reconfigure required");
324	pajs	1.4	exitcode=RECONFIGURE_RETURN_CODE;
325			}
326	pajs	1.18
327	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "KEY");
328	pajs	1.6	if ((reply==NULL) \|\| (strncasecmp(reply, "ERROR", 5) == 0) ) {
329	pajs	1.18	logmessage(LOG_ERR, "Server error on KEY");
330	pajs	1.4	return -1;
331			}
332	pajs	1.5	if (ihost_state->key!=NULL) free(ihost_state->key);
333
334	pajs	1.7	if((ihost_state->key=strdup(reply)) == NULL){
335	pajs	1.18	logmessage(LOG_ERR, "strdup failed (%m)");
336	pajs	1.4	return -1;
337			}
338
339	pajs	1.7	reply=sock_comm(fm_fd_r, fm_fd_w, "ENDHEARTBEAT");
340	pajs	1.4	if((reply== NULL) \|\| (strncasecmp(reply, "ERROR", 5) ==0 )){
341	pajs	1.18	logmessage(LOG_ERR, "Server error on ENDHEARTBEAT (%m)");
342	pajs	1.4	return -1;
343			}
344
345	pajs	1.10	fflush(fm_fd_r);
346			fflush(fm_fd_w);
347
348	pajs	1.6	if(fclose(fm_fd_r) !=0){
349	pajs	1.18	logmessage(LOG_ERR, "Failed to close read FD (%m)");
350	pajs	1.6	return -1;
351			}
352			if(fclose(fm_fd_w) !=0){
353	pajs	1.18	logmessage(LOG_ERR, "Failed to close write FD (%m)");
354	pajs	1.6	return -1;
355			}
356
357	pajs	1.4	return exitcode;
358			}
359
360	pajs	1.9	char stat_grab(ihost_state_t ihost_state, int counter){
361			#define NUM_STATS 9
362			char *stats[NUM_STATS];
363			char *xml_data=NULL;
364			char *xml_data_p;
365	pajs	1.20	int xml_size=0;
366	pajs	1.9	int x=0;
367	pajs	1.18
368			logmessage(LOG_DEBUG,"get_cpu_stats");
369	pajs	1.9	stats[0]=get_cpu_stats();
370	pajs	1.18	logmessage(LOG_DEBUG,"get_disk_stats");
371	pajs	1.9	stats[1]=get_disk_stats();
372	pajs	1.18	logmessage(LOG_DEBUG,"get_load_stats");
373	pajs	1.9	stats[2]=get_load_stats();
374	pajs	1.18	logmessage(LOG_DEBUG,"get_memory_stats");
375	pajs	1.9	stats[3]=get_memory_stats();
376	pajs	1.18	logmessage(LOG_DEBUG,"get_os_info");
377	pajs	1.9	stats[4]=get_os_info();
378	pajs	1.18	logmessage(LOG_DEBUG,"get_page_stats");
379	pajs	1.9	stats[5]=get_page_stats();
380	pajs	1.18	logmessage(LOG_DEBUG,"get_process_stats");
381	pajs	1.9	stats[6]=get_process_stats();
382	pajs	1.18	logmessage(LOG_DEBUG,"get_swap_stats");
383	pajs	1.9	stats[7]=get_swap_stats();
384	pajs	1.18	logmessage(LOG_DEBUG,"get_user_stats");
385	pajs	1.9	stats[8]=get_user_stats();
386	pajs	1.20
387	pajs	1.9
388	pajs	1.20	for(x=0;x<NUM_STATS;x++){
389	pajs	1.9	if(stats[x]==NULL){
390	pajs	1.18	logmessage(LOG_ERR,"Function returned NULL");
391	pajs	1.9	return NULL;
392			}
393	pajs	1.20	xml_size+=strlen(stats[x]);
394			}
395
396	pajs	1.22	xml_data=malloc(xml_size+1);
397	pajs	1.20	xml_data=strcpy(xml_data, stats[0]);
398	pajs	1.22	free(stats[0]);
399	pajs	1.20	for(x=1;x<NUM_STATS;x++){
400			strcat(xml_data, stats[x]);
401	pajs	1.22	free(stats[x]);
402	pajs	1.9	}
403	pajs	1.20
404	pajs	1.9	xml_data_p=xml_data;
405	pajs	1.16	xml_data=strf("<packet seq_no=\"%d\" machine_name=\"%s\" date=\"%ld\" type=\"data\" ip=\"%s\" key=\"%s\">%s</packet>", counter, ihost_state->my_fqdn, time(NULL), ihost_state->my_ip, ihost_state->key, xml_data);
406	pajs	1.9	free(xml_data_p);
407	pajs	1.18
408			logmessage(LOG_DEBUG,"Generated XML Data of : %s", xml_data);
409	pajs	1.9	return xml_data;
410			}
411
412			int send_stats(ihost_state_t ihost_state, char data_stream){
413			struct sockaddr_in addr;
414			struct in_addr haddr;
415
416			int sd;
417			size_t len;
418
419			len=strlen(data_stream);
420			if(len>UDP_MAX_PACKET_SIZE){
421	pajs	1.18	logmessage(LOG_ERR, "Too big to send to server. Please reconfigure client and server and recompile");
422	pajs	1.9	exit(1);
423			}
424	pajs	1.18	logmessage(LOG_DEBUG,"Resolving IP of server");
425	pajs	1.9	if (get_host_addr(ihost_state->server_fqdn, &haddr) != 0){
426	pajs	1.18	logmessage(LOG_ERR, "Failed to resolve address %s (%m)", ihost_state->server_fqdn);
427	pajs	1.9	return -1;
428			}
429	pajs	1.22	logmessage(LOG_DEBUG,"Creating UDP socket to %s on %d",ihost_state->server_fqdn, ihost_state->server_udp_port);
430	pajs	1.9	if((sd=socket(PF_INET, SOCK_DGRAM, IPPROTO_UDP)) < 0){
431	pajs	1.18	logmessage(LOG_ERR, "failed to create UDP socket (%m)");
432	pajs	1.9	return -1;
433			}
434
435			memset(&addr, 0, sizeof(addr));
436			addr.sin_family=AF_INET;
437			memcpy((char *)&addr.sin_addr, &haddr, sizeof haddr);
438			addr.sin_port = htons(ihost_state->server_udp_port);
439
440	pajs	1.18	logmessage(LOG_INFO,"Sending packet : %s", data_stream);
441	pajs	1.9	if((sendto(sd, data_stream, len, 0, (struct sockaddr *) &addr, sizeof(addr))) != len){
442	pajs	1.18	logmessage(LOG_ERR, "Send the wrong number of bytes (%m)");
443	pajs	1.9	return -1;
444			}
445
446	pajs	1.10	close(sd);
447
448	pajs	1.9	return 0;
449			}
450	pajs	1.1
451	pajs	1.17	void usage(char *progname){
452			fprintf(stderr, "Usage %s [options] server port\n", progname);
453			fprintf(stderr, "Options\n");
454			fprintf(stderr, " -v Verbose, the more v flags the more verbose, eg -vv\n");
455			fprintf(stderr, " -d Daemon mode, self backgrounding\n");
456			fprintf(stderr, " -s Send errors to syslog\n");
457			fprintf(stderr, " -V Print version number\n");
458			fprintf(stderr, " -h Prints this help page\n");
459			exit(1);
460			}
461
462	pajs	1.3	int main(int argc, char **argv){
463	pajs	1.2	ihost_state_t ihost_state;
464	pajs	1.6	int heartbeat_exit;
465			int counter=0;
466	pajs	1.10	long udp_time=0, tcp_time=0, stat_grab_time=0, cur_time=0;
467	pajs	1.9	int sleep_delay=0;
468			char *xml_stats;
469	pajs	1.18	pid_t pid;
470	pajs	1.17	int cmdopt;
471			extern int optind;
472	pajs	1.18	int verbose=0, daemon=0;
473			extern int syslog_logging;
474			extern int log_level;
475			extern int cur_level;
476	pajs	1.19	FILE *f;
477	pajs	1.18
478			log_level=1;
479			cur_level=1;
480			syslog_logging=0;
481
482			errf_set_ofunc(log_errors);
483	pajs	1.5	/* NULL'ify so i can tell if i need to free it or not */
484			ihost_state.fm_host=NULL;
485			ihost_state.my_fqdn=NULL;
486			ihost_state.server_fqdn=NULL;
487			ihost_state.last_modified=NULL;
488			ihost_state.files_list=NULL;
489			ihost_state.key=NULL;
490	pajs	1.25	ihost_state.my_ip=NULL;
491	pajs	1.5
492	pajs	1.3	errf_set_progname(argv[0]);
493	pajs	1.18
494	pajs	1.17
495			while((cmdopt=getopt(argc, argv, "vdshV")) != -1){
496			switch(cmdopt){
497			case 'v':
498			verbose++;
499			break;
500
501			case 'd':
502	pajs	1.18	/* Force syslog logging since stderr will be closed in this case */
503			syslog_logging=1;
504	pajs	1.17	daemon=1;
505			break;
506
507			case 's':
508	pajs	1.18	syslog_logging=1;
509	pajs	1.17	break;
510
511			case 'h':
512			usage(argv[0]);
513			break;
514	pajs	1.18
515	pajs	1.17	case 'V':
516	tdb	1.26	errf("%s version %s",argv[0], VERSION);
517	pajs	1.17	break;
518	pajs	1.18
519	pajs	1.17	default:
520			usage(argv[0]);
521			exit(1);
522			}
523			}
524
525			if(argc!=optind+2){
526			usage(argv[0]);
527	pajs	1.3	exit(1);
528			}
529	pajs	1.17	ihost_state.fm_host=argv[optind];
530			ihost_state.fm_port=atoi(argv[optind+1]);
531			if(ihost_state.fm_port==0){
532			errf("Invalid port number");
533			usage(argv[0]);
534			}
535	pajs	1.18
536			if(daemon==1){
537			pid=fork();
538			if(pid==-1){
539			errf("Fork failed, can't background. Exiting");
540			exit(1);
541			}else if(pid!=0){
542			/* Parent process */
543			return 0;
544			}
545			/* We should now be in the background*/
546			if(setsid()==-1){
547			errf("setsid failed (%m)");
548			exit(1);
549			}
550			fclose(stdin);
551			fclose(stdout);
552			fclose(stderr);
553			}
554
555			if(syslog_logging==1){
556			openlog(errf_get_progname(),0,LOG_ERR);
557			setlogmask(LOG_UPTO(LOG_DEBUG));
558			}
559
560			switch(verbose){
561			case 0:
562			/* Critical errors + */
563			log_level=LOG_ERR;
564			break;
565			case 1:
566			/* Recoverable errors */
567			log_level=LOG_WARNING;
568			break;
569			case 2:
570			/* Print stuff like the XML packets */
571			log_level=LOG_INFO;
572			break;
573			default:
574			/* Must have lots of v's */
575			/* Print out everything its doing */
576			log_level=LOG_DEBUG;
577			break;
578	pajs	1.19	}
579
580			logmessage(LOG_DEBUG,"Writing PID FILE");
581			pid=getpid();
582			if((f=fopen(PID_FILE,"w")) == NULL){
583	pajs	1.25	logmessage(LOG_WARNING, "Failed to write PID file (%m)");
584	pajs	1.19	}else{
585	pajs	1.25	if((fprintf(f,"%d",(int)pid)) <= 0 ){
586			logmessage(LOG_WARNING, "Failed to write PID file (%m)");
587	pajs	1.19	}
588			if((fclose(f))!=0){
589			logmessage(LOG_ERR, "failed to close PID file");
590			exit(1);
591			}
592	pajs	1.18	}
593	pajs	1.2
594			if(ihost_configure(&ihost_state)!=0){
595	pajs	1.18	logmessage(LOG_ERR,"configure failed");
596	pajs	1.6	/* Ok, ideally we prob should have 2 copies of the structure and carry on if this
597			happens.. But we dont :) (at the moment) */
598			exit(1);
599	pajs	1.2	}
600	pajs	1.5
601	pajs	1.9	for(;;){
602			cur_time=time(NULL);
603			if(cur_time>=tcp_time){
604	pajs	1.18	logmessage(LOG_DEBUG,"Sending heartbeat");
605	pajs	1.9	heartbeat_exit=heartbeat(&ihost_state);
606			if(heartbeat_exit==RECONFIGURE_RETURN_CODE){
607	pajs	1.18	logmessage(LOG_INFO,"heartbeat needs to be reconfigured");
608	pajs	1.9	ihost_configure(&ihost_state);
609			udp_time=0;
610			}
611			if(heartbeat_exit==-1){
612	pajs	1.18	logmessage(LOG_ERR,"Heartbeat failed");
613	pajs	1.9	exit(1);
614			}
615			tcp_time=time(NULL)+ihost_state.tcp_update_time;
616	pajs	1.18	logmessage(LOG_DEBUG,"next tcp time should be %d", tcp_time);
617	pajs	1.9	}
618	pajs	1.10
619	pajs	1.9	if(cur_time>=udp_time){
620	pajs	1.18	logmessage(LOG_DEBUG,"Sending udp data");
621	pajs	1.22	/* Work out how long it takes to get the stats for next time round
622			so the sleep time can be adjusted accordingly */
623	pajs	1.10	stat_grab_time=time(NULL);
624	pajs	1.13	if((xml_stats=stat_grab(&ihost_state, counter++)) == NULL){
625	pajs	1.18	logmessage(LOG_ERR,"Failed to get stats (%m)");
626	pajs	1.9	exit(1);
627			}
628	pajs	1.10	stat_grab_time=time(NULL)-stat_grab_time;
629			send_stats(&ihost_state, xml_stats);
630			free(xml_stats);
631			udp_time=time(NULL)+ihost_state.udp_update_time-stat_grab_time;
632	pajs	1.18	logmessage(LOG_DEBUG,"next udp time should be %d", udp_time);
633	pajs	1.9	}
634	pajs	1.10
635			if(tcp_time<udp_time){
636			sleep_delay=tcp_time-time(NULL);
637	pajs	1.9	}else{
638	pajs	1.10	sleep_delay=udp_time-time(NULL);
639	pajs	1.6	}
640	pajs	1.18	logmessage(LOG_DEBUG,"Sleeping for %d", sleep_delay);
641	pajs	1.10	if(sleep_delay>0) sleep(sleep_delay);
642	pajs	1.6	}
643	pajs	1.1	return 0;
644			}
645