add quiet mode

1 files changed, 9 insertions, 4 deletions

diff --git a/bin/dthumb b/bin/dthumb
index 0c691c9..32931f9 100755
--- a/bin/dthumb
+++ b/bin/dthumb
@@ -27,6 +27,7 @@ GetOptions(
 		help|h
 		no-names|n
 		quality|q=i
+		quiet|Q
 		recreate|r
 		recursive|R
 		size|d=i
@@ -58,14 +59,18 @@ $timer->attr(
 );
 
 for my $file ( $dthumb->get_files ) {
-	print STDERR $timer->report(
-		"\r\e[KCreating Thumbnails: %p done, %L elapsed, %E remaining", $id++,
-	);
+	if ( not $opt->{quiet} ) {
+		print STDERR $timer->report(
+			"\r\e[KCreating Thumbnails: %p done, %L elapsed, %E remaining",
+			$id++, );
+	}
 
 	$dthumb->create_thumbnail_html($file);
 	$dthumb->create_thumbnail_image($file);
 }
-print "\n";
+if ( not $opt->{quiet} ) {
+	print "\n";
+}
 
 $dthumb->write_out_html;