ViewVC Help

View File | Revision Log | Show Annotations | Revision Graph | Root Listing

root/i-scream/projects/libstatgrab/src/libstatgrab/tools.c

Comparing projects/libstatgrab/src/libstatgrab/tools.c (file contents):
Revision 1.6 by tdb, Sun Aug 24 20:24:09 2003 UTC vs.
Revision 1.64 by tdb, Mon Oct 9 14:09:38 2006 UTC

#	Line 1 | Line 1
1	<	/*
2	<	* i-scream central monitoring system
1	>	/*
2	>	* i-scream libstatgrab
3		* http://www.i-scream.org
4	<	* Copyright (C) 2000-2003 i-scream
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.
6	>	* This library is free software; you can redistribute it and/or
7	>	* modify it under the terms of the GNU Lesser General Public
8	>	* License as published by the Free Software Foundation; either
9	>	* version 2.1 of the License, or (at your option) any later version.
10		*
11	<	* This program is distributed in the hope that it will be useful,
11	>	* This library 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.
13	>	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14	>	* Lesser 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.
16	>	* You should have received a copy of the GNU Lesser General Public
17	>	* License along with this library; if not, write to the Free Software
18	>	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19	>	* 02111-1307 USA
20	>	*
21	>	* $Id$
22		*/
23
24		#ifdef HAVE_CONFIG_H
#	Line 25 | Line 28
28		#include <stdio.h>
29		#include <string.h>
30		#include <stdlib.h>
31	+	#include <unistd.h>
32		#include <sys/types.h>
33	<	#include <regex.h>
33	>	#ifdef ALLBSD
34	>	#include <fcntl.h>
35	>	#endif
36	>	#if (defined(FREEBSD) && !defined(FREEBSD5)) || defined(DFBSD)
37	>	#include <kvm.h>
38	>	#include <paths.h>
39	>	#endif
40	>	#if defined(NETBSD) || defined(OPENBSD)
41	>	#include <uvm/uvm_extern.h>
42	>	#include <sys/param.h>
43	>	#include <sys/sysctl.h>
44	>	#endif
45	>	#ifdef HPUX
46	>	#include <sys/param.h>
47	>	#include <sys/pstat.h>
48	>	#endif
49
50	<	char *f_read_line(FILE *f, const char *string){
50	>	#include "tools.h"
51	>	#include "statgrab.h"
52	>
53	>	#ifdef SOLARIS
54	>	#ifdef HAVE_LIBDEVINFO_H
55	>	#include <libdevinfo.h>
56	>	#endif
57	>	#include <kstat.h>
58	>	#include <unistd.h>
59	>	#include <ctype.h>
60	>	#include <sys/types.h>
61	>	#include <sys/dkio.h>
62	>	#include <sys/stat.h>
63	>	#include <fcntl.h>
64	>	#include <sys/fcntl.h>
65	>	#include <dirent.h>
66	>	#endif
67	>	#ifdef WIN32
68	>	#include "win32.h"
69	>	#endif
70	>
71	>	#if defined(SOLARIS) && defined(HAVE_LIBDEVINFO_H)
72	>	struct map{
73	>	char *bsd;
74	>	char *svr;
75	>
76	>	struct map *next;
77	>	};
78	>	typedef struct map mapping_t;
79	>
80	>	static mapping_t *mapping = NULL;
81	>	#endif
82	>
83	>	#ifdef SOLARIS
84	>	const char *sg_get_svr_from_bsd(const char *bsd){
85	>	#ifdef HAVE_LIBDEVINFO_H
86	>	mapping_t *map_ptr;
87	>	for(map_ptr = mapping; map_ptr != NULL; map_ptr = map_ptr->next)
88	>	if(!strcmp(map_ptr->bsd, bsd)) return map_ptr->svr;
89	>	#endif
90	>	return bsd;
91	>	}
92	>	#endif
93	>
94	>	#if defined(SOLARIS) && defined(HAVE_LIBDEVINFO_H)
95	>	static void add_mapping(char *bsd, char *svr){
96	>	mapping_t *map_ptr;
97	>	mapping_t *map_end_ptr;
98	>
99	>	if (mapping == NULL){
100	>	mapping = sg_malloc(sizeof(mapping_t));
101	>	if (mapping == NULL) return;
102	>	map_ptr = mapping;
103	>	}else{
104	>	/* See if its already been added */
105	>	for(map_ptr = mapping; map_ptr != NULL; map_ptr = map_ptr->next){
106	>	if( (!strcmp(map_ptr->bsd, bsd)) || (!strcmp(map_ptr->svr, svr)) ){
107	>	return;
108	>	}
109	>	map_end_ptr = map_ptr;
110	>	}
111	>
112	>	/* We've reached end of list and not found the entry.. So we need to malloc
113	>	* new mapping_t
114	>	*/
115	>	map_end_ptr->next = sg_malloc(sizeof(mapping_t));
116	>	if (map_end_ptr->next == NULL) return;
117	>	map_ptr = map_end_ptr->next;
118	>	}
119	>
120	>	map_ptr->next = NULL;
121	>	map_ptr->bsd = NULL;
122	>	map_ptr->svr = NULL;
123	>	if (sg_update_string(&map_ptr->bsd, bsd) < 0
124	>	|| sg_update_string(&map_ptr->svr, svr) < 0) {
125	>	return;
126	>	}
127	>
128	>	return;
129	>	}
130	>
131	>
132	>	static char *read_dir(char *disk_path){
133	>	DIR *dirp;
134	>	struct dirent *dp;
135	>	struct stat stbuf;
136	>	char *svr_name = NULL;
137	>	char current_dir[MAXPATHLEN];
138	>	char file_name[MAXPATHLEN];
139	>	char temp_name[MAXPATHLEN];
140	>	char dir_dname[MAXPATHLEN];
141	>	char *dsk_dir;
142	>	int x;
143	>
144	>	dsk_dir = "/dev/osa/dev/dsk";
145	>	strncpy(current_dir, dsk_dir, sizeof current_dir);
146	>	if ((dirp = opendir(current_dir)) == NULL){
147	>	dsk_dir = "/dev/dsk";
148	>	snprintf(current_dir, sizeof current_dir, "%s", dsk_dir);
149	>	if ((dirp = opendir(current_dir)) == NULL){
150	>	return NULL;
151	>	}
152	>	}
153	>
154	>	while ((dp = readdir(dirp)) != NULL){
155	>	snprintf(temp_name, sizeof temp_name, "../..%s", disk_path);
156	>	snprintf(dir_dname, sizeof dir_dname, "%s/%s", dsk_dir, dp->d_name);
157	>	stat(dir_dname,&stbuf);
158	>
159	>	if (S_ISBLK(stbuf.st_mode)){
160	>	x = readlink(dir_dname, file_name, sizeof(file_name));
161	>	file_name[x] = '\0';
162	>	if (strcmp(file_name, temp_name) == 0) {
163	>	if (sg_update_string(&svr_name,
164	>	dp->d_name) < 0) {
165	>	return NULL;
166	>	}
167	>	closedir(dirp);
168	>	return svr_name;
169	>	}
170	>	}
171	>	}
172	>	closedir(dirp);
173	>	return NULL;
174	>	}
175	>
176	>
177	>	static int get_alias(char *alias){
178	>	char file[MAXPATHLEN];
179	>	di_node_t root_node;
180	>	di_node_t node;
181	>	di_minor_t minor = DI_MINOR_NIL;
182	>	char tmpnode[MAXPATHLEN];
183	>	char *phys_path;
184	>	char *minor_name;
185	>	char *value;
186	>	int instance;
187	>	if ((root_node = di_init("/", DINFOCPYALL)) == DI_NODE_NIL) {
188	>	return -1;
189	>	}
190	>	node = di_drv_first_node(alias, root_node);
191	>	while (node != DI_NODE_NIL) {
192	>	if ((minor = di_minor_next(node, DI_MINOR_NIL)) != DI_MINOR_NIL) {
193	>	instance = di_instance(node);
194	>	phys_path = di_devfs_path(node);
195	>	minor_name = di_minor_name(minor);
196	>	strcpy(tmpnode, alias);
197	>	sprintf(tmpnode, "%s%d", tmpnode, instance);
198	>	sg_strlcpy(file, "/devices", sizeof file);
199	>	sg_strlcat(file, phys_path, sizeof file);
200	>	sg_strlcat(file, ":", sizeof file);
201	>	sg_strlcat(file, minor_name, sizeof file);
202	>	value = read_dir(file);
203	>	if (value != NULL){
204	>	add_mapping(tmpnode, value);
205	>	}
206	>	di_devfs_path_free(phys_path);
207	>	node = di_drv_next_node(node);
208	>	}else{
209	>	node = di_drv_next_node(node);
210	>	}
211	>	}
212	>	di_fini(root_node);
213	>	return 0;
214	>	}
215	>
216	>
217	>	#define BIG_ENOUGH 512
218	>	static int build_mapping(){
219	>	char device_name[BIG_ENOUGH];
220	>	int x;
221	>	kstat_ctl_t *kc;
222	>	kstat_t *ksp;
223	>	kstat_io_t kios;
224	>
225	>	char driver_list[BIG_ENOUGH][BIG_ENOUGH];
226	>	int list_entries = 0;
227	>	int found;
228	>
229	>	if ((kc = kstat_open()) == NULL) {
230	>	return -1;
231	>	}
232	>
233	>	for (ksp = kc->kc_chain; ksp; ksp = ksp->ks_next) {
234	>	if (!strcmp(ksp->ks_class, "disk")) {
235	>	if(ksp->ks_type != KSTAT_TYPE_IO) continue;
236	>	/* We dont want metadevices appearing as num_diskio */
237	>	if(strcmp(ksp->ks_module, "md")==0) continue;
238	>	if((kstat_read(kc, ksp, &kios))==-1) continue;
239	>	strncpy(device_name, ksp->ks_name, sizeof device_name);
240	>	for(x=0;x<(int)(sizeof device_name);x++){
241	>	if( isdigit((int)device_name[x]) ) break;
242	>	}
243	>	if(x == sizeof device_name) x--;
244	>	device_name[x] = '\0';
245	>
246	>	/* Check if we've not already looked it up */
247	>	found = 0;
248	>	for(x=0;x<list_entries;x++){
249	>	if (x>=BIG_ENOUGH){
250	>	/* We've got bigger than we thought was massive */
251	>	/* If we hit this.. Make big enough bigger */
252	>	kstat_close(kc);
253	>	return -1;
254	>	}
255	>	if( !strncmp(driver_list[x], device_name, BIG_ENOUGH)){
256	>	found = 1;
257	>	break;
258	>	}
259	>	}
260	>
261	>	if(!found){
262	>	if((get_alias(device_name)) != 0){
263	>	kstat_close(kc);
264	>	return -1;
265	>	}
266	>	strncpy(driver_list[x], device_name, BIG_ENOUGH);
267	>	list_entries++;
268	>	}
269	>	}
270	>	}
271	>
272	>	kstat_close(kc);
273	>
274	>	return 0;
275	>	}
276	>
277	>	#endif
278	>
279	>	#if defined(LINUX) || defined(CYGWIN)
280	>	char *sg_f_read_line(FILE *f, const char *string){
281		/* Max line length. 8k should be more than enough */
282		static char line[8192];
283
#	Line 38 | Line 287 | char *f_read_line(FILE *f, const char *string){
287		}
288		}
289
290	+	sg_set_error(SG_ERROR_PARSE, NULL);
291		return NULL;
292		}
293
294	<	char *get_string_match(char *line, regmatch_t *match){
294	>	char *sg_get_string_match(char *line, regmatch_t *match){
295		int len=match->rm_eo - match->rm_so;
296	<	char *match_string=malloc(len+1);
296	>	char *match_string=sg_malloc(len+1);
297
298		match_string=strncpy(match_string, line+match->rm_so, len);
299		match_string[len]='\0';
300
301		return match_string;
302		}
303	<	#ifdef HAVE_ATOLL
304	<	long long get_ll_match(char *line, regmatch_t *match){
303	>
304	>	/* Cygwin (without a recent newlib) doesn't have atoll */
305	>	#ifndef HAVE_ATOLL
306	>	static long long atoll(const char *s) {
307	>	long long value = 0;
308	>	int isneg = 0;
309	>
310	>	while (*s == ' ' || *s == '\t') {
311	>	s++;
312	>	}
313	>	if (*s == '-') {
314	>	isneg = 1;
315	>	s++;
316	>	}
317	>	while (*s >= '0' && *s <= '9') {
318	>	value = (10 * value) + (*s - '0');
319	>	s++;
320	>	}
321	>	return (isneg ? -value : value);
322	>	}
323	>	#endif
324	>
325	>	long long sg_get_ll_match(char *line, regmatch_t *match){
326		char *ptr;
327		long long num;
328
#	Line 61 | Line 332 | long long get_ll_match(char *line, regmatch_t *match){
332		return num;
333		}
334		#endif
335	+
336	+	/*      $OpenBSD: strlcpy.c,v 1.8 2003/06/17 21:56:24 millert Exp $     */
337	+
338	+	/*
339	+	* Copyright (c) 1998 Todd C. Miller <Todd.Miller@courtesan.com>
340	+	*
341	+	* Permission to use, copy, modify, and distribute this software for any
342	+	* purpose with or without fee is hereby granted, provided that the above
343	+	* copyright notice and this permission notice appear in all copies.
344	+	*
345	+	* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
346	+	* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
347	+	* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
348	+	* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
349	+	* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
350	+	* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
351	+	* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
352	+	*/
353	+
354	+	/*
355	+	* Copy src to string dst of size siz.  At most siz-1 characters
356	+	* will be copied.  Always NUL terminates (unless siz == 0).
357	+	* Returns strlen(src); if retval >= siz, truncation occurred.
358	+	*/
359	+	size_t sg_strlcpy(char *dst, const char *src, size_t siz){
360	+	register char *d = dst;
361	+	register const char *s = src;
362	+	register size_t n = siz;
363	+
364	+	/* Copy as many bytes as will fit */
365	+	if (n != 0 && --n != 0) {
366	+	do {
367	+	if ((*d++ = *s++) == 0)
368	+	break;
369	+	} while (--n != 0);
370	+	}
371	+
372	+	/* Not enough room in dst, add NUL and traverse rest of src */
373	+	if (n == 0) {
374	+	if (siz != 0)
375	+	*d = '\0';            /* NUL-terminate dst */
376	+	while (*s++)
377	+	;
378	+	}
379	+
380	+	return(s - src - 1);    /* count does not include NUL */
381	+	}
382	+
383	+	/*      $OpenBSD: strlcat.c,v 1.11 2003/06/17 21:56:24 millert Exp $    */
384	+
385	+	/*
386	+	* Copyright (c) 1998 Todd C. Miller <Todd.Miller@courtesan.com>
387	+	*
388	+	* Permission to use, copy, modify, and distribute this software for any
389	+	* purpose with or without fee is hereby granted, provided that the above
390	+	* copyright notice and this permission notice appear in all copies.
391	+	*
392	+	* THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
393	+	* WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
394	+	* MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
395	+	* ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
396	+	* WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
397	+	* ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
398	+	* OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
399	+	*/
400	+
401	+	/*
402	+	* Appends src to string dst of size siz (unlike strncat, siz is the
403	+	* full size of dst, not space left).  At most siz-1 characters
404	+	* will be copied.  Always NUL terminates (unless siz <= strlen(dst)).
405	+	* Returns strlen(src) + MIN(siz, strlen(initial dst)).
406	+	* If retval >= siz, truncation occurred.
407	+	*/
408	+	size_t sg_strlcat(char *dst, const char *src, size_t siz){
409	+	register char *d = dst;
410	+	register const char *s = src;
411	+	register size_t n = siz;
412	+	size_t dlen;
413	+
414	+	/* Find the end of dst and adjust bytes left but don't go past end */
415	+	while (n-- != 0 && *d != '\0')
416	+	d++;
417	+	dlen = d - dst;
418	+	n = siz - dlen;
419	+
420	+	if (n == 0)
421	+	return(dlen + strlen(s));
422	+	while (*s != '\0') {
423	+	if (n != 1) {
424	+	*d++ = *s;
425	+	n--;
426	+	}
427	+	s++;
428	+	}
429	+	*d = '\0';
430	+
431	+	return(dlen + (s - src));       /* count does not include NUL */
432	+	}
433	+
434	+	int sg_update_string(char **dest, const char *src) {
435	+	char *new;
436	+
437	+	if (src == NULL) {
438	+	/* We're being told to set it to NULL. */
439	+	free(*dest);
440	+	*dest = NULL;
441	+	return 0;
442	+	}
443	+
444	+	new = sg_realloc(*dest, strlen(src) + 1);
445	+	if (new == NULL) {
446	+	return -1;
447	+	}
448	+
449	+	strcpy(new, src);
450	+	*dest = new;
451	+	return 0;
452	+	}
453	+
454	+	/* join two strings together */
455	+	int sg_concat_string(char **dest, const char *src) {
456	+	char *new;
457	+	int len = strlen(*dest) + strlen(src) + 1;
458	+
459	+	new = sg_realloc(*dest, len);
460	+	if (new == NULL) {
461	+	return -1;
462	+	}
463	+
464	+	*dest = new;
465	+	strcat(*dest, src);
466	+	return 0;
467	+	}
468	+
469	+	#if (defined(FREEBSD) && !defined(FREEBSD5)) || defined(DFBSD)
470	+	kvm_t *sg_get_kvm() {
471	+	static kvm_t *kvmd = NULL;
472	+
473	+	if (kvmd != NULL) {
474	+	return kvmd;
475	+	}
476	+
477	+	kvmd = kvm_openfiles(NULL, NULL, NULL, O_RDONLY, NULL);
478	+	if(kvmd == NULL) {
479	+	sg_set_error(SG_ERROR_KVM_OPENFILES, NULL);
480	+	}
481	+	return kvmd;
482	+	}
483	+
484	+	/* Can't think of a better name for this function */
485	+	kvm_t *sg_get_kvm2() {
486	+	static kvm_t *kvmd2 = NULL;
487	+
488	+	if (kvmd2 != NULL) {
489	+	return kvmd2;
490	+	}
491	+
492	+	kvmd2 = kvm_openfiles(_PATH_DEVNULL, _PATH_DEVNULL, NULL, O_RDONLY, NULL);
493	+	if(kvmd2 == NULL) {
494	+	sg_set_error(SG_ERROR_KVM_OPENFILES, NULL);
495	+	}
496	+	return kvmd2;
497	+	}
498	+	#endif
499	+
500	+	#if defined(NETBSD) || defined(OPENBSD)
501	+	struct uvmexp *sg_get_uvmexp() {
502	+	int mib[2];
503	+	size_t size = sizeof(struct uvmexp);
504	+	static struct uvmexp uvm;
505	+	struct uvmexp *new;
506	+
507	+	mib[0] = CTL_VM;
508	+	mib[1] = VM_UVMEXP;
509	+
510	+	if (sysctl(mib, 2, &uvm, &size, NULL, 0) < 0) {
511	+	sg_set_error_with_errno(SG_ERROR_SYSCTL, "CTL_VM.VM_UVMEXP");
512	+	return NULL;
513	+	}
514	+
515	+	return &uvm;
516	+	}
517	+	#endif
518	+
519	+	#ifdef HPUX
520	+	struct pst_static *sg_get_pstat_static() {
521	+	static int got = 0;
522	+	static struct pst_static pst;
523	+
524	+	if (!got) {
525	+	if (pstat_getstatic(&pst, sizeof pst, 1, 0) == -1) {
526	+	sg_set_error_with_errno(SG_ERROR_PSTAT,
527	+	"pstat_static");
528	+	return NULL;
529	+	}
530	+	got = 1;
531	+	}
532	+	return &pst;
533	+	}
534	+	#endif
535	+
536	+	int sg_init(){
537	+	sg_set_error(SG_ERROR_NONE, NULL);
538	+
539	+	#if (defined(FREEBSD) && !defined(FREEBSD5)) || defined(DFBSD)
540	+	if (sg_get_kvm() == NULL) {
541	+	return -1;
542	+	}
543	+	if (sg_get_kvm2() == NULL) {
544	+	return -1;
545	+	}
546	+	#endif
547	+	#ifdef SOLARIS
548	+	/* On solaris 7, this will fail if you are not root. But, everything
549	+	* will still work, just no disk mappings. So we will ignore the exit
550	+	* status of this, and carry on merrily.
551	+	*/
552	+	#ifdef HAVE_LIBDEVINFO_H
553	+	build_mapping();
554	+	#endif
555	+	#endif
556	+	#ifdef WIN32
557	+	return sg_win32_start_capture();
558	+	#endif
559	+	return 0;
560	+	}
561	+
562	+	int sg_shutdown() {
563	+	#ifdef WIN32
564	+	sg_win32_end_capture();
565	+	#endif
566	+	return 0;
567	+	}
568	+
569	+	int sg_snapshot() {
570	+	#ifdef WIN32
571	+	return sg_win32_snapshot();
572	+	#else
573	+	return 0;
574	+	#endif
575	+	}
576	+
577	+	int sg_drop_privileges() {
578	+	#ifndef WIN32
579	+	#ifdef HAVE_SETEGID
580	+	if (setegid(getgid()) != 0) {
581	+	#elif defined(HAVE_SETRESGID)
582	+	if (setresgid(getgid(), getgid(), getgid()) != 0) {
583	+	#else
584	+	{
585	+	#endif
586	+	sg_set_error_with_errno(SG_ERROR_SETEGID, NULL);
587	+	return -1;
588	+	}
589	+	#ifdef HAVE_SETEUID
590	+	if (seteuid(getuid()) != 0) {
591	+	#elif defined(HAVE_SETRESUID)
592	+	if (setresuid(getuid(), getuid(), getuid()) != 0) {
593	+	#else
594	+	{
595	+	#endif
596	+	sg_set_error_with_errno(SG_ERROR_SETEUID, NULL);
597	+	return -1;
598	+	}
599	+	#endif /* WIN32 */
600	+	return 0;
601	+	}
602	+
603	+	void *sg_realloc(void *ptr, size_t size) {
604	+	void *tmp = NULL;
605	+	tmp = realloc(ptr, size);
606	+	if(tmp == NULL) {
607	+	sg_set_error_with_errno(SG_ERROR_MALLOC, NULL);
608	+	}
609	+	return tmp;
610	+	}

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines