#!/usr/bin/perl -w

use CGI; 
my $q = new CGI;

my $rcode=$ENV{REDIRECT_STATUS};
my $bstatus=($sendrealresponse)?"$rcode $messages{$rcode}":"200 Intercepted error condition";

my $time=gmtime(time);

my %swapdata=(url=>$ENV{REDIRECT_URL},notes=>$ENV{REDIRECT_ERROR_NOTES}, code=>$rcode,message=>$messages{$rcode}, requester=>$ENV{REMOTE_ADDR}, reqhost=>$ENV{REMOTE_HOST}, server=>$ENV{HTTP_HOST}, referrer=>$ENV{HTTP_REFERER}, time=>$time);