src/libstatgrab/tools.c

/* 
 * i-scream central monitoring system
 * http://www.i-scream.org
 * Copyright (C) 2000-2003 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 <string.h>
#include <stdlib.h>
#include <sys/types.h>
#include <regex.h>
#ifdef ALLBSD
#include <fcntl.h>
#include <kvm.h>
#endif
#ifdef NETBSD
#include <uvm/uvm_extern.h>
#endif

#include "tools.h"

#ifdef SOLARIS
#include <libdevinfo.h>
#include <kstat.h>
#include <unistd.h>
#include <ctype.h>
#include <sys/types.h>
#include <sys/dkio.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <sys/fcntl.h>
#include <dirent.h>
#endif

#ifdef SOLARIS
struct map{
        char *bsd;
        char *svr;

        struct map *next;
};
typedef struct map mapping_t;

static mapping_t *mapping = NULL; 

char *get_svr_from_bsd(char *bsd){
        mapping_t *map_ptr;
        for(map_ptr = mapping; map_ptr != NULL; map_ptr = map_ptr->next)
                if(!strcmp(map_ptr->bsd, bsd)) return map_ptr->svr;

        return bsd;
}

void add_mapping(char *bsd, char *svr){
        mapping_t *map_ptr;
        mapping_t *map_end_ptr;

        bsd = strdup(bsd);
        svr = strdup(svr);

        if (mapping == NULL){
                printf("New malloc\n");
                mapping = malloc(sizeof(mapping_t));
                if (mapping == NULL) return;
                map_ptr = mapping;
        }else{
                /* See if its already been added */
                for(map_ptr = mapping; map_ptr != NULL; map_ptr = map_ptr->next){
                        if( (!strcmp(map_ptr->bsd, bsd)) || (!strcmp(map_ptr->svr, svr)) ){
                                printf("%s matches %s\n", map_ptr->bsd, bsd);
                                return;
                        }
                        map_end_ptr = map_ptr;
                }

                /* We've reached end of list and not found the entry.. So we need to malloc
                 * new mapping_t
                 */
                map_end_ptr->next = malloc(sizeof(mapping_t));
                printf("Second malloc\n");
                if (map_end_ptr->next == NULL) return;
                map_ptr = map_end_ptr->next;
        }

        printf("Adding %s\n", bsd);
        map_ptr->next = NULL;
        map_ptr->bsd = bsd;
        map_ptr->svr = svr;

        return;
}

char *read_dir(char *disk_path){
        DIR *dirp;
        struct dirent *dp;
        struct stat stbuf;
        char *svr_name;
        char current_dir[MAXPATHLEN];
        char file_name[MAXPATHLEN];
        char temp_name[MAXPATHLEN];
        char dir_dname[MAXPATHLEN];
        char *dsk_dir;
        int x;

        dsk_dir = "/dev/osa/dev/dsk";
        strncpy(current_dir, dsk_dir, sizeof current_dir);
        if ((dirp = opendir(current_dir)) == NULL){
                dsk_dir = "/dev/dsk";
                snprintf(current_dir, sizeof current_dir, "%s", dsk_dir);
                if ((dirp = opendir(current_dir)) == NULL){
                        return NULL;
                }
        }

        while ((dp = readdir(dirp)) != NULL){
                snprintf(temp_name, sizeof temp_name, "../..%s", disk_path);
                snprintf(dir_dname, sizeof dir_dname, "%s/%s", dsk_dir, dp->d_name);
                stat(dir_dname,&stbuf);

                if (S_ISBLK(stbuf.st_mode)){
                        x = readlink(dir_dname, file_name, sizeof(file_name));
                        file_name[x] = '\0';
                        if (strcmp(file_name, temp_name) == 0) {
                                svr_name = strdup(dp->d_name);
                                closedir(dirp);
                                return svr_name;
                        }
                }
                closedir(dirp);
        }
        return NULL;
}


