You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
263 lines
7.8 KiB
263 lines
7.8 KiB
package NGCP::Panel::Utils::Message;
|
|
|
|
use Catalyst;
|
|
use Sipwise::Base;
|
|
use Data::Dumper;
|
|
use DateTime qw();
|
|
use DateTime::Format::RFC3339 qw();
|
|
use Time::HiRes qw();
|
|
|
|
method get_log_params ($self: Catalyst :$c, :$type?, :$data?) {
|
|
# get log_tx_id, caller method, remote user, formatted passed parameters
|
|
|
|
# tx_id
|
|
my $log_tx = DateTime->from_epoch(epoch => Time::HiRes::time);
|
|
my $log_tx_id = sprintf '%X', $log_tx->strftime('%s%N');
|
|
|
|
# package and method depending on the request type (normal or api)
|
|
my $called = '';
|
|
if ($type eq 'api_request') {
|
|
$called = sprintf 'API[%s]/%s',
|
|
$c->request->method,
|
|
$c->request->path;
|
|
$c->session->{api_request_tx_id} = $log_tx_id;
|
|
} elsif ($type eq 'api_response') {
|
|
$called = sprintf 'API[%s %d]/%s',
|
|
$c->request->method,
|
|
$c->response->code,
|
|
$c->request->path;
|
|
if ($c->session->{api_request_tx_id}) {
|
|
$log_tx_id = $c->session->{api_request_tx_id};
|
|
delete $c->session->{api_request_tx_id}
|
|
}
|
|
} else {
|
|
my $caller = (caller 2)[3];
|
|
$caller !~ /::/ and $caller = (caller 3)[3];
|
|
if ($caller) {
|
|
my @caller = split('::', $caller);
|
|
$#caller >= 3 and $called = join('::', @caller[-3...-1]);
|
|
}
|
|
}
|
|
|
|
# remote user
|
|
my $r_user = '';
|
|
if ($c->user_exists) {
|
|
if ($c->user->roles eq 'admin' || $c->user->roles eq 'reseller') {
|
|
$r_user = $c->user->login;
|
|
} else {
|
|
$r_user = $c->user->webusername . '@' . $c->user->domain->domain;
|
|
}
|
|
}
|
|
|
|
# remote ip
|
|
my $r_ip = $c->request->address;
|
|
$r_ip =~ s/^::ffff://; # ipv4 in ipv6 form -> ipv4
|
|
|
|
# parameters
|
|
my $data_str;
|
|
my $data_ref = ref($data) ? $data :
|
|
$type eq 'api_request'
|
|
? $c->request->query_params
|
|
: $c->request->parameters;
|
|
if ($data_ref) {
|
|
my %parsed_data_ref = map { $_ => defined $data_ref->{$_}
|
|
? length($data_ref->{$_}) > 500
|
|
? '*too big*'
|
|
: $data_ref->{$_}
|
|
: 'undef'
|
|
} keys %$data_ref;
|
|
$data_str = Data::Dumper->new([ \%parsed_data_ref ])
|
|
->Terse(1)
|
|
->Maxdepth(1)
|
|
->Dump;
|
|
} elsif ($data) {
|
|
$data_str = $data;
|
|
}
|
|
if ($data_str) {
|
|
$data_str =~ s/\n//g;
|
|
$data_str =~ s/\s+/ /g;
|
|
} else {
|
|
$data_str = '';
|
|
}
|
|
if (length($data_str) > 100000) {
|
|
# trim long messages
|
|
$data_str = "{ data => 'Msg size is too big' }";
|
|
}
|
|
|
|
unless ($c->config->{logging}->{clear_passwords}) {
|
|
}
|
|
|
|
return {
|
|
tx_id => $log_tx_id,
|
|
called => $called,
|
|
r_user => $r_user,
|
|
r_ip => $r_ip,
|
|
data => $data_str,
|
|
};
|
|
}
|
|
|
|
method error ($self: Catalyst :$c, Str :$desc, :$log?, :$error?, :$type = 'panel', :$data?, :$cname?) {
|
|
# we explicitly declare the invocant to skip the validation for Object
|
|
# because we want a class method instead of an object method
|
|
|
|
# undef checks
|
|
$desc //= '';
|
|
|
|
my $log_params = $self->get_log_params(c => $c,
|
|
type => $type,
|
|
data => $data, );
|
|
|
|
defined $cname and $log_params->{called} =~ s/__ANON__/$cname/;
|
|
|
|
my $msg = ''; # sent to the log file
|
|
my $log_msg = ''; # optional log info
|
|
my $usr_type = 'error';
|
|
my $usr_text = $desc;
|
|
|
|
if (defined $log)
|
|
{
|
|
if (ref($log)) {
|
|
$log_msg = Data::Dumper->new([ $log ])
|
|
->Terse(1)
|
|
->Maxdepth(1)
|
|
->Dump;
|
|
} else {
|
|
$log_msg = $log
|
|
}
|
|
$log_msg =~ s/\n//g;
|
|
$log_msg =~ s/\s+/ /g;
|
|
$log_msg and $log_msg = "LOG=$log_msg";
|
|
}
|
|
|
|
given (1) {
|
|
when (not defined $error)
|
|
{
|
|
$msg = $desc;
|
|
}
|
|
when (my ($host) = $error =~ /problem connecting to (\S+, port [0-9]+)/ )
|
|
{
|
|
$log_msg = "$desc ($error)";
|
|
$usr_text = "$desc (A service could not be reached, $host)";
|
|
}
|
|
when (ref($error) eq "ARRAY" && @$error >= 2 && $error->[1] eq "showdetails" )
|
|
{
|
|
$msg = "$desc (@$error[0])";
|
|
$usr_text = "$desc (@$error[0])";
|
|
}
|
|
when (not $error->isa('DBIx::Class::Exception') )
|
|
{
|
|
$msg = "$desc ($error)";
|
|
$usr_text = $desc;
|
|
}
|
|
when (my ($dup) = $error =~ /(Duplicate entry \S*)/ )
|
|
{
|
|
$msg = "$desc ($error)";
|
|
$usr_text = "$desc ($dup)";
|
|
}
|
|
when (my ($excerpt) = $error =~ /(Column \S+ cannot be null)/ ) {
|
|
$msg = "$desc ($error)";
|
|
$usr_text = "$desc ($excerpt)";
|
|
}
|
|
default {
|
|
$msg = "$desc ($error)";
|
|
}
|
|
}
|
|
|
|
my $rc = $c->log->error(
|
|
sprintf <<"EOF", @{$log_params}{qw(r_ip called tx_id r_user data)}, $msg, $log_msg);
|
|
IP=%s CALLED=%s TX=%s USER=%s DATA=%s MSG="%s" %s
|
|
EOF
|
|
if ($type eq 'panel') {
|
|
$c->flash(messages => [{ type => $usr_type,
|
|
text => sprintf '%s [%s]',
|
|
$usr_text,
|
|
$log_params->{tx_id},
|
|
}]);
|
|
}
|
|
return $rc;
|
|
}
|
|
|
|
method info ($self: Catalyst :$c, Str :$desc, :$log?, :$type = 'panel', :$data?, :$cname?) {
|
|
# we explicitly declare the invocant to skip the validation for Object
|
|
# because we want a class method instead of an object method
|
|
|
|
# undef checks
|
|
$desc //= '';
|
|
|
|
my $log_params = $self->get_log_params(c => $c,
|
|
type => $type,
|
|
data => $data, );
|
|
|
|
defined $cname and $log_params->{called} =~ s/__ANON__/$cname/;
|
|
|
|
my $msg = $desc; # sent to the log file
|
|
my $log_msg = ''; # optional log info
|
|
my $usr_type = 'info';
|
|
my $usr_text = $desc;
|
|
|
|
if (defined $log) {
|
|
if (ref($log)) {
|
|
$log_msg = Data::Dumper->new([ $log ])
|
|
->Terse(1)
|
|
->Maxdepth(1)
|
|
->Dump;
|
|
} else {
|
|
$log_msg = $log
|
|
}
|
|
$log_msg =~ s/\n//g;
|
|
$log_msg =~ s/\s+/ /g;
|
|
$log_msg and $log_msg = "LOG=$log_msg";
|
|
}
|
|
|
|
my $rc = $c->log->info(
|
|
sprintf <<"EOF", @{$log_params}{qw(r_ip called tx_id r_user data)}, $msg, $log_msg);
|
|
IP=%s CALLED=%s TX=%s USER=%s DATA=%s MSG="%s" %s
|
|
EOF
|
|
if ($type eq 'panel') {
|
|
$c->flash(messages => [{ type => $usr_type, text => $usr_text }]);
|
|
}
|
|
return $rc;
|
|
}
|
|
|
|
__END__
|
|
|
|
=encoding UTF-8
|
|
|
|
=head1 NAME
|
|
|
|
NGCP::Panel::Utils::Message
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Parse messages for log and Web display.
|
|
|
|
=head1 INTERFACE
|
|
|
|
=head2 Functions
|
|
|
|
=head3 C<get_log_params>
|
|
|
|
Params: c (required)
|
|
|
|
Returns a hash ref with basic logging parameters that are used in "error", "info".
|
|
|
|
=head3 C<error>
|
|
|
|
Params: c (required), desc (required), error, log
|
|
|
|
Parse Exceptions (mainly DBIx::Class::Exceptions) and show the relevant
|
|
bits on the panel. Also log everything to the logger.
|
|
|
|
=head3 C<info>
|
|
|
|
Params: c (required), desc (required), log
|
|
|
|
Shows the info message on the panel. Also logs everything to the logger.
|
|
|
|
=head1 AUTHOR
|
|
|
|
=head1 LICENSE
|
|
|
|
This library is free software. You can redistribute it and/or modify
|
|
it under the same terms as Perl itself.
|