mirror of
https://git.freebsd.org/ports.git
synced 2025-04-30 18:46:38 -04:00
add1cc6abc
Recently exim changed msgid format, so tool does not work correctly anymore. I tried to contact upstream but no reply so far. Also some minor changes to make portlint happy
32 lines
710 B
Perl
32 lines
710 B
Perl
--- exilog_agent.pl.orig 2024-04-04 09:07:54 UTC
|
|
+++ exilog_agent.pl
|
|
@@ -48,7 +48,11 @@ unless ($foreground) {
|
|
};
|
|
|
|
setsid();
|
|
-
|
|
+ my $me = "exilog";
|
|
+ my $pidfile = "/var/run/".$me.".pid";
|
|
+ open (PID,">$pidfile");
|
|
+ print PID $$;
|
|
+ close (PID);
|
|
# dup STDOUT/ERR
|
|
open(STDOUT, ">&LOG");
|
|
open(STDERR, ">&LOG");
|
|
@@ -413,13 +417,13 @@ sub _tail {
|
|
print STDERR "($$) [exilog_agent:_tail] ($logfile) ".scalar localtime()." ".$_[0];
|
|
};
|
|
|
|
- # open the file
|
|
- open(LOGFILE,"< $logfile");
|
|
-
|
|
# import parser, open DB connection
|
|
use exilog_parse;
|
|
use exilog_sql;
|
|
reconnect();
|
|
+
|
|
+ # open the file
|
|
+ open(LOGFILE,"< $logfile");
|
|
|
|
my $curpos;
|
|
my $fsize = (-s $logfile);
|