fi
}
- # switches from an X:/ form to an /X/path form.
+ # switches from an X:/ form to a /cygdrive/X/path form. this is only useful
+ # for the cygwin environment currently.
function dos_to_unix_path() {
# we always remove dos slashes in favor of forward slashes.
- echo "$1" | sed -e 's/\\/\//g' | sed -e 's/\([a-zA-Z]\):\/\(.*\)/\/\1\/\2/'
+#old: echo "$1" | sed -e 's/\\/\//g' | sed -e 's/\([a-zA-Z]\):\/\(.*\)/\/\1\/\2/'
+ echo "$1" | sed -e 's/\\/\//g' | sed -e 's/\([a-zA-Z]\):\/\(.*\)/\/cygdrive\/\1\/\2/'
}
# returns a successful value (0) if this system is debian or ubuntu.
# this is done first since some filenames can't 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
# 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 isn't needed).
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/")"
final_name="$(perl $FEISTY_MEOW_SCRIPTS/files/renlower.pl "$actual_file")"
+ local saw_final_result=0
if [ -z "$final_name" ]; then
- final_name="'$intermediate_name'"
+ final_name="$intermediate_name"
else
final_name="$(echo $final_name | sed -e 's/.*=> //')"
+ saw_final_result=1
fi
+#echo intermed=$saw_intermediate_result
+#echo final=$saw_final_result
- # printout the combined operation results.
- echo "'$arg' => $final_name"
+ if [[ $saw_intermediate_result != 0 || $saw_final_result != 0 ]]; then
+ # printout the combined operation results.
+ echo "'$arg' => $final_name"
+ fi
done
}