Gecko [ contributie.vriendennsm.nl ]

Linux mail.vriendennsm.nl 6.1.0-51-amd64 #1 SMP PREEMPT_DYNAMIC Debian 6.1.177-1 (2026-07-16) x86_64
Apache/2.4.68 (Debian)
Server IP : 217.154.75.17 & Your IP : 216.73.216.195
Domains : Cant Read [ /etc/named.conf ]
User : www-data

Name	Size	Permission	Date
images	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
lang	[ DIR ]	drwxr-xr-x	2026-07-25 20:55
CHANGELOG	103 B	-rw-r--r--	2026-07-17 21:17
acl_security.pl	1.31 KB	-rwxr-xr-x	2026-07-17 21:17
backup_config.pl	569 B	-rwxr-xr-x	2026-07-17 21:17
config	83 B	-rw-r--r--	2026-07-17 21:17
config.info	481 B	-rw-r--r--	2026-07-17 21:17
config.info.ru	576 B	-rw-r--r--	2026-07-17 21:17
defaultacl	24 B	-rw-r--r--	2026-07-17 21:17
index.cgi	4.96 KB	-rwxr-xr-x	2026-07-17 21:22
install_check.pl	294 B	-rwxr-xr-x	2026-07-17 21:17
logviewer-lib.pl	8.14 KB	-rwxr-xr-x	2026-07-17 21:17
module.info	165 B	-rw-r--r--	2026-07-17 21:17
module.info.pl	105 B	-rw-r--r--	2026-07-17 21:17
module.info.ru	190 B	-rw-r--r--	2026-07-17 21:17
postinstall.pl	643 B	-rw-r--r--	2026-07-17 21:17
prefs.info	49 B	-rw-r--r--	2026-07-17 21:17
safeacl	24 B	-rw-r--r--	2026-07-17 21:17
view_log.cgi	13.32 KB	-rwxr-xr-x	2026-07-17 21:22
view_log_progress.cgi	1.27 KB	-rwxr-xr-x	2026-07-17 21:22

Rename

#!/usr/bin/perl
# view_log_progress.cgi
# Returns progressive output for some system log

require './logviewer-lib.pl';
&ReadParse();
&foreign_require("proc", "proc-lib.pl");

# Send headers
print "Content-Type: text/plain\n\n";

# Follow and reverse are mutually exclusive
my @systemctl_cmds;
{
	local $config{'reverse'} = 0;
	@systemctl_cmds = &get_systemctl_cmds(1);
}

# System log to follow
my ($log) = grep { $_->{'id'} eq $in{'idx'} } @systemctl_cmds;
if (!&can_edit_log($log) ||
	!$log->{'cmd'} ||
	$log->{'cmd'} !~ /^journalctl/) {
	print $text{'save_ecannot3'};
	exit;
	}

# Disable output buffering
$| = 1;

# No lines for real time logs
$log->{'cmd'} =~ s/\s+\-\-lines\s+\d+//;

# Show real time logs
$log->{'cmd'} .= " --follow";

# Add filter to the command if present
my $filter = $in{'filter'} ? quotemeta($in{'filter'}) : "";
my $use_regex = $in{'regex'} ? 1 : 0;
my $readcmd = $log->{'cmd'};
if ($filter) {
	my $grep_flag = $use_regex ? "-E" : "-F";
	$readcmd .= " | grep --line-buffered -a $grep_flag -- $filter";
	}

# Open a pipe to the journalctl command
my $pid = open(my $fh, '-|', $readcmd);
if (!defined($pid)) {
	print &text('save_ecannot4', $readcmd).": $!";
	exit;
	}

# Read and output the log
while (my $line = <$fh>) {
	print $line;
	}

# Clean up when done
close($fh);