| Server IP : 85.214.239.14 / Your IP : 18.117.170.80 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/task/2/root/proc/3/root/proc/3/root/proc/2/cwd/sbin/ |
Upload File : |
#!/usr/bin/perl -w
#
# Copyright (c) 2003 Martin A. Godisch for Debian GNU/Linux, GPL
=head1 NAME
syslog2eximlog - make syslog output suitable for eximstats
=head1 SYNOPSIS
B<syslog2eximlog> B<<> I<mail.log> B<|> B<eximstats>
=head1 DESCRIPTION
syslog2eximlog converts logfiles produced by syslog when using
B<log_file_path = syslog> in your I<exim.conf> back to exim
logfile format, suitable for B<eximstats>. B<syslog_timestamp>
may be B<true> or B<false>.
The program always succeeds, invalid lines will be ignored.
=head1 BUGS
Please report any bugs directly to the author.
=head1 AUTHOR
Martin A. Godisch <godisch@debian.org> for Debian GNU/Linux.
=head1 SEE ALSO
B<eximstats>(8)
=cut
my @date = localtime(time);
$date[4] += 1;
$date[5] += 1900;
my %names = (
"Jan", "01", "Feb", "02", "Mar", "03", "Apr", "04",
"May", "05", "Jun", "06", "Jul", "07", "Aug", "08",
"Sep", "09", "Oct", "10", "Nov", "11", "Dec", "12"
);
while (<>) {
next unless (s/^(\w{3})\s([\s\d]\d)\s(\d\d):(\d\d):(\d\d)\s\S+\sexim\[\d+\]:\s//);
my ($month, $day, $hour, $min, $sec) = ($names{$1}, $2, $3, $4, $5);
if (/^\d{4}-\d\d-\d\d\s\d\d:\d\d:\d\d\s/) {
print $_;
} else {
printf "%04d-%02d-%02d %02d:%02d:%02d %s",
# assume current year if month/day <= today, otherwise assume last year
$month > $date[4] || $month == $date[4] && $day > $date[3] ? $date[5] - 1 : $date[5],
$month, $day, $hour, $min, $sec, $_;
}
}
exit 0;