From 3a7baab7344d933e9534716ddd9ff88645dcecfa Mon Sep 17 00:00:00 2001
From: Daniel Friesel <derf@finalrewind.org>
Date: Fri, 24 Mar 2017 17:28:21 +0100
Subject: begin work on recursive mode. isn't recursive yet, but does list
 directories.

---
 bin/dthumb | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'bin')

diff --git a/bin/dthumb b/bin/dthumb
index 0ba3e89..ab56865 100755
--- a/bin/dthumb
+++ b/bin/dthumb
@@ -27,6 +27,7 @@ GetOptions(
 		no-names|n
 		quality|q=i
 		recreate|r
+		recursive|R
 		size|d=i
 		spacing|s=f
 		title|t=s
@@ -46,16 +47,16 @@ if ( $opt->{help} ) {
 	die("Please see 'perldoc -F $0' or 'man dthumb'\n");
 }
 
-$dthumb->read_directories();
-$dthumb->create_files();
-$dthumb->delete_old_thumbnails();
+$dthumb->read_directories;
+$dthumb->create_files;
+$dthumb->delete_old_thumbnails;
 
 $timer->attr(
 	min => 1,
-	max => scalar $dthumb->get_files(),
+	max => scalar $dthumb->get_files,
 );
 
-for my $file ( $dthumb->get_files() ) {
+for my $file ( $dthumb->get_files ) {
 	print STDERR $timer->report(
 		"\r\e[KCreating Thumbnails: %p done, %L elapsed, %E remaining", $id++,
 	);
@@ -65,7 +66,7 @@ for my $file ( $dthumb->get_files() ) {
 }
 print "\n";
 
-$dthumb->write_out_html();
+$dthumb->write_out_html;
 
 __END__
 
-- 
cgit v1.2.3