package Ernad::Web::Error;

use strict;
use warnings;

use base 'Ernad';

use Carp qw(confess);
use Data::Dumper;

#use Ernad::Constant;
#use Ernad::Common;
use Krichel::Shoti;

##
sub init {
  my $we=shift;
}

sub save {
  my $we=shift;
  my $error=shift // confess "I need an error here.";
  my $e=$main::e // confess "I need an erimp here";
  my $shoti=&Krichel::Shoti::now();
  my $log_dir=$e->{'dir'}->{'log'};
  my $err_file=$log_dir."/web_$shoti.err";
  my $err_xml_file=$log_dir."/web_$shoti.xml";
  open(F,"> $err_file");
  binmode(F,'utf8');
  print F "$error\n\n" . Dumper $e;
  close F;
  my $doc=$e->{'x'}->error_doc($error);
  $doc->toFile($err_xml_file);
  my $bytes=$e->{'t'}->t($doc,'error','bytes');
  return $bytes;
}



1;