Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1968,10 +1968,20 @@
 	 (let ((res (read-line)))
 	   (if (string? res)
 	       (string->number res)))))
       (get-unix-df path)))
 
+(define (get-free-inodes path)
+  (if (configf:lookup *configdat* "setup" "free-inodes-script")
+      (with-input-from-pipe 
+       (conc (configf:lookup *configdat* "setup" "free-inodes-script") " " path)
+       (lambda ()
+	 (let ((res (read-line)))
+	   (if (string? res)
+	       (string->number res)))))
+      (get-unix-inodes path)))
+
 (define (get-unix-df path)
   (let* ((df-results (process:cmd-run->list (conc "df " path)))
 	 (space-rx   (regexp "([0-9]+)\\s+([0-9]+)%"))
 	 (freespc    #f))
     ;; (write df-results)
@@ -1981,10 +1991,24 @@
 		      (let ((newval (string->number (cadr match))))
 			(if (number? newval)
 			    (set! freespc newval))))))
 	      (car df-results))
     freespc))
+
+(define (get-unix-inodes path)
+  (let* ((df-results (process:cmd-run->list (conc "df -i " path)))
+	 (space-rx   (regexp "([0-9]+)\\s+([0-9]+)%"))
+	 (freenodex    #f))
+    ;; (write df-results)
+    (for-each (lambda (l)
+		(let ((match (string-search space-rx l)))
+		  (if match 
+		      (let ((newval (string->number (cadr match))))
+			(if (number? newval)
+			    (set! freenodes newval))))))
+	      (car df-results))
+    freenodes))
 
 (define (common:check-space-in-dir dirpath required)
   (let* ((dbspace  (if (directory? dirpath)
 		       (get-df dirpath)
 		       0)))
@@ -2021,11 +2045,12 @@
   
 ;; paths is list of lists ((name path) ... )
 ;;
 (define (common:get-disk-with-most-free-space disks minsize)
   (let ((best     #f)
-	(bestsize 0))
+	(bestsize 0)
+        (min-inodes (or (string->number (if (configf:lookup *configdat* "setup" "min_inodes") (configf:lookup *configdat* "setup" "min_inodes") "0")) 0)))
     (for-each 
      (lambda (disk-num)
        (let* ((dirpath    (cadr (assoc disk-num disks)))
 	      (freespc    (cond
 			   ((not (directory? dirpath))
@@ -2039,15 +2064,18 @@
 			   ((not (eq? (string-ref dirpath 0) #\/))
 			    (if (common:low-noise-print 300 "disks not a proper path " disk-num)
 				(debug:print 0 *default-log-port* "WARNING: disk " disk-num " at path \"" dirpath "\" is not a fully qualified path - ignoring it."))
 			    -1)
 			   (else
-			    (get-df dirpath)))))
-	 (if (> freespc bestsize)
+			    (get-df dirpath))))
+             (free-inodes (get-free-inodes dirpath)))
+	 (if (and (> freespc bestsize)(> free-inodes min-inodes ))
 	     (begin
 	       (set! best     (cons disk-num dirpath))
-	       (set! bestsize freespc)))))
+	       (set! bestsize freespc)))
+        ;;(print "Processing: " disk-num " bestsize: " bestsize " best: " best " freespc: " freespc " min-inodes: " min-inodes " free-inodes: " free-inodes)
+      ))
      (map car disks))
     (if (and best (> bestsize minsize))
 	best
 	#f))) ;; #f means no disk candidate found