int get_alias(char *alias){
        char file[MAXPATHLEN];
        di_node_t root_node;
        di_node_t node;
        di_minor_t minor = DI_MINOR_NIL;
        char tmpnode[MAXPATHLEN];
        char *phys_path;
        char *minor_name;
        char *value;
        int instance;
        if ((root_node = di_init("/", DINFOCPYALL)) == DI_NODE_NIL) {
                fprintf(stderr, "di_init() failed\n");
                exit(1);
        }
        node = di_drv_first_node(alias, root_node);
        while (node != DI_NODE_NIL) {
                if ((minor = di_minor_next(node, DI_MINOR_NIL)) != DI_MINOR_NIL) {
                        instance = di_instance(node);
                        phys_path = di_devfs_path(node);
                        minor_name = di_minor_name(minor);
                        strcpy(tmpnode, alias);
                        sprintf(tmpnode, "%s%d", tmpnode, instance);
                        strcpy(file, "/devices");
                        strcat(file, phys_path);
                        strcat(file, ":");
                        strcat(file, minor_name);
                        value = read_dir(file);
                        if (value != NULL){
                                add_mapping(tmpnode, value);
                        }
                        di_devfs_path_free(phys_path);
                        node = di_drv_next_node(node);
                }else{
                        node = di_drv_next_node(node);
                }
        }
        di_fini(root_node);
        return (-1);
}

void build_mapping(){
        char device_name[512];
        int x;
        kstat_ctl_t *kc;
        kstat_t *ksp;
        kstat_io_t kios;

        if ((kc = kstat_open()) == NULL) {
                return NULL;
        }

        for (ksp = kc->kc_chain; ksp; ksp = ksp->ks_next) {
                if (!strcmp(ksp->ks_class, "disk")) {
                        if(ksp->ks_type != KSTAT_TYPE_IO) continue;
                        /* We dont want metadevices appearing as num_diskio */
                        if(strcmp(ksp->ks_module, "md")==0) continue;
                        if((kstat_read(kc, ksp, &kios))==-1) continue;
                        strncpy(device_name, ksp->ks_name, sizeof device_name);
                        for(x=0;x<(sizeof device_name);x++){
                                if( isdigit((int)device_name[x]) ) break;
                        }
                        if(x == sizeof device_name) x--;
                        device_name[x] = '\0';
                        get_alias(device_name);
                }
        }

        return;
}

#endif


char *f_read_line(FILE *f, const char *string){
        /* Max line length. 8k should be more than enough */
        static char line[8192];

        while((fgets(line, sizeof(line), f))!=NULL){
                if(strncmp(string, line, strlen(string))==0){
                        return line;
                }
        }

        return NULL;
}

char *get_string_match(char *line, regmatch_t *match){
        int len=match->rm_eo - match->rm_so;
        char *match_string=malloc(len+1);

        match_string=strncpy(match_string, line+match->rm_so, len);
        match_string[len]='\0';

        return match_string;
}


#ifndef HAVE_ATOLL
static long long atoll(const char *s) {
        long long value = 0;
        int isneg = 0;

        while (*s == ' ' || *s == '\t') {
                s++;
        }
        if (*s == '-') {
                isneg = 1;
                s++;
        }
        while (*s >= '0' && *s <= '9') {
                value = (10 * value) + (*s - '0');
                s++;
        }
        return (isneg ? -value : value);
}
#endif

long long get_ll_match(char *line, regmatch_t *match){
        char *ptr;
        long long num;

        ptr=line+match->rm_so;
        num=atoll(ptr);

        return num;
}

#ifdef ALLBSD
kvm_t *get_kvm() {
        static kvm_t *kvmd = NULL;

        if (kvmd != NULL) {
                return kvmd;
        }

        kvmd = kvm_openfiles(NULL, NULL, NULL, O_RDONLY, NULL);
        return kvmd;
}
#endif

#ifdef NETBSD
struct uvmexp *get_uvmexp() {
        static u_long addr = 0;
        static struct uvmexp uvm;
        kvm_t *kvmd = get_kvm();

        if (kvmd == NULL) {
                return NULL;
        }

