art-helpers

commit 01ddff3a8bd9cc92d077f297341db191377dd43c
parent bf3beee64b9c76fdeac5dba41de52a0494d45862
Author: René Wagner <apollo@rw-net.de>
Date:   Sun, 29 Sep 2019 21:32:09 +0200

add more information about processing to orphaned_sidecar_cleaner.pl

Diffstat:
M
orphaned_sidecar_cleaner.pl
 | 
11
++++++-----

1 file changed, 6 insertions(+), 5 deletions(-)
diff --git a/orphaned_sidecar_cleaner.pl b/orphaned_sidecar_cleaner.pl
@@ -29,8 +29,6 @@ foreach my $arg ( @ARGV )
 	}
 }
 
-print "working directory: $delete_dir \r\n";
-
 main($delete_dir, $delete_flag);
 
 exit 0;
@@ -40,6 +38,10 @@ sub main
 	my ( $dir, $delete ) = @_;
 	my ( $delcounter ) = 0;
 
+	print "working directory: $delete_dir \r\n";
+	print 'action           : '. ($delete_flag ? 'delete' : 'list only') . "\r\n \r\n";
+	print "files with missing raw:\r\n";
+
 	# alle Dateien in allen Unterordnern *.spd *.spf suchen
 	my $rule =  File::Find::Rule->new;
 	$rule->file;
@@ -55,14 +57,13 @@ sub main
 			$delcounter++;
 			if ( $delete )
 			{
-				print " Deleting";
-				unlink $file or warn " failed: $!";
+				unlink $file or warn " Deletion failed: $!";
 			}	
 			print "\r\n";
 		}
 	}
 	
-	print "Found $delcounter orphaned sidecar files found.\r\n";
+	print "\r\nfound $delcounter orphaned sidecar files found.\r\n";
 }
 
 sub exists_raw_filename