39 lines
616 B
39 lines
616 B
#!/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.
|
|
|