#!/bin/sh

dest=$origen"/filelist.stta"
origen=`pwd`
dn=/dev/null
echo "" >$dest
for dir in ` ls ` 
do
  [ -d $dir ] && {
   echo "$dir:::: " >>$dest
   lspl=`ls $origen/$dir/*.pl 2>$dn`
   lscgi=`ls $origen/$dir/ 2>$dn`
   lssh=`ls $origen/$dir/*.sh 2>$dn`
   echo "$lspl " >>$dest
   echo "$lscgi" >>$dest
   echo "$lssh" >>$dest
   echo "$dir done !!"
 }
done
