ngcp-panel/script/ngcp_panel_decode_crash

#!/usr/bin/env perl

use warnings;
use strict;

use Convert::Ascii85 qw();
use IO::Uncompress::UnXz qw(unxz $UnXzError);

local $/ = undef;
my $buf = Convert::Ascii85::decode(<<>>);
my $out;
unxz \$buf, \$out or die $UnXzError;
print $out;

__END__

=encoding UTF-8

=head1 NAME

ngcp_panel_decode_crash - decode a crash state from the Web server error log

=head1 SYNOPSIS

B<ngcp_panel_decode_crash> <I<crashfile>

=head1 DESCRIPTION

This program decodes a crash state from the web server error log.

=head1 AUTHOR

Sipwise Development Team <support@sipwise.com>.

=head1 LICENSE

GPL-3+, Sipwise GmbH, Austria.