/services/reflector.cgi

#!/bin/bash
# reflector.sh - Reflect Incoming Request
# Author: Sean B. Palmer, inamidst.com

echo 'Content-Type: text/plain'
echo 

echo $REQUEST_METHOD $REQUEST_URI $SERVER_PROTOCOL
env | egrep '^HTTP_' | \
   perl -ne '($key,$value)=split(/=/, $_, 2);
             $key =~ s/[^_]+_//; 
             $key =~ s/_/-/g; 
             $key =~ s/([A-Z]+)/\u\L$1/g; 
             print "$key: $value"'
echo 
cat

# [EOF]