Um 01:13 Uhr am 03.06.05 schrieb Sven Hartge:
> I attached a little patch, which adds the needed code to the agent, the
> config module and the cleanup script.
Dumb me of course attached the wrong patch. This is the correct one.
Grüße,
Sven.
--
Sven Hartge -- professioneller Unix-Geek
Meine Gedanken im Netz:
http://sven.formvision.de/blog/diff -ur exilog-0.1.orig/exilog_agent.pl exilog-0.1/exilog_agent.pl
--- exilog-0.1.orig/exilog_agent.pl 2005-03-05 12:12:39.000000000 +0100
+++ exilog-0.1/exilog_agent.pl 2005-06-03 01:09:34.000000000 +0200
@@ -10,6 +10,11 @@
#
use strict;
+
+use FindBin;
+use FindBin qw($RealBin);
+use lib "$RealBin/";
+
use exilog_config;
use POSIX qw( setsid );
diff -ur exilog-0.1.orig/exilog_cleanup.pl exilog-0.1/exilog_cleanup.pl
--- exilog-0.1.orig/exilog_cleanup.pl 2005-06-02 14:52:21.000000000 +0200
+++ exilog-0.1/exilog_cleanup.pl 2005-06-03 01:04:37.000000000 +0200
@@ -10,6 +10,11 @@
#
use strict;
+
+use FindBin;
+use FindBin qw($RealBin);
+use lib "$RealBin/";
+
use exilog_config;
use exilog_sql;
diff -ur exilog-0.1.orig/exilog_config.pm exilog-0.1/exilog_config.pm
--- exilog-0.1.orig/exilog_config.pm 2004-07-27 15:10:40.000000000 +0200
+++ exilog-0.1/exilog_config.pm 2005-06-03 01:05:42.000000000 +0200
@@ -12,6 +12,11 @@
package exilog_config;
use strict;
+use FindBin;
+use FindBin qw($RealBin);
+use lib "$RealBin/";
+
+
BEGIN {
use Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
@@ -35,7 +40,7 @@
$version = "0.01";
-$config = _read_ph("exilog.conf");
+$config = _read_ph("$RealBin/exilog.conf");
unless ($config) {
print STDERR "($$) [exilog_config] Can't parse configuration file.\n";