From: Fred T. Hamster Date: Tue, 12 Feb 2019 15:09:37 +0000 (-0500) Subject: debugging spacemall X-Git-Tag: 2.140.115^2~34^2 X-Git-Url: https://feistymeow.org/gitweb/?p=feisty_meow.git;a=commitdiff_plain;h=c126508114a6713d0102a0b4804a9f25bd46b6bf debugging spacemall working better but still something screwy about matching pdf files --- diff --git a/scripts/files/renlower.pl b/scripts/files/renlower.pl index 1fe9fa1f..ca42de7c 100644 --- a/scripts/files/renlower.pl +++ b/scripts/files/renlower.pl @@ -45,9 +45,10 @@ sub rename_lower { #print "new name='$new_name'\n"; local $intermediate_name = $dir . "RL" . rand() . ".tmp"; #print "\n"; -print "command A is: rename [$old_name] [$intermediate_name]\n"; -print "command B is: rename [$intermediate_name] [$new_name]\n"; -print "\n"; + +#print "command A is: rename [$old_name] [$intermediate_name]\n"; +#print "command B is: rename [$intermediate_name] [$new_name]\n"; +#print "\n"; rename($old_name, $intermediate_name) || die "failed to do initial rename"; rename($intermediate_name, $new_name) diff --git a/scripts/files/spacem.sh b/scripts/files/spacem.sh index aecf3b08..9b201c5c 100644 --- a/scripts/files/spacem.sh +++ b/scripts/files/spacem.sh @@ -10,32 +10,37 @@ echo "arg is '$arg'" continue fi - # first we will capture the output of the character replacement operation for reporting. + # we capture the output of the character replacement operation for reporting. # this is done first since some filenames cannot be properly renamed in perl (e.g. if they # have pipe characters apparently). intermediate_name="$(bash "$FEISTY_MEOW_SCRIPTS/files/replace_spaces_with_underscores.sh" "$arg")" local saw_intermediate_result=0 if [ -z "$intermediate_name" ]; then +echo no new intermed name reported # make sure we report something, if there are no further name changes. intermediate_name="'$arg'" else # now zap the first part of the name off (since original name is not needed). - intermediate_name="$(echo "$intermediate_name" | sed -e 's/.*=> //')" + intermediate_name="$(echo $intermediate_name | sed -e 's/.*=> //')" saw_intermediate_result=1 fi - # first we rename the file to be lower case. - actual_file="$(echo "$intermediate_name" | sed -e "s/\'\([^']*\)\'/\1/")" + # here we rename the file to be lower case. + actual_file="$(echo $intermediate_name | sed -e "s/'\([^']*\)'/\1/")" +echo actual file computed: $actual_file final_name="$(perl "$FEISTY_MEOW_SCRIPTS/files/renlower.pl" "$actual_file")" local saw_final_result=0 +echo temp final name is: $final_name if [ -z "$final_name" ]; then final_name="$intermediate_name" else - final_name="$(echo "$final_name" | sed -e 's/.*=> //' )" + final_name="$(echo $final_name | sed -e 's/.*=> //' )" saw_final_result=1 fi -#echo intermed=$saw_intermediate_result -#echo final=$saw_final_result +echo intermed result=$saw_intermediate_result +echo intermed name=$intermediate_name +echo final result=$saw_final_result +echo final name=$final_name if [[ $saw_intermediate_result != 0 || $saw_final_result != 0 ]]; then # printout the combined operation results. @@ -47,9 +52,10 @@ echo "arg is '$arg'" # this block should execute when the script is actually run, rather # than when it is just being sourced. if [[ $0 =~ .*spacem\.sh.* ]]; then +echo inside exec block for spacem source "$FEISTY_MEOW_SCRIPTS/core/launch_feisty_meow.sh" exit_on_error "sourcing the feisty meow environment" spacem_out "${@}" - exit_on_error "running spacem_out on a list: $*" + exit_on_error "running spacem_out on a list: ${@}" fi