dump_xml.cgi

#!/usr/bin/perl

use Digest::SHA qw(hmac_sha1_hex);
use POSIX qw(strftime);

$timestamp = strftime "%Y-%m-%d %H:%M:%S", localtime;

open(KEYFILE, "github.secret");
chomp($secret = <KEYFILE>);
close(KEYFILE);

open(OUTFILE, ">>dump.out");
print OUTFILE "============================================================\n";
print OUTFILE "$timestamp $ENV{'SCRIPT_URI'}\n";

print STDOUT "Content-type: application/xml\n";
print STDOUT "\n";

print OUTFILE "REQUEST_METHOD: $ENV{'REQUEST_METHOD'}\n";
if (defined $ENV{'QUERY_STRING'}) {
    print OUTFILE "QUERY_STRING: $ENV{'QUERY_STRING'}\n";
}
if (defined $ENV{'CONTENT_TYPE'}) {
    print OUTFILE "CONTENT_TYPE: $ENV{'CONTENT_TYPE'}\n";
}
if (defined $ENV{'CONTENT_LENGTH'}) {
    print OUTFILE "CONTENT_LENGTH: $ENV{'CONTENT_LENGTH'}\n";
}

$xml = "";

$xml .= "<?xml version=\"1.0\" encoding=\"UTF-8\" ?>\n";
$xml .= "\n";
$xml .= "<response>\n";
$xml .= "    <request>\n";
$xml .= "        <method>$ENV{'REQUEST_METHOD'}</method>\n";
if ($ENV{'REQUEST_METHOD'} eq 'GET') {
    $xml .= "        <query-string>$ENV{'QUERY_STRING'}</query-string>\n";
}
if (defined $ENV{'CONTENT_TYPE'}) {
    $xml .= "        <content-type>$ENV{'CONTENT_TYPE'}</content-type>\n";
}
if (defined $ENV{'CONTENT_LENGTH'}) {
    $xml .= "        <content-length>$ENV{'CONTENT_LENGTH'}</content-length>\n";
}
$xml .= "    </request>\n";

print OUTFILE "\n";
print OUTFILE "Headers:\n";
foreach $key (sort(keys(%ENV))) {
    if ($key =~ /^HTTP_(.*)/) {
        print OUTFILE "$1: $ENV{$key}\n";
    }
}

$count = 0;
$xml .= "    <headers count=\"" . (scalar grep { /^HTTP_/ } keys(%ENV)) . "\">\n";
foreach $key (sort(keys(%ENV))) {
    if ($key =~ /^HTTP_(.*)/) {
        $xml .= "        <header name=\"$1\">$ENV{$key}</header>\n";
        $count++;
    }
}
$xml .= "    </headers>\n";

if (defined $ENV{'CONTENT_LENGTH'}) {
    $contents = "";
    read (STDIN, $contents, $ENV{'CONTENT_LENGTH'});

    $digest = hmac_sha1_hex($contents, $secret);

    print OUTFILE "\n";
    print OUTFILE "Contents:\n";
    print OUTFILE "\n";
    print OUTFILE "$contents\n";
    print OUTFILE "\n";
    print OUTFILE "Digest: sha1=$digest\n";

    $escapedContents = $contents;
    $escapedContents =~ s/&/&amp;/g;
    $escapedContents =~ s/</&lt;/g;
    $escapedContents =~ s/>/&gt;/g;

    $xml .= "    <contents digest=\"$digest\" length=\"$ENV{'CONTENT_LENGTH'}\">$escapedContents</contents>\n";
}

$xml .= "    <author>\n";
$xml .= "        <name>Jean Tessier</name>\n";
$xml .= "        <email>jean\@jeantessier.com</email>\n";
$xml .= "    </author>\n";
$xml .= "</response>\n";

print STDOUT $xml;

print OUTFILE "\n";
print OUTFILE "Output:\n";
print OUTFILE $xml;

print OUTFILE "\n";
print OUTFILE "============================================================\n";
close(OUTFILE);