#!/bin/sh

if [ -d tmp ] ; then
	cd tmp
		for f in * ; do
			if [ -f $f ] ; then
				f_new=`echo $f | perl -p -e 's/[:,].+(\.(new|out|request|result))?$/$1/'`
				[ "$f" = "$f_new" ] || mv $f $f_new
			fi
		done
	cd ..
fi