diff --git a/scripts/code-clean.sh b/scripts/code-clean.sh
new file mode 100644
index 0000000000000000000000000000000000000000..19a15ad9a9575ca879e9bde6a85171e9675dd369
--- /dev/null
+++ b/scripts/code-clean.sh
@@ -0,0 +1,10 @@
+#!/bin/sh
+# $Id$
+
+find . -name "*~" -type f | xargs rm -f
+find . -name ".#*" -type f | xargs rm -f
+find . -name "*.rej" -type f | xargs rm -f
+find . -name "*.orig" -type f | xargs rm -f
+find . -name "DEADJOE" -type f | xargs rm -f
+find . -type f | grep -v ".psp" | grep -v ".gif" | grep -v ".jpg" | grep -v ".png" | grep -v ".tgz" | grep -v ".ico" | grep -v "druplicon" | xargs perl -wi -pe 's/\s+$/\n/'
+find . -type f | grep -v ".psp" | grep -v ".gif" | grep -v ".jpg" | grep -v ".png" | grep -v ".tgz" | grep -v ".ico" | grep -v "druplicon" | xargs perl -wi -pe 's/\t/  /g'