--- projects/cms/source/ihost/libstatgrab/process_stats.c	2002/05/18 18:15:56	1.3
+++ projects/cms/source/ihost/libstatgrab/process_stats.c	2002/05/29 19:41:59	1.6
@@ -1,5 +1,6 @@
 /* 
  * 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
@@ -17,6 +18,10 @@
  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
  */
 
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
 #include <stdio.h>
 #include "ukcprog.h"
 #include <string.h>
@@ -118,19 +123,24 @@ char *get_process_stats(){
 			return NULL;
       		}
 
-      	while((line=fpgetline(f)) != NULL){
-         	if(strncasecmp(line,"State:",6)==0) break;
-      	}
+      		while((line=fpgetline(f)) != NULL){
+         		if(strncasecmp(line,"State:",6)==0) break;
+      		}
 
-      	line_p=line;
-      	for(;*line_p++ != '\t';);
+     	 	line_p=line;
+      		for(;*line_p++ != '\t';);
 
 
-      	if(*line_p=='R') running++;
-      	if(*line_p=='S') sleeping++;
-      	if(*line_p=='Z') zombie++;
-      	if(*line_p=='T') stopped++;
-      	if(*line_p=='D') stopped++;
+      		if(*line_p=='R') running++;
+      		if(*line_p=='S') sleeping++;
+      		if(*line_p=='Z') zombie++;
+      		if(*line_p=='T') stopped++;
+      		if(*line_p=='D') stopped++;
+			
+       		if ((fclose(f)) != 0) {
+			errf("Failed to close file (%m)");
+		        return NULL;
+	      	}
 
     	}
     	closedir(procdir);