#!/usr/bin/perl

use strict;
use warnings;

use constant LOG_FILE => '/var/www/logs/trackback-log';
use constant DELIMITER => "==========================================";

open(LOG, ">>" . LOG_FILE) or die "$!";
print(LOG DELIMITER . "\n");
print(LOG localtime() . "\n");
print(LOG "Environment: \n");
foreach my $ev (keys %ENV) {
    print(LOG "    $ev = $ENV{$ev}\n");
}
print(LOG "STDIN: \n");
while (my $line = <>) {
    print(LOG "    $line\n");
}

close(LOG);

print("Status: 410 Gone\n");
print("Content-type: text/plain\n\n");
print("Gone.\n");
#if (defined($ENV{'REQUEST_METHOD'}) && ($ENV{'REQUEST_METHOD'} eq "POST")) {
#    for (my $i = 0; $i < 100000000; $i++) {
#	for (my $n = 0; $n < 10; $n++) {
#	    print($n);
#	}
#    }
#}