summaryrefslogtreecommitdiffstats
path: root/server.pl
diff options
context:
space:
mode:
Diffstat (limited to 'server.pl')
-rwxr-xr-xserver.pl5
1 files changed, 3 insertions, 2 deletions
diff --git a/server.pl b/server.pl
index e56b0b4..14804e7 100755
--- a/server.pl
+++ b/server.pl
@@ -4,6 +4,7 @@ use strict;
use AnyEvent;
use AnyEvent::Handle;
use AnyEvent::Socket;
+use File::HomeDir;
use Storable;
my $stats = {
@@ -12,8 +13,8 @@ my $stats = {
block => 0,
};
-my $log_socket = '/tmp/log.sock';
-my $stats_socket = '/tmp/stats.sock';
+my $log_socket = File::HomeDir->my_home . '/var/log.sock';
+my $stats_socket = File::HomeDir->my_home . '/var/stats.sock';
# regex to match the spamd log lines
my $regex = '^[A-Z][a-z][a-z] ?\d{1,2} \d{2}:\d{2}:\d{2} vm-mail spamd\[\d+\]: spamd: result: ([Y.]) (-?\d+) ';