;; -*-scheme-*-
(define (script-fu-batch-level srcFile destFile)
   (let* ((image (car (gimp-file-load RUN-NONINTERACTIVE srcFile srcFile)))
          (drawable (car (gimp-image-get-active-layer image))))
     (gimp-levels-stretch drawable)
     (gimp-file-save RUN-NONINTERACTIVE image drawable destFile destFile)
     (gimp-image-delete image))
)

(script-fu-register "script-fu-batch-level"
		    _"_Auto Level Colors"
		    "Auto Levels Colors of specified image."
		    "Mario Theodoridis"
		    "Mario Theodoridis, 2006. Public Domain."
		    "July 2006"
		    ""
		    SF-STRING   "srcFile" ""
		    SF-STRING   "destFile" "")