@@ -240,10 +240,20 @@
          (set!  obj data-row))))
 ;(print obj)
 obj))
 
 
+(define (sauth-common:src-size path)
+  (let ((output (with-input-from-pipe (conc "/usr/bin/du -s " path  "  | awk '{print $1}'")  
+                 (lambda()
+                  (read-line)))))
+      (string->number output)))  
+
+(define (sauth-common:space-left-at-dest path)
+   (let* ((output  (run/string (pipe (df ,path ) (tail -1))))
+         (size (caddr (string-split output " "))))
+  (string->number size)))
 
 
 ;; function to validate the users input for target path and resolve the path
 ;; TODO: Check for restriction in subpath 
 (define (sauth-common:resolve-path  new current allowed-sheets)
@@ -279,11 +289,11 @@
                     
 	              
                            (if (and (not (equal? restricted-areas "" ))
                              (string-match (regexp  restrictions) target-path)) 
                            (begin
-                              (sauth:print-error "Access denied to " (string-join resolved-path "/"))
+                              (sauth:print-error (conc "Access denied to " (string-join resolved-path "/")))
                               ;(exit 1)   
                             #f)
                              target-path)
                             
 ))