#!/usr/local/cpanel/3rdparty/bin/perl
# gniza WHM Plugin — Activity Logs
# View backup and cron log files (read-only)
use strict;
use warnings;

use lib '/usr/local/cpanel/whostmgr/docroot/cgi/gniza-whm/lib';

use Whostmgr::HTMLInterface ();
use Cpanel::Form            ();
use GnizaWHM::Config;
use GnizaWHM::UI;

my $form = Cpanel::Form::parseform();

# Determine log directory from config
my $log_dir   = '/var/log/gniza';
my $main_conf = '/etc/gniza/gniza.conf';
if (-f $main_conf) {
    my $cfg = GnizaWHM::Config::parse($main_conf, 'main');
    $log_dir = $cfg->{LOG_DIR} if $cfg->{LOG_DIR} && $cfg->{LOG_DIR} ne '';
}

my $file = $form->{'file'} // '';

if ($file ne '') {
    show_file($file);
} else {
    show_list();
}

exit;

# ── File List View ────────────────────────────────────────────

sub show_list {
    print "Content-Type: text/html\r\n\r\n";
    Whostmgr::HTMLInterface::defheader('gniza — Logs');
    print GnizaWHM::UI::page_header('GNIZA Backup Manager');
    print GnizaWHM::UI::render_nav('logs.cgi');
    print GnizaWHM::UI::render_flash();

    unless (-d $log_dir) {
        print qq{<div class="alert alert-info mb-4">No log directory found at <code>}
            . GnizaWHM::UI::esc($log_dir)
            . qq{</code>.</div>\n};
        print GnizaWHM::UI::page_footer();
        return;
    }

    # Read log files
    my @files;
    if (opendir my $dh, $log_dir) {
        while (my $entry = readdir $dh) {
            next unless _valid_log_filename($entry);
            my $path = "$log_dir/$entry";
            next unless -f $path;
            my @stat = stat($path);
            my $status = _detect_log_status($path);
            push @files, {
                name   => $entry,
                size   => $stat[7] // 0,
                mtime  => $stat[9] // 0,
                type   => ($entry =~ /^cron-/) ? 'Cron' : _detect_log_type($path),
                status => $status,
            };
        }
        closedir $dh;
    }

    # Sort by mtime descending
    @files = sort { $b->{mtime} <=> $a->{mtime} } @files;

    if (!@files) {
        print qq{<div class="alert alert-info mb-4">No log files found.</div>\n};
        print GnizaWHM::UI::page_footer();
        return;
    }

    # Pagination
    my $per_page   = 25;
    my $total      = scalar @files;
    my $page       = int($form->{'page'} // 1);
    $page = 1 if $page < 1;
    my $total_pages = int(($total + $per_page - 1) / $per_page);
    $page = $total_pages if $page > $total_pages;
    my $start = ($page - 1) * $per_page;
    my $end   = $start + $per_page - 1;
    $end = $#files if $end > $#files;
    my @page_files = @files[$start .. $end];

    print qq{<div class="overflow-x-auto rounded-box border border-base-content/5 bg-base-100">\n};
    print qq{<table class="table">\n};
    print qq{<thead><tr><th>Filename</th><th>Type</th><th>Status</th><th>Date</th><th>Size</th><th></th></tr></thead>\n};
    print qq{<tbody>\n};

    for my $f (@page_files) {
        my $esc_name = GnizaWHM::UI::esc($f->{name});
        my $badge    = $f->{type} eq 'Cron'   ? 'badge-neutral'
                     : $f->{type} eq 'System' ? 'badge-warning'
                     :                          'badge-info';
        my $date     = _format_time($f->{mtime});
        my $size     = _human_size($f->{size});
        my $href     = 'logs.cgi?file=' . _uri_escape($f->{name});

        print qq{<tr>\n};
        print qq{  <td><code>$esc_name</code></td>\n};
        print qq{  <td><span class="badge $badge badge-sm">$f->{type}</span></td>\n};
        my $status_badge = $f->{status} eq 'Error'   ? 'badge-error'
                         : $f->{status} eq 'Warning' ? 'badge-warning'
                         :                             'badge-success';
        print qq{  <td><span class="badge $status_badge badge-sm">$f->{status}</span></td>\n};
        print qq{  <td>$date</td>\n};
        print qq{  <td>$size</td>\n};
        print qq{  <td><button type="button" class="btn btn-secondary btn-sm" onclick="location.href='$href'">View</button></td>\n};
        print qq{</tr>\n};
    }

    print qq{</tbody>\n</table>\n</div>\n};

    # Pagination controls
    if ($total_pages > 1) {
        print qq{<div class="flex items-center justify-center gap-2 mt-4">\n};
        if ($page > 1) {
            my $prev = $page - 1;
            print qq{  <button type="button" class="btn btn-sm" onclick="location.href='logs.cgi?page=$prev'">&laquo; Prev</button>\n};
        }
        print qq{  <span class="text-sm">Page $page of $total_pages ($total logs)</span>\n};
        if ($page < $total_pages) {
            my $next = $page + 1;
            print qq{  <button type="button" class="btn btn-sm" onclick="location.href='logs.cgi?page=$next'">Next &raquo;</button>\n};
        }
        print qq{</div>\n};
    }

    # Auto-refresh while gniza is running
    print qq{<script>
(function() {
    var key = 'gniza_wasRunning';
    fetch('index.cgi?action=status')
        .then(function(r) { return r.json(); })
        .then(function(d) {
            if (d.running) {
                sessionStorage.setItem(key, '1');
                setTimeout(function() { location.reload(); }, 10000);
            } else if (sessionStorage.getItem(key) === '1') {
                sessionStorage.removeItem(key);
                location.reload();
            }
        })
        .catch(function() {});
})();
</script>\n};

    print GnizaWHM::UI::page_footer();
}

# ── File View ─────────────────────────────────────────────────

sub show_file {
    my ($filename) = @_;

    print "Content-Type: text/html\r\n\r\n";
    Whostmgr::HTMLInterface::defheader('gniza — Log Viewer');
    print GnizaWHM::UI::page_header('GNIZA Backup Manager');
    print GnizaWHM::UI::render_nav('logs.cgi');

    # Validate filename (prevents path traversal)
    unless (_valid_log_filename($filename)) {
        print qq{<div class="alert alert-error mb-4">Invalid log filename.</div>\n};
        print qq{<p><a href="logs.cgi" class="link">&larr; Back to logs</a></p>\n};
        print GnizaWHM::UI::page_footer();
        return;
    }

    my $filepath = "$log_dir/$filename";
    unless (-f $filepath) {
        print qq{<div class="alert alert-error mb-4">Log file not found.</div>\n};
        print qq{<p><a href="logs.cgi" class="link">&larr; Back to logs</a></p>\n};
        print GnizaWHM::UI::page_footer();
        return;
    }

    # Read file
    my @lines;
    if (open my $fh, '<', $filepath) {
        @lines = <$fh>;
        close $fh;
    }
    chomp @lines;

    my $total_lines  = scalar @lines;
    my $is_cron      = ($filename =~ /^cron-/);
    my $show_all     = ($form->{'all'} // '') eq '1';
    my $truncated    = 0;
    my $max_lines    = 10_000;
    my $cron_default = 500;

    # Apply line limits
    if ($is_cron && !$show_all && $total_lines > $cron_default) {
        @lines = @lines[-$cron_default .. -1];
        $truncated = 1;
    }
    if (@lines > $max_lines) {
        @lines = @lines[-$max_lines .. -1];
        $truncated = 1;
    }

    # Level filter
    my $level_filter = $form->{'level'} // '';
    $level_filter =~ s/\s+//g;
    $level_filter = '' unless $level_filter =~ /^(error|warn|info|debug)$/i;
    $level_filter = uc($level_filter) if $level_filter;

    # File info
    my @stat     = stat($filepath);
    my $file_size = _human_size($stat[7] // 0);
    my $file_date = _format_time($stat[9] // 0);
    my $esc_name  = GnizaWHM::UI::esc($filename);

    # Back link
    print qq{<p class="mb-4"><a href="logs.cgi" class="link">&larr; Back to logs</a></p>\n};

    # File info card
    print qq{<div class="card bg-base-200 shadow-sm border border-base-300 mb-4">\n};
    print qq{<div class="card-body py-3 px-4">\n};
    print qq{<div class="flex flex-wrap gap-3 items-center text-sm">\n};
    print qq{  <span><strong>File:</strong> <code>$esc_name</code></span>\n};
    print qq{  <span><strong>Size:</strong> $file_size</span>\n};
    print qq{  <span><strong>Lines:</strong> $total_lines</span>\n};
    print qq{  <span><strong>Date:</strong> $file_date</span>\n};
    print qq{</div>\n</div>\n</div>\n};

    # Truncation alert
    if ($truncated) {
        my $all_href = 'logs.cgi?file=' . _uri_escape($filename) . '&all=1';
        $all_href .= '&level=' . lc($level_filter) if $level_filter;
        print qq{<div class="alert alert-warning mb-4">Showing last }
            . scalar(@lines)
            . qq{ of $total_lines lines. }
            . qq{<a href="$all_href" class="link font-bold">View all</a></div>\n};
    }

    # Level filter buttons
    my $base_href = 'logs.cgi?file=' . _uri_escape($filename);
    $base_href .= '&all=1' if $show_all;

    print qq{<div class="flex gap-1 mb-4">\n};
    my @levels = ('', 'error', 'warn', 'info', 'debug');
    my %level_labels = ('' => 'All', error => 'Error', warn => 'Warn', info => 'Info', debug => 'Debug');
    for my $lv (@levels) {
        my $active = '';
        if ($lv eq '' && $level_filter eq '') {
            $active = ' btn-active';
        } elsif ($lv ne '' && uc($lv) eq $level_filter) {
            $active = ' btn-active';
        }
        my $href = $base_href;
        $href .= "&level=$lv" if $lv ne '';
        my $label = $level_labels{$lv};
        print qq{  <button type="button" class="btn btn-sm$active" onclick="location.href='$href'">$label</button>\n};
    }
    print qq{</div>\n};

    # Filter lines by level
    my @display_lines;
    if ($level_filter) {
        @display_lines = grep { /\[$level_filter\]/ } @lines;
    } else {
        @display_lines = @lines;
    }

    # Render log content
    if (!@display_lines) {
        print qq{<div class="alert alert-info">No matching log entries.</div>\n};
    } else {
        print qq{<pre class="bg-base-100 border border-base-300 rounded-lg p-4 text-sm font-mono overflow-x-auto leading-relaxed">};
        for my $line (@display_lines) {
            my $esc = GnizaWHM::UI::esc($line);
            if ($line =~ /\[ERROR\]/) {
                print qq{<span class="text-error font-bold">$esc</span>\n};
            } elsif ($line =~ /\[WARN\]/) {
                print qq{<span class="text-warning">$esc</span>\n};
            } elsif ($line =~ /\[DEBUG\]/) {
                print qq{<span class="text-base-content/60">$esc</span>\n};
            } else {
                print "$esc\n";
            }
        }
        print qq{</pre>\n};
    }

    # Auto-refresh + auto-scroll while gniza is running
    print qq{<script>
(function() {
    var key = 'gniza_wasRunning_file';
    fetch('index.cgi?action=status')
        .then(function(r) { return r.json(); })
        .then(function(d) {
            if (d.running) {
                sessionStorage.setItem(key, '1');
                window.scrollTo(0, document.body.scrollHeight);
                setTimeout(function() { location.reload(); }, 5000);
            } else if (sessionStorage.getItem(key) === '1') {
                sessionStorage.removeItem(key);
                location.reload();
            }
        })
        .catch(function() {});
})();
</script>\n};

    print GnizaWHM::UI::page_footer();
}

# ── Helpers ───────────────────────────────────────────────────

sub _valid_log_filename {
    my ($name) = @_;
    return 0 unless defined $name && $name ne '';
    return 1 if $name =~ /^gniza-\d{8}-\d{6}\.log$/;
    return 1 if $name =~ /^cron-[a-zA-Z0-9_-]+\.log$/;
    return 0;
}

sub _detect_log_type {
    my ($path) = @_;
    if (open my $fh, '<', $path) {
        while (my $line = <$fh>) {
            if ($line =~ /\[TYPE:SYSBACKUP\]/) {
                close $fh;
                return 'System';
            }
            last if $. > 5;
        }
        close $fh;
    }
    return 'Backup';
}

sub _detect_log_status {
    my ($path) = @_;
    return 'Success' unless -f $path;
    my $has_warn = 0;
    if (open my $fh, '<', $path) {
        while (my $line = <$fh>) {
            if ($line =~ /\[ERROR\]/) {
                close $fh;
                return 'Error';
            }
            $has_warn = 1 if !$has_warn && $line =~ /\[WARN\]/;
        }
        close $fh;
    }
    return $has_warn ? 'Warning' : 'Success';
}

sub _uri_escape {
    my $str = shift // '';
    $str =~ s/([^A-Za-z0-9\-._~])/sprintf("%%%02X", ord($1))/ge;
    return $str;
}

sub _format_time {
    my ($epoch) = @_;
    return '' unless $epoch;
    my @t = localtime($epoch);
    return sprintf('%02d/%02d/%04d %02d:%02d:%02d', $t[3], $t[4]+1, $t[5]+1900, $t[2], $t[1], $t[0]);
}

sub _human_size {
    my ($bytes) = @_;
    return '0 B' unless $bytes;
    my @units = ('B', 'KB', 'MB', 'GB');
    my $i = 0;
    my $size = $bytes;
    while ($size >= 1024 && $i < $#units) {
        $size /= 1024;
        $i++;
    }
    return ($i == 0) ? "$size B" : sprintf('%.1f %s', $size, $units[$i]);
}

1;