<%doc>
############################################################################
###    (C)opyright 2003 - 2008 RIPE NCC
###    This file is part of DNSMon
###
###    DNSMon is free software: you can redistribute it and/or modify
###    it under the terms of the GNU General Public License as published by
###    the Free Software Foundation, either version 3 of the License, or
###    (at your option) any later version.
###
###    DNSMon is distributed in the hope that it will be useful,
###    but WITHOUT ANY WARRANTY; without even the implied warranty of
###    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
###    GNU General Public License for more details.
###
###    You should have received a copy of the GNU General Public License
###    along with DNSMon.  If not, see <http://www.gnu.org/licenses/>.
############################################################################

Log an error of any errors/exception to us so we can debug
what went wrong.

</%doc>
<%once>
	use Data::Dumper;
	use Log::Log4perl qw(get_logger);
</%once>
<%args>
	$error => undef
	$indent => ''
</%args>
<%init>
	my @mesg;
	my $log = get_logger();
	if ($TICKET) {
		$log->error(sprintf("id=%s logname=%s",$TICKET->id,$TICKET->logname));
	} else {
		$log->error("id=none logname=none");
	}
	$log->error("error uri:" . $r->uri );
	$log->error("error ref:" . ref($error));
	$log->error("error: $error");
	{
		local $Data::Dumper::Sortkeys = 1;
		my $env_dump = Data::Dumper::Dumper(\%ENV);
		$log->error("Environment \%ENV:  $env_dump");
	};
</%init>
