278 lines
9.3 KiB
Perl
Executable File
278 lines
9.3 KiB
Perl
Executable File
#!/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);
|
|
push @files, {
|
|
name => $entry,
|
|
size => $stat[7] // 0,
|
|
mtime => $stat[9] // 0,
|
|
type => ($entry =~ /^cron-/) ? 'Cron' : 'Backup',
|
|
};
|
|
}
|
|
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;
|
|
}
|
|
|
|
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>Date</th><th>Size</th><th></th></tr></thead>\n};
|
|
print qq{<tbody>\n};
|
|
|
|
for my $f (@files) {
|
|
my $esc_name = GnizaWHM::UI::esc($f->{name});
|
|
my $badge = $f->{type} eq 'Cron' ? 'badge-neutral' : '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};
|
|
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};
|
|
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">← 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">← 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">← 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};
|
|
}
|
|
|
|
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 _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('%04d-%02d-%02d %02d:%02d', $t[5]+1900, $t[4]+1, $t[3], $t[2], $t[1]);
|
|
}
|
|
|
|
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;
|