#!/bin/csh
set Session = `date +"%s"`
set log = logs/email.log
set Fic = /tmp/html-bg/$Session
foreach paire(`echo $QUERY_STRING | sed 's/&/ /g'`)
set nom = `echo $paire | awk -F= '{print $1}'`
set val = `echo $paire | awk -F= '{print $2}' | sed 's,%,\\\x,g' | sed 's/+/ /g'`
echo "$paire" | awk -F= '{print $2}' | sed 's/+/ /g' | sed 's/%0D%0A/\n/g' | sed 's/%0A/\n/g' | sed 's/%../\\\\0" ; echo -n \"\`echo 16i8o & p | dc\`\" ; echo -n "ZzXYZ/g' | sed 's/%//g' | sed 's/^/echo -n "/' | sed 's/$/"/' | csh >! $Fic.tmp
set VAL = `cat $Fic.tmp`
set VAL = `echo "$VAL" | sed 's/ZzXYZ//g'`
#echo "$VAL" | awk '{print $0}' > $Fic.tmp
#set VAL = `cat $Fic.tmp`
echo "bg $paire : $nom : $val = $VAL" >> $log
if ($nom == "Sub") then
else if ($nom == "From") then
set Page = "$VAL"
endif
end
rm -f $Fic.tmp
if ($?HTTP_REFERER) then
set Page = "$HTTP_REFERER"
endif
cat << EOF
Content-type: text/html
email me