#! /bin/sh

for i in 0 1 2 3 4 5
do
 list=`ls $i`
 nams=
 tits=
 for j in $list
 do
  tit=`awk -F= '$1=="title" {print $2; exit}' $i/$j | tr ',' ' '`
  if [ ! -z "$tit" ]; then
   tits="$tits$tit,"
   nams="$nams$j,"
  fi
 done
 cat <<@ >$i.idx
!set fnames=!char 1 to -2 of $nams
!set titles=!char 1 to -2 of $tits
@
done

