3 files changed, 51 insertions, 1 deletions
diff --git a/cpflat.sh b/cpflat.sh
new file mode 100755
index 0000000..0092ea4
--- /dev/null
+++ b/cpflat.sh
@@ -0,0 +1,40 @@
+#!/bin/sh
+
+IFS='
+'
+_=$(basename $0)
+
+if [ "x$1" == "x-r" ] ; then
+    RENAME=y
+    shift
+fi
+
+if [ -z "$2" ] ; then
+    echo $_: usage $_ [-r] scp_destination extension
+    exit 1
+fi
+
+DEST=$1
+EXT=$2
+
+flist=$(find . -type f -iname "*.$EXT")
+
+for i in $flist ; do
+    dir=$(dirname "$i")
+    last_dir=$(basename "$dir")
+
+    if [ -z "$last_dir" ] ; then
+    	last_dir=$dir
+    fi
+
+    fname=$(basename "$i")
+
+    if [ "$RENAME" ] ; then
+    	fname="$last_dir.$EXT"
+    fi
+
+    if ! scp "$i" "$DEST/$fname" ; then
+    	echo $_: Copy failed
+	exit 1
+    fi
+done
diff --git a/lcase.sh b/lcase.sh
index 54359f7..c41a1a8 100755
--- a/lcase.sh
+++ b/lcase.sh
@@ -3,7 +3,11 @@
 IFS='
 '
 
-flist=$(find . -type f)
+if [ "$1" ] ; then
+    flist=$(find . -type f -iname "*.$1")
+else
+    flist=$(find . -type f)
+fi
 
 for i in $flist ; do
     fname=$(basename $i)
diff --git a/ucase.sh b/ucase.sh
index 33892a3..cd42212 100755
--- a/ucase.sh
+++ b/ucase.sh
@@ -3,6 +3,12 @@
 IFS='
 '
 
+if [ "$1" ] ; then
+    flist=$(find . -type f -iname "*.$1")
+else
+    flist=$(find . -type f)
+fi
+
 flist=$(find . -type f)
 
 for i in $flist ; do