($config->{program_name}) = $0 =~/([^\/]+)\s*$/;
-GetOptions($config,'counter_start|c=i','renumber_only|r!');
+GetOptions($config,'counter_start|c=i','renumber_only|renumber-only|r!');
if ($#ARGV < 0) {
print STDERR "No Directory Specified\nUsage: $config->{program_name} <directory>\n";
# Rename
foreach my $picture (@pictures) {
- my $line = sprintf('%03s',$file_counter).$$picture{default_name};
# view the image
`feh -FZ $$picture{old_name} > /dev/null` unless $$config{renumber_only};
# 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.