From bffe11df9ab66eb6dec082794f9fdae9a1959586 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Tue, 29 Jul 2008 10:01:14 +0000 Subject: [PATCH] * update renamepic --- renamepic | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/renamepic b/renamepic index be6f9e1..9d6545e 100755 --- a/renamepic +++ b/renamepic @@ -99,17 +99,18 @@ while (defined($_ = $current_directory->read)) { # Rename foreach my $picture (@pictures) { - my $line = sprintf('%03s',$file_counter).$$picture{default_name}; # view the image - `feh -Z $$picture{old_name} > /dev/null` unless $$config{renumber_only}; + `feh -FZ $$picture{old_name} > /dev/null` unless $$config{renumber_only}; #prompt to rename the picture print "Rename $$picture{old_name}\n"; # sprintf('%03s',$file_counter); - $line = $readline->readline('new name:',$line) + $$picture{clean_old_name} = $readline->readline('new name:',$$picture{clean_old_name}) unless $$config{renumber_only}; + my $line = sprintf('%03s',$file_counter).qq(_$$picture{clean_old_name}_$$picture{picture_time}.$$picture{extension}); + # Remove leading and trailing spaces, replace all remaining # spaces with _, and remove ugly characters. lowercase everything # while we're at it. -- 2.39.5