hydra/src/lib/Hydra/View/NixLog.pm

package Hydra::View::NixLog;

use strict;
use warnings;
use base qw/Catalyst::View/;
use Hydra::Helper::CatalystUtils;

sub process {
    my ($self, $c) = @_;

    my $logPath = $c->stash->{logPath};

    $c->response->content_type('text/plain; charset=utf-8');

    my $fh = IO::Handle->new();

    my $tail = int($c->stash->{tail} // "0");

    if ($logPath =~ /\.bz2$/) {
        my $doTail = $tail ? "| tail -n '$tail'" : "";
        open($fh, "-|", "bzip2 -dc < '$logPath' $doTail") or die;
    } else {
        if ($tail) {
            open($fh, "-|", "tail -n '$tail' '$logPath'") or die;
        } else {
            open($fh, "<", $logPath) or die;
        }
    }
    binmode($fh);

    setCacheHeaders($c, 365 * 24 * 60 * 60) if $c->stash->{finished};

    $c->response->body($fh);

    return 1;
}

1;