Imported from ../bash-2.02.tar.gz.

examples/scripts/fixfiles.bash

@@ -0,0 +1,92 @@
+#! /bin/bash
+#
+# From: c2a192@ugrad.cs.ubc.ca (Kazimir Kylheku)
+# Newsgroups: comp.unix.shell,comp.os.linux.misc
+# Subject: GNU Bash Script to fix filenames
+# Date: 28 Mar 1996 14:54:43 -0800
+# Organization: Computer Science, University of B.C., Vancouver, B.C., Canada
+#
+#This is a script which takes a list of directories, descends through each one
+#and ``corrects'' filenames that:
+#
+#   -	contain filename globbing characters: * ? [ ]
+#   -	quote characters: ' "
+#   -	control characters: 0-31 (127 is not dealt with---oops)
+#   -	- or + as the first character
+#
+# The GNU version of 'tr' is required. Also requires 'sed'.
+#
+# Script to process a given list of directories recursively
+# and rename each file to something that is reasonable.
+#
+# The rules are:
+#
+# 1. replace each space, [, ], *, ", and ' character in the name with a
+#    period.
+# 2. replace each control character 1..31 with a printable character obtained
+#    by adding 64 to the ascii value. ^A becomes A, ^B becomes B and so on.
+# 3. replace a - or + occuring at the beginning of the name with a #
+#
+# 4. if the resulting name has been changed in any way, then
+# 5.    if a file of the new name already exists, then
+# 6.            add a . to the new name and goto step 5.
+# 7. rename the old name to the new name
+#
+# written by Kaz Kylheku <kaz@cafe.net>
+# March 1996
+# Vancouver, Canada
+#
+# requires GNU 'bash', GNU 'tr', and some sort of 'sed' program.
+#
+# minimal conversion to bash v2 syntax done by Chet Ramey
+
+processfile()
+{
+        new_name="`echo -n $1 | tr '\173\175\052\077\042\047 ' '.......' |
+                        tr '[\000-\037]' '[\100-\137]' |
+                        sed -e 's/^-/#/' -e 's/+/#/'`"
+        if [ "$new_name" != "$1" ] ; then
+                while [ -e "$new_name" ] ; do
+                        new_name="${new_name}."
+                done
+                echo changing \"$1\" to \"$new_name\" in `pwd`
+                mv -- "$1" "$new_name"
+        fi
+}
+
+processdir()
+{
+        set -f
+        local savepwd="$PWD"
+        if cd "$1" ; then
+                set +f
+                for file in * ; do
+                        set -f
+                        if [ "$file" != "." -a "$file" != ".." ] ; then
+                                if [ -L "$file" ] ; then
+                                        echo "skipping symlink" $file in `pwd`
+                                elif [ -d "$file" ] ; then
+                                        processdir "$file"
+                                elif [ -f "$file" ] ; then
+                                        processfile "$file"
+                                fi
+                        fi
+                done
+                cd "$savepwd"
+        fi
+}
+
+shopt -s nullglob dotglob
+
+if [ $# = 0 ] ; then
+        echo "$0: must specify a list of directories" >&2
+	echo "$0: usage: $0 directory [directory ...]" >&2
+	exit 2
+fi
+
+while [ $# != 0 ] ; do
+        processdir "$1"
+        shift
+done
+
+exit 0