#!/bin/bash
echo "Content-Type: text/html; charset=utf-8"
echo
echo ""
echo "Table of Stored Names
"
echo ""
origIFS=$IFS
IFS='=&'
set -- $QUERY_STRING
IFS=$origIFS
# names.txt must exist and
# be write-able for everyone (www)!
if [ "$6" = 'on' ]; then
if [ "$2" != '' ] && [ "$4" != '' ]; then
echo "$2 $4" >> names.txt
fi
else
perl -i -ne "print unless m/^$2 $4$/" names.txt
fi
echo "| First | Last | |
|---|
"
i=1
while read -r first last
do
echo "| $first | $last | |
"
((i++))
done < names.txt
echo "
"
echo ""
exit 0