(define (script-fu-my_batch_web_workflow image drawable source destination largeur hauteur interieur exterieur noir blanc nettete qualite)
	(set! filelist (cadr (file-glob (string-append "" source "/" "*.*") 1)))
	(while filelist
		(set! filename (car filelist))
		(set! image (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
		(set! drawable (car (gimp-image-flatten image)))
		(script-fu-my_web_workflow image drawable largeur hauteur interieur exterieur noir blanc nettete 1)
		(set! index (string-length filename))
		(while (> index 0)
			(if (equal? (substring filename (- index 1) index) "/")
				(begin
					(set! index2 (string-length filename))
					(while (> index2 0)
						(if (equal? (substring filename (- index2 1) index2) ".")
							(begin
								(set! outfilename (string-append "" (substring filename 0 index2) "jpg"))
								(set! index2 0)
							)
							(begin (set! index2 (- index2 1)))
						)
					)
					(set! outfile (string-append "" destination "/" (substring outfilename index (string-length outfilename))))
					(set! index 0)
					(set! theNewImageDrawable (car (gimp-image-get-active-drawable theNewImage)))
					(file-jpeg-save RUN-NONINTERACTIVE theNewImage theNewImageDrawable outfile outfile qualite 0.0 1 1 "" 0 0 0 0)
					(gimp-image-delete image)
				)
				(begin (set! index (- index 1)))
			)
		)
		(set! filelist (cdr filelist))
	)
)

(script-fu-register "script-fu-my_batch_web_workflow"
	"<Image>/Script-Fu/Utils/My Batch Workflow"
	""
	"Stephan Peccini (stephan@photonature.fr)"
	"Stephan Peccini"
	"April 2005"
	"RGB* GRAY*"
	SF-IMAGE "Input Image" 0
	SF-DRAWABLE "Input Drawable" 0
	SF-DIRNAME "Source" ""
	SF-DIRNAME "Destination" ""
	SF-ADJUSTMENT _"Largeur Maximum" '(600 100 1000 100 100 0 1)
	SF-ADJUSTMENT _"Hauteur Maximum" '(600 100 1000 100 100 0 1)
	SF-ADJUSTMENT _"Epaisseur du filet interieur" '(0 0 10 1 1 0 1)
	SF-ADJUSTMENT _"Epaisseur du filet exterieur" '(0 0 10 1 1 0 1)
	SF-COLOR _"Couleur du filet interieur" '(0 0 0)
	SF-COLOR _"Couleur du filet exterieur" '(255 255 255)
	SF-OPTION   _"Nettete"  '(_"Refocus"  _"Unsharp mask")
	SF-ADJUSTMENT _"Qualite" '(0.85 0 1 0.01 0.01 2 0)
)