22 lines
382 B
22 lines
382 B
#!/usr/bin/env perl
|
|
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 USAGE
|
|
|
|
ngcp_panel_decode_crash < crashfile
|