        if (addr == 0) {
                struct nlist symbols[] = {
                        { "_uvmexp" },
                        { NULL }
                };

                if (kvm_nlist(kvmd, symbols) != 0) {
                        return NULL;
                }
                addr = symbols[0].n_value;
        }

        if (kvm_read(kvmd, addr, &uvm, sizeof uvm) != sizeof uvm) {
                return NULL;
        }
        return &uvm;
}
#endif

int statgrab_init(){
#ifdef ALLBSD 
        { 
                kvm_t *kvmd = get_kvm(); 
                if (kvmd == NULL) return 1;
        }
#endif
#ifdef NETBSD
        {
                struct uvmexp *uvm = get_uvmexp();
                if (uvm == NULL) return 1;
        }
#endif
#ifdef SOLARIS
        build_mapping();
#endif
        return 0;
}
Revision:	1.15
Committed:	Wed Nov 19 21:56:21 2003 UTC (20 years, 5 months ago) by tdb
Content type:	text/plain
Branch:	MAIN
Changes since 1.14:	+24 -25 lines
Log Message:	Die nasty incorrect whitespace. Ahem. Excuse me.
#	User	Rev	Content
1	tdb	1.5	/*
2			* i-scream central monitoring system
3	tdb	1.6	* http://www.i-scream.org
4			* Copyright (C) 2000-2003 i-scream
5	tdb	1.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	pajs	1.1	#include <stdio.h>
26			#include <string.h>
27	pajs	1.3	#include <stdlib.h>
28			#include <sys/types.h>
29			#include <regex.h>
30	ats	1.9	#ifdef ALLBSD
31	ats	1.8	#include <fcntl.h>
32			#include <kvm.h>
33			#endif
34	ats	1.9	#ifdef NETBSD
35			#include <uvm/uvm_extern.h>
36			#endif
37	pajs	1.1
38	ats	1.7	#include "tools.h"
39
40	pajs	1.14	#ifdef SOLARIS
41			#include <libdevinfo.h>
42			#include <kstat.h>
43			#include <unistd.h>
44			#include <ctype.h>
45			#include <sys/types.h>
46			#include <sys/dkio.h>
47			#include <sys/stat.h>
48			#include <fcntl.h>
49			#include <sys/fcntl.h>
50			#include <dirent.h>
51			#endif
52
53			#ifdef SOLARIS
54			struct map{
55			char *bsd;
56			char *svr;
57
58			struct map *next;
59			};
60			typedef struct map mapping_t;
61
62			static mapping_t *mapping = NULL;
63
64			char get_svr_from_bsd(char bsd){
65			mapping_t *map_ptr;
66			for(map_ptr = mapping; map_ptr != NULL; map_ptr = map_ptr->next)
67			if(!strcmp(map_ptr->bsd, bsd)) return map_ptr->svr;
68
69			return bsd;
70			}
71
72			void add_mapping(char bsd, char svr){
73			mapping_t *map_ptr;
74			mapping_t *map_end_ptr;
75
76			bsd = strdup(bsd);
77			svr = strdup(svr);
78
79			if (mapping == NULL){
80			printf("New malloc\n");
81			mapping = malloc(sizeof(mapping_t));
82			if (mapping == NULL) return;
83			map_ptr = mapping;
84			}else{
85			/* See if its already been added */
86			for(map_ptr = mapping; map_ptr != NULL; map_ptr = map_ptr->next){
87			if( (!strcmp(map_ptr->bsd, bsd)) \|\| (!strcmp(map_ptr->svr, svr)) ){
88			printf("%s matches %s\n", map_ptr->bsd, bsd);
89			return;
90			}
91			map_end_ptr = map_ptr;
92			}
93
94			/* We've reached end of list and not found the entry.. So we need to malloc
95			* new mapping_t
96			*/
97			map_end_ptr->next = malloc(sizeof(mapping_t));
98			printf("Second malloc\n");
99			if (map_end_ptr->next == NULL) return;
100			map_ptr = map_end_ptr->next;
101			}
102
103			printf("Adding %s\n", bsd);
104			map_ptr->next = NULL;
105			map_ptr->bsd = bsd;
106			map_ptr->svr = svr;
107
108			return;
109			}
110
111			char read_dir(char disk_path){
112			DIR *dirp;
113	tdb	1.15	struct dirent *dp;
114			struct stat stbuf;
115	pajs	1.14	char *svr_name;
116	tdb	1.15	char current_dir[MAXPATHLEN];
117			char file_name[MAXPATHLEN];
118			char temp_name[MAXPATHLEN];
119			char dir_dname[MAXPATHLEN];
120	pajs	1.14	char *dsk_dir;
121			int x;
122
123			dsk_dir = "/dev/osa/dev/dsk";
124	tdb	1.15	strncpy(current_dir, dsk_dir, sizeof current_dir);
125			if ((dirp = opendir(current_dir)) == NULL){
126	pajs	1.14	dsk_dir = "/dev/dsk";
127			snprintf(current_dir, sizeof current_dir, "%s", dsk_dir);
128			if ((dirp = opendir(current_dir)) == NULL){
129			return NULL;
130			}
131			}
132
133	tdb	1.15	while ((dp = readdir(dirp)) != NULL){
134	pajs	1.14	snprintf(temp_name, sizeof temp_name, "../..%s", disk_path);
135			snprintf(dir_dname, sizeof dir_dname, "%s/%s", dsk_dir, dp->d_name);
136			stat(dir_dname,&stbuf);
137
138			if (S_ISBLK(stbuf.st_mode)){
139			x = readlink(dir_dname, file_name, sizeof(file_name));
140			file_name[x] = '\0';
141			if (strcmp(file_name, temp_name) == 0) {
142			svr_name = strdup(dp->d_name);
143			closedir(dirp);
144			return svr_name;
145			}
146			}
147			closedir(dirp);
148			}
149			return NULL;
150			}
151
152
153
154			int get_alias(char *alias){
155			char file[MAXPATHLEN];
156			di_node_t root_node;
157			di_node_t node;
158			di_minor_t minor = DI_MINOR_NIL;
159			char tmpnode[MAXPATHLEN];
160			char *phys_path;
161			char *minor_name;
162			char *value;
163			int instance;
164			if ((root_node = di_init("/", DINFOCPYALL)) == DI_NODE_NIL) {
165			fprintf(stderr, "di_init() failed\n");
166			exit(1);
167			}
168			node = di_drv_first_node(alias, root_node);
169			while (node != DI_NODE_NIL) {
170			if ((minor = di_minor_next(node, DI_MINOR_NIL)) != DI_MINOR_NIL) {
171			instance = di_instance(node);
172			phys_path = di_devfs_path(node);
173			minor_name = di_minor_name(minor);
174			strcpy(tmpnode, alias);
175			sprintf(tmpnode, "%s%d", tmpnode, instance);
176			strcpy(file, "/devices");
177			strcat(file, phys_path);
178			strcat(file, ":");
179			strcat(file, minor_name);
180			value = read_dir(file);
181			if (value != NULL){
182			add_mapping(tmpnode, value);
183			}
184			di_devfs_path_free(phys_path);
185			node = di_drv_next_node(node);
186			}else{
187			node = di_drv_next_node(node);
188			}
189	tdb	1.15	}
190	pajs	1.14	di_fini(root_node);
191			return (-1);
192			}
193
194			void build_mapping(){
195			char device_name[512];
196			int x;
197	tdb	1.15	kstat_ctl_t *kc;
198			kstat_t *ksp;
199			kstat_io_t kios;
200	pajs	1.14
201			if ((kc = kstat_open()) == NULL) {
202	tdb	1.15	return NULL;
203			}
204	pajs	1.14
205	tdb	1.15	for (ksp = kc->kc_chain; ksp; ksp = ksp->ks_next) {
206			if (!strcmp(ksp->ks_class, "disk")) {
207			if(ksp->ks_type != KSTAT_TYPE_IO) continue;
208			/* We dont want metadevices appearing as num_diskio */
209			if(strcmp(ksp->ks_module, "md")==0) continue;
210			if((kstat_read(kc, ksp, &kios))==-1) continue;
211	pajs	1.14	strncpy(device_name, ksp->ks_name, sizeof device_name);
212			for(x=0;x<(sizeof device_name);x++){
213			if( isdigit((int)device_name[x]) ) break;
214			}
215			if(x == sizeof device_name) x--;
216			device_name[x] = '\0';
217			get_alias(device_name);
218	tdb	1.15	}
219	pajs	1.14	}
220	tdb	1.15
221	pajs	1.14	return;
222			}
223
224			#endif
225
226
227
228	pajs	1.1	char f_read_line(FILE f, const char *string){
229			/* Max line length. 8k should be more than enough */
230			static char line[8192];
231
232	pajs	1.2	while((fgets(line, sizeof(line), f))!=NULL){
233	pajs	1.1	if(strncmp(string, line, strlen(string))==0){
234			return line;
235			}
236			}
237
238			return NULL;
239	pajs	1.3	}
240
241			char get_string_match(char line, regmatch_t *match){
242			int len=match->rm_eo - match->rm_so;
243			char *match_string=malloc(len+1);
244
245			match_string=strncpy(match_string, line+match->rm_so, len);
246			match_string[len]='\0';
247
248			return match_string;
249			}
250	ats	1.7
251	pajs	1.14
252
253	ats	1.13	#ifndef HAVE_ATOLL
254			static long long atoll(const char *s) {
255			long long value = 0;
256			int isneg = 0;
257
258			while (s == ' ' \|\| s == '\t') {
259			s++;
260			}
261			if (*s == '-') {
262			isneg = 1;
263			s++;
264			}
265			while (s >= '0' && s <= '9') {
266			value = (10 * value) + (*s - '0');
267			s++;
268			}
269			return (isneg ? -value : value);
270			}
271			#endif
272
273	pajs	1.3	long long get_ll_match(char line, regmatch_t match){
274			char *ptr;
275			long long num;
276
277			ptr=line+match->rm_so;
278			num=atoll(ptr);
279
280			return num;
281	ats	1.8	}
282
283	ats	1.9	#ifdef ALLBSD
284	ats	1.8	kvm_t *get_kvm() {
285			static kvm_t *kvmd = NULL;
286
287			if (kvmd != NULL) {
288			return kvmd;
289			}
290
291			kvmd = kvm_openfiles(NULL, NULL, NULL, O_RDONLY, NULL);
292			return kvmd;
293	pajs	1.1	}
294	pajs	1.4	#endif
295	ats	1.9
296			#ifdef NETBSD
297			struct uvmexp *get_uvmexp() {
298			static u_long addr = 0;
299			static struct uvmexp uvm;
300			kvm_t *kvmd = get_kvm();
301
302			if (kvmd == NULL) {
303			return NULL;
304			}
305
306			if (addr == 0) {
307			struct nlist symbols[] = {
308			{ "_uvmexp" },
309			{ NULL }
310			};
311
312			if (kvm_nlist(kvmd, symbols) != 0) {
313			return NULL;
314			}
315			addr = symbols[0].n_value;
316			}
317
318			if (kvm_read(kvmd, addr, &uvm, sizeof uvm) != sizeof uvm) {
319			return NULL;
320			}
321			return &uvm;
322			}
323			#endif
324
325	pajs	1.10	int statgrab_init(){
326	pajs	1.11	#ifdef ALLBSD
327			{
328			kvm_t *kvmd = get_kvm();
329	tdb	1.15	if (kvmd == NULL) return 1;
330	pajs	1.11	}
331	pajs	1.10	#endif
332			#ifdef NETBSD
333	pajs	1.11	{
334			struct uvmexp *uvm = get_uvmexp();
335			if (uvm == NULL) return 1;
336			}
337	pajs	1.14	#endif
338			#ifdef SOLARIS
339			build_mapping();
340	pajs	1.10	#endif
341			return 0;
342			}